Loping atau Perulangan

Looping atau 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. Dari keterangan diatas coba kamu buat tampilan bilangan ganjil (1,3,5,7,9). Selamat Mencoba….
SUMBER: http://desitie.wordpress.com