contoh looping

Variabel kontrol, nilai awal, nilai akhir harus betipe integer

Contoh
Var
I:Integer;
Begin
For I:= 1 to 5 Do Writeln(‘Pascal’);
End.

Bila program dijalankan akan menghasilkan:
Pascal
Pascal
Pascal
Pascal
Pascal

Penjelasan:
Pernyataan Writeln(‘Pascal’) akan diulang sebanyak 5 kali, yaitu dengan penghitung dari nilai awal 1 sampai dengan nilai akhir 5.

Apabila pernyataan diulang lebih dari satu pernyataan maka seteleh DO harus memakai Begin kemudian beberapa pernyataan yang akan diulang dan diakhiri dengan End;.

Contoh
Var
I:Integer;
Begin
For I:= 1 to 2 Do
Begin
Write(‘Pascal’);
Writeln(‘Turbo’);
End;
End.

Bila program dijalankan akan menghasilkan:

PascalTurbo
PascalTurbo

2. Perulangan negatif
Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk dengan menggunakan pernyataan For-DownTo-Do, dengan bentuk umum:

For variabel-kontrol:=nilai awal DownTo nilai akhir Do penyataan

Contoh
Var
I:integer;
Begin
For I:=5 downto 1 do
Begin
Writeln(I);
End;
End.
Bila program dijalankan maka akan menghasilkan:

5
4
3
2
1