IF.. ELSE lebih dari satu statement

Percabangan if (if statement) di delphi

Ada dua bentuk pernyataan if yaitu if…then dan if…then…else.
Cara/format penulisan if…then adalah if kondisi then proses;

Percabangan if untuk proses yang lebih dari satu

Nah bila proses yang akan dilakukan lebih dari satu, cara penulisannya harus disertai begin [proses-proses] end;. Contohnya sebagai berikut:

Study Kasus 1 :

program Program_seleksi_2_statement;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tinggi:integer;
begin
write ('Ratih Arifiana Atika Irani');
readln;
readln;

write ('Masukkan tinggi badan =');
readln;
if tinggi > 169 then
begin
writeln ('Anda layak bekerja ditempat Kami');
writeln ('Selamat Anda Diterima');
end
else
begin
writeln ('Tinggi Anda','tinggi','cm');
writeln ('Maaf tinggi badan anda masih kurang');
writeln ('Anda Gagal');
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
 


 Study Kasus 2 :

{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
    n:integer;
    g:string;
begin
  write('Masukkan Nilai Anda  =  '); readln(n);
 writeln('  ');
    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;
  { TODO -oUser -cConsole Main : Insert code here }
end.