If Bertingkat dalam Pascal

nah jumpa lagi nih.... hehe...
sesuai janji saya pada postingan sebelumnya "Struktur IF dalam Pascal"  saya akan kasih sesuatu neh gan... :D
pada postingan ini saya akan kasih syntax dan contoh if bertingkat ato sering dikenal dengan NESTED IF.
yaudah ni syntaxnya gan.... monggo disimak :D


if kondisi then
 begin
  if kondisi then
   begin
    statement_benar;
   end
  else
   begin
    Statement_salah;
   end;
 end
else
 begin
  statement_salah;
 end;


nah ini scriptnya nih gan....
monggo coba di TPW-nya... :)



uses wincrt;
var
 j:string;
 n1,n2,n3:integer;
 rata:real;
begin
 Write('Jenis Ulangan   : ');readln(j);
 write('Nilai1          : ');readln(n1);
 write('Nilai2          : ');readln(n2);
 write('Nilai3          : ');readln(n3);
 writeln;
 rata:=(n1+n2+n3)/3;
 if (j='P') or (j='p') then
  begin
   if rata>=70 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Produktif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Produktif dengan nilai ',rata:0:2);
    end;
  end
 else if (j='A') or (j='a') then
  begin
   if rata>=74 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Adaptif dengan nilai ',rata:0:2);
    end
   else
    begin
     writeln('Anda dinyatakan GAGAL pada bidang Adaptif dengan nilai ',rata:0:2);
    end;
  end
 else
  begin
   if rata>=68 then
    begin
     writeln('Anda dinyatakan LULUS pada bidang Normatif dengan nilai ',rata:0:2);
    end
  else
   begin
    writeln('Anda dinyatakan GAGAL pada bidang Normatif dengan nilai ',rata:0:2);
   end;
  end;
end. 


segitu dulu ya :D
nanti ane posting yg laen ok ;D
"Selalu Belajar untuk keSUKSESan"