Turbo Pascal IF bersarang

arif zainurrohman

program konversi_dari_angka_ke_huruf;
uses wincrt;
var
nilai:integer;
begin
clrscr;
write ('masukkan nilai :');readln(nilai);
if nilai > 21 then
begin
if (nilai>21) and (nilai<=40) then
begin
writeln('D') ;
end;
if (nilai>41) and (nilai<=60) then
begin
writeln('C')  ;
end;
if (nilai>61) and (nilai<=80) then
begin
writeln('B')   ;
end;
if (nilai>81) and (nilai<=100) then
begin
writeln('A')   ;
end;        
 end
else
begin
writeln('E');
end;
end.


Kota Pempek , 14 Maret 2012


akhukum fillah arif zainurrohman