kampoeng doeloe

• Perulangan for 

Perulangan dengan statemen For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen For dapat berupa perulangan positif dan perulangan negatif.
a) Perulangan For positif
contoh :
perulangan positif untuk satu statement :
Uses Crt;
Var
i : Integer;
Begin
For i := 1 To 5 Do Writeln ('Merdeka’);
END.
Maka bila program diatas di compile
hasilnya :
Merdeka
Merdeka
Merdeka
Merdeka
Merdeka

Penjelasannya gini, statemen Merdeka akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai 6 nilai i terakhir yaitu i ke 5.

b) 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

• Perulangan 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 program while do:
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

• Perulangan Repeat - Until.

Repeat – Until digunakan untuk mengulang statement-statement atau blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi. Sintak dari statement ini adalah :
Contoh program repeat-until :
Var
i : Integer;
Begin
i:=0;
Repeat
i:= i+1;
Writeln (i);
Until i=5;
End.
hasil :
1
2
3
4
5