Perulangan

Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do,  dan Repeat…Until.

a.       Pernyataan For  digunakan untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Perulangan dengan pernyataan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.

1.      Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan menggunakan pernyataan For-To-Do.

2.      Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk dengan menggunakan pernyataan For-DownTo-Do.

3.      Perulangan tersarang adalah perulangan yang berbeda di dalam perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan akan bertambah, mengerjakan perulangan yang lebh dalam lagi mulai dari nilai awalnya dan seterusnya.

b.      Pernyataan While—Do digunakan untuk melakukan proses perulangan suatu pernyataan atau blok pernyataan terus-menerus selama kondisi ungkapan logika pada While masih bernilai logika benar.

Bentuk Umum : While kondisi ungkapan Do Pernyataan

c.       Struktur Repeat…Until  digunakan untuk mengulang pernyataan-pernyataan atau blok pernyataan sampai kondisi yang diseleksi di Until  tidak terpenuhi.

Contoh program :

Program cetak_tulisan;

Uses crt;

Var

      x, banyak : integer;

      Kalimat : string;

Begin

Clrscr;

Write(‘Tulisan yang ingin Anda tampilkan : ‘): readln(kalimat);

Write(‘Jumlah Pengulangan : ‘); readln(banyak);

x:=0;

While x < banyak do

Begin

Writeln(kalimat);

x:=x+1;

readkey;

end;

end.

Program segitiga;

Uses crt;

Var

      Jumlah_baris, symbol, spasi, n, x : integer;

Begin

Clrscr;

Write(‘masukan jumlah baris : ‘); readln(jumlah_baris);

For n:=1 to jumlah_baris do

Begin

Spasi:=jumlah_baris-n;

Symbol:=1+(n-1)*2;

Writeln;

For x:=1 to spasi do write(‘ ‘);

For x:=1 to symbol do write(‘*’);

End;

Readkey;

end.

Proses perulangan tersarang berlaku pada perulangan For, While-Do maupun Repeat….Until. Perulangan tersarang tidak menutup kemungkinan untuk memadukan ketiga perulangan tersebut.