Program Pascal Looping (perulangan)

Looping (perulangan)


     merupakan bentuk yang sering ditemui didalam suatu program aplikasi. Didalam bahasa pascal, dikenal tiga macam perulangan yaitu :dengan menggunakan statemen For, While-Do, dan Repeat…until.

1. For
For biasa digunakan untuk perulangan positif atau perulangan dengan penghitung (couter) dari kecil kebesar atau dengan kata lain pertambahannya positif.Bu : For variabel-kontrol := nilai awal To nilai-akhir Do statemen
contoh :
var
i :integer;
begin
for i:= 1 to 5 do writeln(‘BSI’);
end.
maka akan menghasilkan :
BSI
BSI
BSI
BSI
BSI
For Nested
contoh :
var
i:integer;
begin
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
write(i:3,j:3);
writeln;
end;
readln;
end.
maka akan menghasilkan :
1 1 1 2
2 1 2 2
  
2. While-do,
digunakan untuk melakukan proses perulangan suatu statemen atau blok statemen terus-menerus selama kondisi logika Benar.
bu : statemen_while while ungkapan_logika do statemen
contoh :
uses crt;
var k:integer;
begin
  k:=1;
  while k<=3 do
  begin
  writeln(‘Halo’);
  k:=k+1;
  end;
end.Hasilnya :
Halo
Halo
Halo 

3. Repeat Until, 
digunakan untuk mengulang statemen suatu blok statemen sampai (until) kondisi yang diseleksi di Until tidak terpenuhi.
bu : repeat
  statemen;
  until ungkapan_logika;
contoh:
var i : integer;
begin
i:=0;
repeat
  i:=i+1;
  writeln(i);
until i = 5;
readln;
end.