Pengulangan menggunakan FOR TO DO:
program
pengulangan_for;
uses wincrt;
var
nilai, i :
integer;
nil_huruf
:char;
ket : string;
jawab :char;
begin
for i:=1 to 5
do
begin
writeln
('Pengulangan For Ke ',i);
writeln;
writeln
('Nilai Kelulusan');
write('Nilai :
');readln(nilai);
case nilai of
0..40 :
nil_huruf:= 'E';
41..50 :
nil_huruf:= 'D';
51..60 :
nil_huruf:= 'C';
61..79 :
nil_huruf:= 'B';
80..99 :
nil_huruf:= 'A';
end;
PENGULANGAN MENGGUNAKAN REPEAT UNTIL:
program
pengulangan_repeat;
uses wincrt;
var
nilai, i, j :
integer;
nil_huruf
:char;
ket : string;
jawab :char;
begin
i:=1;
repeat
writeln
('Pengulangan Repeat Ke ',i);
writeln;
writeln
('Nilai Kelulusan');
write('Nilai :
');readln(nilai);
case nilai of
0..40 :
nil_huruf:= 'E';
41..50 :
nil_huruf:= 'D';
51..60 :
nil_huruf:= 'C';
61..79 :
nil_huruf:= 'B';
80..99 :
nil_huruf:= 'A';
end;
begin
case nil_huruf
of
'E' :
ket:='Gagal';
'D' :
ket:='Kurang';
'C' :
ket:='Cukup';
'B' :
ket:='Baik';
'A' :
ket:='Sangat Baik';
end;
writeln('Nilai
huruf : ',nil_huruf);
writeln('Keterangan
: ',ket);
writeln;
writeln;
writeln;
end;
i:=i+1;
until i>5;
end.
PENGULANGAN MENGGUNAKAN WHILE :
program pengulangan_while;
uses wincrt;
var
nilai, i, j : integer;
nil_huruf :char;
ket : string;
jawab :char;
begin
i:=0;
while i <= 4 do begin
begin
i:=i+1;
writeln ('Pengulangan While Ke ',i);
writeln;
writeln ('| Nilai Kelulusan |');
write('Nilai : ');readln(nilai);
case nilai of
0..40 : nil_huruf:= 'E';
41..50 : nil_huruf:= 'D';
51..60 : nil_huruf:= 'C';
61..79 : nil_huruf:= 'B';
80..99 : nil_huruf:= 'A';
end;
begin
case nil_huruf of
'E' : ket:='Gagal';
'D' : ket:='Kurang';
'C' : ket:='Cukup';
'B' : ket:='Baik';
'A' : ket:='Sangat Baik';
end;
writeln('Nilai huruf : ',nil_huruf);
writeln('Keterangan : ',ket);
writeln;
writeln;
writeln;
end;
end;
end;
end.
Tidak ada komentar:
Posting Komentar