PERNYATAAN PERULANGAN ( LOOPING )

Pernyataan perulangan adalah pernyataan yang akan menjalankan pernyataan yang
mengikutinya secara berulang sampai syarat tertertentu terpenuhi. Ada 3 buah pernyataan
perulangan, yaitu FOR, WHILE dan REPEAT.

A. Statement FOR
Statement FOR adalah suatu perintah yang berfungsi untuk melakukan proses
pengulangan, dimana jumlah pengulangannya sudah diketahui. Bentuk dari statement
FOR adalah:
FOR {Variabel} := {Nilai Awal} TO {Nilai Akhir} DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;

Contoh :
Ingin dibuat program untuk menampilkan huruf ’A’ hingga ’M’:
Program Huruf;
Uses Wincrt;
Var
i:char;
Begin
For i:='A' downto 'M' do
writeln(i);
end.
Hasil :

Ingin dibuat program untuk menampilkan huruf ’M’ hingga ’A’:
Program Huruf;
Uses Wincrt;
Var
i:char;
Begin
For i:='M' downto 'A' do
writeln(i);
end.
Hasil :

B. Statement WHILE
Statement WHILE adalah suatu perintah yang berfungsi untuk melakukan proses
pengulangan, dimana pengulangan akan terus dilakukan jika kondisi tertentu dipenuhi.
Jika banyaknya pengulangan diketahui tapi kenaikan atau penurunan pengulangan
tidak sebesar satu, statement IF tidak cocok untuk digunakan. Sebagai alternatif dapat
digunakan statement WHILE atau REPEAT. Sedangkan jika banyaknya pengulangan
tidak diketahui maka statement IF tidak dapat digunakan, sehingga harus digunakan
statement WHILE atau REPEAT. Bentuk dari statement WHILE adalah:
WHILE {Kondisi} DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;

Contoh :
Ingin dibuat program untuk menampilkan deret berikut:
1,3,5,7,.......suku ke-n
Program Deret;
Uses Wincrt;
Var
N,I: integer;
begin
readln(N);
I:=1;
while I<=N do begin Writeln(2*I-1); I:=I+1; end; end. Hasil :

c. Statement REPEAT
Statement REPEAT adalah suatu perintah yang berfungsi untuk melakukan proses
pengulangan, dimana pengulangan akan berhenti jika kondisi yang tertulis di akhir
pengulangan dipenuhi. Sintak dari statement REPEAT adalah:
REPEAT
{Statement 1}
{Statement 2}
....
{Statement n}
UNTIL {Kondisi};
Repeat

Contoh :
Ingin dibuat program untuk menampilkan deret berikut: 1,3,5,7,.......suku ke-n
PROGRAM DERET;
USES WINCRT;
VAR
N,I:INTEGER;
BEGIN
READLN(N);
I:=1;
REPEAT
WRITELN(2*I-1);
I:=I+1;
UNTIL I > N;
END.
Hasil :