Contoh Program Perulangan Pada Bahasa Pascal

Perulangan adalah suatu perintah yang menjalankan suatu perintah tersebut secara terulang-ulang sampai suatu kondisi terpenuhi.
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..