Pengulangan While dan Repeat

Pengulangan While Do
Amati listing program berikut !

Sintak program	Output
Program WHILE_DO; Uses Crt; Var i:byte; Begin ClrScr; i:=1; WHILE i<=5 DO {program akan diulang selaman nilai i<=5} Begin Writeln(i); i:=i+1; End; End.	Tampilan 1: 1 2 3 4 5

Perhatikan pada bagian listing program yang menyatakan pengulangan sintak :

List Program	Penjelasan
WHILE i<=5 DO
Begin	Awal program yang akan diulang
Writeln(i);	Mencetak variabel i
i:=i+1;	Penambahan variabel i agar nilainya bertambah setiap pengulangan.
End;	Akhir program yang akan diulang

Tentunya cukup jelas bukan cara kerja perulangan while do, prinsipnya sama dengan perulangan for. Kesamaannya adalah variabel kontrol atau kondisi logikanya ada pada awal pernyataan pengulangan. Dengan demikian dapat dibuat format penulisan fungsi pustaka while adalah sebagai berikut : WHILE ekspresi_logika DO pernyataan ;


Pengulangan Repeat Until
Repeat ...Until memiliki format penulisan yang agak berbeda dengan yang lainnya. Berikut adalah format penulisannya :

REPEAT
pernyataan
UNTIL ekspresi logika;

Supaya lebih mudah memahaminya, amati contoh list program di bawah ini:

Sintak program	Output
Program REPEAT_UNTIL; Uses Crt; Var i:byte; Begin ClrScr; i:=1; REPEAT Writeln(i); Inc(i); UNTIL i>5;{sampai nilai i>5 maka program akan berhenti} End.	Tampilan 1: 1 2 3 4 5

Perhatikan list program yang berada diantara fungsi pustaka repeat dan until.

List Program	Penjelasan
REPEAT	Awal sintak pengulangan REPEAT
Writeln(i);	Mencetak variabel i
Inc(i);	Menambah variabel i dengan satu (i:=i+1)
UNTIL i>5;	Ekspresi logika sebagai syarat berhenti

Dengan demikian yang membedakan antara fungsi pustaka repeat ... until dengan while do adalah pada letak ekspresi logika.