PENULISAN CODING IF...ELSE...IF

Apabila ada perintah if dalam perintah If yang lain. Kondisi ini dibutuhkan pada saat kriteria yang akan dimasukkan lebih dari satu.

    Format :        if (Kondisi 1) then else
                         if (Kondisi 2) then else
                              (Proses 1)
                         else (Proses 2);

Contoh Script :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

    n:integer;

    g:string;

begin

  writeln('NIM  : 114224018');

  writeln('NAMA : KHOFSOTUN NURUL YAQIN');

  writeln('=========================');

  writeln('PROGRAM INPUT NILAI SISWA');

  writeln('=========================');

  writeln('                         ');

  write('Masukkan Nilai Anda = '); readln(n);

    if n >= 90 then g:= 'A' ELSE

    if n >= 80 then g:= 'B' ELSE

    if n >= 90 then g:= 'C' ELSE g:= 'D' ;

    writeln('GRADE = ' ,g);

    readln;

end.