Perulangan (loop) merupakan bentuk yang sering ditemui dalam suatu program
aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan
menggunakan statemen For, While-Do dan Repeat….Until.

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

1. Perulangan Positif
Merupakan perulangan dengan penghitung (counter) dari kecil ke besar.
Pendeklarasian perulangan ini adalah sebagai berikut :

 
Variabel_kontrol, nilai_awal dan nilai_akhir harus mempunyai tipe yang sama,
yaitu bertipe integer.

CONTOH :
Program Perulangan_For_Positif;
Var i : byte;
Begin
For i := 1 To 5 Do
Writeln (i);
Readln;
End.

Bila statemen lebih dari satu perintah, maka blok perintah-perintah tersebut harus
diawali dengan begin dan diakhiri dengan end.

CONTOH :
Program Perulangan_For_Positif;
Var i : byte;
Begin
For i := 1 To 5 Do
Begin
Write ('No ');
Writeln (i);
End;
Readln;
End.

Perulangan Negatif
Merupakan perulangan dengan penghitung (counter) dari besar ke kecil.
Pendeklarasian perulangan ini adalah sebagai berikut :

CONTOH :
Program Perulangan_For_Negatif;
Begin
For i := 5 DownTo 1 Do
Begin
Write ('No ');
Writeln (i);
End;
Readln;
End.

3. Perulangan Tersarang (Nested Loop)
Merupakan perulangan yang berada di dalam perulangan yang lainnnya. Pada
sistem perulangan ini, perulangan yang lebih dalam akan diproses terlebih dahulu
sampai habis, kemudian perulangan yang lebih luar baru akan bertambah,
kemudian mengerjakan perulanan yang lebih dalam lagi mulai dari nilai awalnya,
dan seterusnya.

CONTOH :
Program Perulangan_For_Bersarang;
Var i : integer;
Begin
{ **** Perulangan Luar **** }
For i := 1 To 3 Do
Begin
Write ('Luar = ');
Writeln (i);
{ ---- Perulangan Dalam ---- }
For j := 1 To 5 Do
Begin
Write ('Dalam = ');
Writeln (j);
End;
{ - Batas Perulangan Dalam - }
End;
{ * Batas Perulangan Luar * }
Readln;
End.