Minggu, 21 Oktober 2012

CONTOH FOR,WHILE,REPEAT


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