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

    Nilai:integer;

    Grade:string;

begin

  writeln('NAMA : BENNY KURNIAWAN');

  writeln('NIM  : 114224010');

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

  writeln('INPUT NILAI & GRADE SISWA');

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

  writeln('                         ');

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

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

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

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

    writeln('GRADE = ' ,Grade);

    readln;

end.