Struktur Perulangan

Pernyataan repeat (repeat statements)
digunakan untuk melakukan perulangan terhadap suatu pernyataan, dimana proses pemeriksaan
syaratnya berada pada akhir pernyataan repeat tersebut. Pernyataanpernyataan
yang ada pada repeat akan dijalankan (diulang terus) sampai
kondisi yang diseleksi di until tidak terpenuhi.

Pernyataan While (While Statements)
pernyataan while (while statements) hampir sama dengan pernyataan
repeat, dengan sedikit perbedaan bahwa pernyataan while melakukan
pengujian syarat pada awal proses berulang (pernyataan repeat
melakukannya di akhir proses).

Pengujian awal digunakan untuk agar program dapat menyeleksi
kondisi, sehingga program dapat menentukan tindakan apa yang harus
dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Pada
pernyataan-pernyataan yang ada pada while tidak akan dijalankan jika
kondisi tidak terpenuhi.

Pernyataan For (For Statements)
pernyataan for (for statements) juga digunakan untuk melakukan
proses perulangan. Hanya saja proses perulangan pada pernyataan
for langsung dikendalikan oleh suatu peubah yang disebut peubah
kendali (control variables) yang harus bertipe berurutan. Jadi pada
pernyataan for pada dasar sudah diketahui jumlah perulangannya.
Perulangan dengan pernyataan for dapat berupa perulangan positif ('to')
dan perulangan negatif ('downto').
Jika pernyataan yang akan mengalami perulangan lebih dari satu
pernyataan, maka harus diawali dengan begin dan diakhiri dengan end;.



Pengendalian Perulangan
Adakalanya pemrogram menginginkan suatu keadaan dimana dalam
proses perulangan, perulangan dapat dihentikan atau dilanjutkan
tanpa selalu harus melalui pengujian syaratnya. Untuk keperluan itu,
Pascal telah menyediakan dua prosedur bawaan, yaitu Break dan
Continue.
Untuk menghentikan proses perulangan ketika proses belum
mencapai pengujian syaratnya, dapat digunakan prosedur Break.
Sedangkan untuk meneruskan proses perulangan ke proses selanjutnya
ketika proses belum mencapai pengujian syaratnya, dapat digunakan
prosedur Continue.

Program Sederhana dengan Pernyataan Perulangan
Berikut ini akan disajikan pemecahan masalah menggunakan struktur
perulangan.
Contoh yang disajikan adalah membalik sebuah untai karakter yang
dimasukkan pemakai dan menampilkan hasilnya. Algoritma yang
digunakan adalah dengan memasukkan satu demi satu karakter ke
dalam suatu peubah hasil dengan urutan dari depan ke belakang, yang
diambil dari peubah masukan dengan urutan yang berlawanan. Peubah
hasil adalah yang akan ditampilkan.

program P0301;
var
I, Panjang: Integer;
Kata, Balik: string;
begin
Writeln('Balik Kalimat');
Writeln('=============');
Write('Masukkan kalimat : ');
Readln(Kata);
Panjang := Length(Kata);
Balik := '';
for I := Panjang downto 1 do
Balik := Balik + Kata[I];
Writeln('Hasil pembalikannya : ', Balik);
Readln;
end.
Berikut contoh program untuk menampilkan bilangan genap dari 2
sampai dengan 100. Salin program berikut :
program P0302;
var
i: Integer;
begin
Writeln('Bilangan genap');
i := 1;
repeat
Inc(i);
if i mod 2 = 0 then Write(i:4);
until (i=100);
Readln;
end.
Sama halnya dengan struktur kendali yang telah dibahas
sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di
dalam struktur perulangan tertentu terdapat struktur perulangan yang
lain dan seterusnya. Program berikut akan menerapkan struktur
perulangan dengan menggunakan while. Salin program berikut :
program P0303;
var
i, j: Integer;
M: Char;
begin
Modul 3 – Struktur Perulangan 3-20
Write('Masukkan sembarang karakter : ');
Readln(M);
i := 1;
while i <= 10 do
begin
j := 1;
while j <= i do
begin
Write(M);
Inc(j);
end;
Writeln;
Inc(i);
end;
Readln;
end.