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.
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;
FOR {Variabel} := {Nilai Awal} DOWNTO {Nilai Akhir}
DO
BEGIN
{Statement 1}
{Statement 2}
....
{Statement n}
END;
Jika Nilai Awal < Nilai Akhir gunakan statement FOR TO DO. Sedangkan jika Nilai
Awal > Nilai Akhir gunakan statement FOR DOWNTO DO.
Statement FOR Bersarang
Untuk menangani masalah tertentu, ada kemungkinan statement FOR yang digunakan
lebih dari satu dan statement FOR yang satu dapat berada didalam statement FOR yang
lain. Bentuk yang seperti ini disebut FOR Bersarang (nested FOR)
Contoh :
Ingin dibuat program untuk menampilkan bentuk seperti berikut ini:
*
**
***
****
PROGRAM TAMPIL;
USES WINCRT;
VAR
I,J:INTEGER;
BEGIN
FOR I:=1 TO 4 DO
BEGIN
FOR J:=1 TO I DO
WRITE(‘*’);
WRITELN;
END;
END.
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.
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};
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.
Statement REPEAT Bersarang (Nested REPEAT)
Sama halnya dengan statement FOR dan WHILE, ada kemungkinan statement REPEAT
yang digunakan lebih dari satu dan statement REPEAT yang satu dapat berada didalam
statement REPEAT yang lain.
Contoh :
Ingin dibuat program untuk menampilkan bentuk seperti berikut ini:
*
**
***
****
PROGRAM TAMPIL;
USES WINCRT;
VAR
I,J:INTEGER;
BEGIN
I:=1;
REPEAT
J:=1;
REPEAT
WRITE(‘*’);
J:=J+1;
UNTIL J > I ;
WRITELN;
I:=I+1;
UNTIL I > 4;
END.
0 comments:
Post a Comment