perulangan ada 3 jenis:
1. perulangan for-do
2. perulangan while-do
3. perulangan repeat-until
perulangan for-do
contoh:
program mahasiswa;
uses crt;
var
i:integer;
begin
clrscr;
for i:= 1 to 5 do
writeln(‘Belajar Pascal’);
readln
end.
Hasil:
Belajar Pascal
Belajar Pascal
Belajar Pascal
Belajar Pascal
Belajar Pascal
program downto_do;
uses crt;
var
i:integer;
batas:integer;
begin
clrscr;
write(‘Masukan nilai :’);
readln(batas);
for i:= 10 downto 1 do
write(i, ‘ ‘);
readln
end.
perulangan while-do
program while_do;
uses crt;
var
i:integer;
begin
i :=1;
while i<5 do
begin
writeln(‘perulangan ke ‘,i);
i:=i+1;
end;
readln
end.
perulangan repeat-until
program repeat_until;
uses crt;
var
i:integer;
begin
i:=5;
repeat
write(i,’ ‘);
if i mod 20 = 0 then writeln;
i:=i+5;
until i>=61;
readln
end.
Berikut Screen shoot Contoh-Contoh script Program Perulangan dan setelah dicompiler yang telah saya buat
Sekian , terima kasih..
Tidak ada komentar:
Posting Komentar