PERULANGAN(LOOPING)

Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do,  dan Repeat…Until.
Perulangan digunakan untuk menjalankan satu atau beberapa pernyataan sebanyak beberapa kali. Dengan kata lain, pengulangan memungkinkan kita untuk menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja.

A. Pernyataan For

Perulangan dengan pernyataal For digunakan untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Perulangan dalam pernyataan For dapat berbentuk perulangan positif, perulangan negatif, dan perulangan tersarang.

>Perulangan For positif 
contoh : perulangan positif untuk satu statement :

Maka bila program diatas dicompile
hasilnya :

Penjelasan : Berati statemen I Love Dinda akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai nilai i terakhir yaitu i ke 5.

>Perulangan For Negatif

Perulangan For negatif : Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil. 

Statement yang digunakan adalah For-DownTo-Do 

contoh :
Uses Crt;
Var
i : Integer;
Begin
For i := 10 DownTo 1 Do Write (i:3);
End.
Hasil :
10 9 8 7 6 5 4 3 2 1


B. Pernyataan For bersarang

Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya. 

Contoh : 

Var 

a,b : Integer; 

Begin 

For a := 1 To 3 Do 

Begin 

For b := 1 To 2 Do Write (a :4,b:2); 

Writeln; 

End; 

End. 

Hasil : 

1 1 1 2 

2 1 2 2 

3 1 3 2 

C. Pernyataan while-do

Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Perulangan While – Do tidak dilakukan jika kondisi tidak terpenuhi. 

Contoh : 

Uses Crt; 

Var i : Integer; 

Begin 

i := 0; 

While < 5 do 

Begin 

Write (i:3); 

Inc (i); { sama dengan i:=i+1 } 

End; 

End. 

Hasilnya : 

0 1 2 3 4 

D. Pernyataan while-do tersarang

Perulangan While – Do tersarang (nested While - Do) merupakan perulangan While – Do yang satu di dalam perulangan While – Do yang lainnya. 

Contoh : 

Uses Crt; 

Var 

a, b : Integer; 

Begin 

ClrScr; 

a:=1; 

b:=1; 

While a < 4 Do{ loop selama a masih lebih kecil dari 4 } 

Begin 

a := a+1; 

While b < 3 Do{ loop selama b masih lebih kecil dari 3 } 

Begin 

Write (a:3,b:2); 

b:=b+1; 

End; 

End; 

Readln; 

End. 

E. Pernyataan repeat..until

Repeat – Until digunakan untuk mengulang statement-statemen atau blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi. 

Sintak dari statement ini adalah : 

Contoh : 

Var 

i : Integer; 

Begin 

i:=0; 

Repeat 

i:= i+1; 

Writeln (i); 

Until i=5; 

End. 

hasil : 

1 

2 

3 

4 

5 

F. Pernyataan repeat..until tersarang

Repeat – Until tersarang adalah suatu perulangan Repeat - Until yang satu berada didalam perulangan Repeat – Until yang lainnya. 

Contoh : 

Var 

a,b,c : Real; 

Begin 

Writeln('========================================'); 

Writeln(' sisi A sisi B Sisi C '); 

Writeln (' ======================================='); 

a:= 1; 

Repeat { perulangan luar } 

b := 0; 

Repeat{ perulangan dalam } 

c:=Sqrt (a*a+b*b); 

Writeln (a:6:2, b:9:2, c:9:2); 

b:=b+5; 

Until b>25; { berhenti jika b lebih besar dari 5 untuk 

perulangan dalam } 

a:=a+1; 

Until a>3; { berhenti jika a lebih besar dari 3 untuk 

perulangan luar } 

Writeln(' =======================================');

End.