PERULANGAN (LOOPING) PADA PASCAL

Perulangan (loop) merupakan bentuk yang sering ditemui dalam suatu program
aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan
menggunakan statemen For, While-Do dan Repeat….Until.
Struktur Perulangan For
Perulangan dengan statemen For digunakan untuk mengulang statemen atau satu
blok statemen berulang kali sejumlah yang ditentukan. Perulangan dapat berbentuk
perulangan positif, negatif dan tersarang.

1. Perulangan Positif
Merupakan perulangan dengan penghitung (counter) dari kecil ke besar.
Pendeklarasian perulangan ini adalah sebagai berikut :
Variabel_kontrol, nilai_awal dan nilai_akhir harus mempunyai tipe yang sama,
yaitu bertipe integer.
CONTOH :
Program Perulangan_For_Positif;
Var i : byte;
Begin
For i := 1 To 5 Do
Writeln (i);
Readln;
End.

Bila statemen lebih dari satu perintah, maka blok perintah-perintah tersebut harus
diawali dengan begin dan diakhiri dengan end.
CONTOH :
Program Perulangan_For_Positif;
Var i : byte;
Begin
For i := 1 To 5 Do
Begin
Write ('No ');
Writeln (i);
End;
Readln;
End.

CONTOH LAIN:
program mahasiswa;
uses crt;
var
i:integer;
begin
clrscr;
for i:= 1 to 5 do
writeln(‘Belajar Pascal’);
readln
end.
Hasil:
Belajar Pascal
Belajar Pascal
Belajar Pascal
Belajar Pascal
Belajar Pasca

2. Perulangan Negatif
Merupakan perulangan dengan penghitung (counter) dari besar ke kecil.
Pendeklarasian perulangan ini adalah sebagai berikut :
FOR variabel_kontrol := nilai_awal To nilai_akhir DO
Statemen

CONTOH :
Program Perulangan_For_Negatif;
Begin
For i := 5 DownTo 1 Do
Begin
Write ('No ');
Writeln (i);
End;
Readln;
End.

CONTOH
uses wincrt;
var
i : integer;
begin
for i:=10 down to 1 do
 write(i:3);
end.

hasil:
    10    9     8   7   6   5  4   3   2   1
3. Perulangan Tersarang (Nested Loop)
Merupakan perulangan yang berada di dalam perulangan yang lainnnya. Pada
sistem perulangan ini, perulangan yang lebih dalam akan diproses terlebih dahulu
sampai habis, kemudian perulangan yang lebih luar baru akan bertambah,
kemudian mengerjakan perulanan yang lebih dalam lagi mulai dari nilai awalnya,
dan seterusnya.
CONTOH :
Program Perulangan_For_Bersarang;
Var i : integer;
Begin
{ **** Perulangan Luar **** }
For i := 1 To 3 Do
Begin
Write ('Luar = ');
Writeln (i);
{ ---- Perulangan Dalam ---- }
For j := 1 To 5 Do
Begin
Write ('Dalam = ');
Writeln (j);
End;
{ - Batas Perulangan Dalam - }
End;
{ * Batas Perulangan Luar * }
Readln;
End.


CONTOH 2 :
for x :=1 to 3 do
      for y := 1 to 2 do
              writeln(x,'  ',y);
hasilny:
11
12
21
22
31
32

Struktur Perulangan While-Do
Struktur perulangan ini memiliki bentuk sebagai berikut :
Perulangan dengan statemen While-Do digunakan untuk melakukan perulangan
suatu statemen atau blok statemen terus-menerus selama kondisi ungkapan_logika
pada while masih bernilai logika benar.
FOR variabel_kontrol := nilai_awal DownTo nilai_akhir DO
Statemen
Dalam
Luar
WHILE ungkapan_logika DO
Statemen

CONTOH :
Program Perulangan_While_Do;
Var i : byte;
Begin
i := 1;
While i <= 5 Do
Begin
Write ('No ');
Writeln (i);
i := i + 1;
End;
Readln;
End.

Struktur Perulangan Repeat…Until
Struktur perulangan ini memiliki bentuk sebagai berikut :
Perulangan dengan statemen Repeat…Until digunakan untuk melakukan mengulang
(repeat) statemen-statemen sampai batas (until) kondisi yang diseleksi di until tidak
terpenuhi.
CONTOH :
Program Perulangan_Repeat_Until;
Var i : byte;
Begin
i := 1;
Repeat
Write ('No ');
Writeln (i);
i := i + 1;
Until i > 5;
Readln;
End.
Catatan :
Proses perulangan tersarang berlaku pada perulangan For, While-Do maupun
Repeat….Until. Perulangan tersarang tidak menutup kemungkinan untuk
memadukan ketiga perulangan tersebut.

Sumber : http://royal-pascal.blogspot.com/

              http://1nuy4s4.wordpress.com/perulangan-pada-bahasa-pascal/