Looping / Pengulangan (Dalam Bahasa Pascal)

Looping adalah pengulangan sesuatu atau serangkaian “kerja” dari program.

Dalam bahasa pascal ada 4 jenis Looping, yaitu :
- For to do
- For downto do
- While do
- Repeat until

For To Do
Struktur ini digunakan untuk pengulangan yang telah diketahui berapa kali pengulangan tersebut akan di eksekusi, dengan urutan dari bilangan kecil ke bilangan besar (Naik), misalnya dari 1 sampai 10, maka akan terjadi 10 kali pengulangan.

Contoh
program kalimat;
var x : integer;
begin
for x := 1 to 10 do
begin write(x,' Hai! nama saya alaudin ');
end;
readln;
end.  

Setelah di Run, hasilnya akan seperti ini :
1 Hai! nama saya alaudin 
2 Hai! nama saya alaudin
3 Hai! nama saya alaudin 
4 Hai! nama saya alaudin  
5 Hai! nama saya alaudin 
6 Hai! nama saya alaudin 
7 Hai! nama saya alaudin 
8 Hai! nama saya alaudin   
9 Hai! nama saya alaudin   
10 Hai! nama saya alaudin  

For Downto Do
Struktur ini digunakan untuk pengulangan yang telah diketahui berapa kali pengulangan tersebut akan di eksekusi, dengan urutan dari bilangan besar ke bilangan kecil (Menurun), misalnya dari 10 sampai 1, maka akan terjadi 10 kali pengulangan.

Contoh
program kalimat;
var x : integer;
begin
for x := 10 downto 1 do
begin writeln(x,' Halloo saya alaudin ');
end;
readln;
end.  

Setelah di Run, hasilnya akan seperti ini :
10 Hai! nama saya alaudin   
9 Hai! nama saya alaudin  
8 Hai! nama saya alaudin  
7 Hai! nama saya alaudin  
6 Hai! nama saya alaudin  
5 Hai! nama saya alaudin  
4 Hai! nama saya alaudin  
3 Hai! nama saya alaudin  
2 Hai! nama saya alaudin  
1 Hai! nama saya alaudin            

While Do
While digunakan untuk pengulangan yang jumlah pengulangannya tidak ditentukan sebelumnya.

Contoh
program alaudin00;
var a : integer;
begin
a := 1;
while(a<10) do
begin
writeln('Alaudin');
writeln(a);
a := a+1;
end;
readln;
end. 

Setelah di Run, hasilnya akan seperti ini :
1 Alaudin
2 Alaudin
3 Alaudin
4 Alaudin
5 Alaudin
6 Alaudin
7 Alaudin
8 Alaudin
9 Alaudin

Repeat Until
Struktur ini mendasarkan pengulangan pada kondisi behenti. Aksi di dalam badan
pengulangan diulang sampai hasil pengecakan kondisi berhenti Boolean bernilai
true. Jika hasil pengecekan kondisi berhenti masih false(salah), pengulangan
masih terus dilakukan.

Contoh
program alaudin02;
var a : integer;
begin
a := 1;
repeat
writeln('alaudin ');
writeln(a);
a := a+1;
until a>=10;
readln;
end.

Setelah di Run, hasilnya akan seperti ini :
1 Alaudin
2 Alaudin
3 Alaudin
4 Alaudin
5 Alaudin
6 Alaudin
7 Alaudin
8 Alaudin
9 Alaudin

http://alaudin07.blogspot.co.id/