Perulangan Pada Pascal

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.