Pernyataan Perulangan

Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Dalam hampir setiap program yang kompleks mutlak memerlukan suatu perulangan dan percabangan. Tujuan perulangan disini adalah untuk mengulang statement atau blok statement berulang kali sesuai sejumlah yang ditentukan pemakai. Pengulangan dapat dilakukan sejumlah kali, atau sampai kondisi berhenti dan pengulangan tercapai. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do,  dan Repeat…Until.

  

Pernyataan FOR

Pernyataan for adalah konstruksi pengulangan tanpa kondisi, artinya instruksi-instruksi di dalam badan pengulangan diulangi sejumlah kali yang di spesifikasikan oleh pemrogram. Dalam hal ini, jumlah pengulangan sudah diketahui sebelum konstruksi pengulangan eksekusi. Perulangan dengan pernyataan For digunakan untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Jumlah pengulangan diketahui atau dapat ditentukan sebelum eksekusi. Untuk mencacah beberapa kali pengulangan dilakukan, diperlukan sebuah peubah (variable) pencacah (counter). Peubah ini nilainya selalu bertambah satu setiap kali pengulangan dilakukan. Jika cacah pengulangan sudah mencapai jumlah yang dispesifikasikan, maka proses pengulangan berhenti. Perulangan dengan pernyataan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.

Perulangan Positif

Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan menggunakan pernyataan For-To-Do, dengan bentuk umum:
For variabel-kontrol:=nilai awal To nilai akhir Do
pernyataan

Contoh perulangan positif :
Contoh 1. Mencetak “saya sedang belajar for” sebanyak 5 kali.
Program cetak;
Uses wincrt;
Var
   I:Integer;
Begin
   For I:= 1 to 5 Do Writeln(‘sedang belajar for’);
End.

Contoh 2. Menjumlahkan deret 1 sampai N (1+2+3…+N). N adalah bilangan bulat positif.
Program penjumlahan_deret;
Uses wincrt;
Var
N :integer;
I :integer;
Jumlah:integer;
Begin
Write (‘berapa N ?’);readln(N);
Jumlah:=0;
For I := 1 to N do
Begin
Jumlah := jumlah + i
End;
Writeln (‘jumlah deret = ‘ , jumlah);
End.


Perulangan Negatif

Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk dengan menggunakan pernyataan For-DownTo-Do, dengan bentuk umum:
For variabel-kontrol := nilai awal DownTo nilai akhir Do
penyataan

Contoh perulangan negatif :
Contoh 3. Mencetak menurun angka 5 sampai dengan 1
Program cetak_menurun;
Uses wincrt;
Var
   I:integer;
Begin
   For I:=5 downto 1 do
   Begin
        Writeln(I);
   End;
End.

Perulangan Bersarang

Perulangan bersarang 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.

Contoh perulangan bersarang:
Contoh 4. Mencetak matrix:
1 1     1 2        1 3
2 1     2 2        2 3
3 1     3 2        3 3
4 1     4 2        4 3
5 1     5 2        5 3
 
Program cetak2;
Uses wincrt;
Var
   I,J:Integer;
Begin
   For I:=1 to 5 Do
   Begin
        For j:=1 to 3 Do
        Begin
             Write(I:8,J:3);
        End;
        Writeln;
   End;
End.

Pernyataan WHILE

Pada struktur WHILE, aksi (atau runtunan aksi) akan dilaksanakan berulang kali selama kondisi bernilai true. Jika kondisi bernilai false, badan pengulangan tidak akan dilaksanakan, yang berarti pengulangan selesai. Yang harus diperhatikan adalah pengulangan harus berhenti. Pengulangan yang tidak pernah berhenti menandakan bahwa logika pemrograman tersebut salah. Pengulangan berhenti apabila kondisi bernilai false. Agar kondisi suatu saat bernilai false, maka di dalam badan pengulangan harus ada instruksi yang mengubah nilai variabel kondisi.

while kondisi do
aksi

Contoh 1. Perulangan dengan while
Program perulanganwhile;
Uses wincrt;
Var
I:integer;
Begin
writeln('Program Perulangan dengan While');
I:=1;
While i<= 10 do 

Begin 

Writeln(i); I:=i+1; 

End; 

End. 

Contoh 2. Menghitung rata-rata dengan while dengan syarat nilai tidak boleh nol.

Program rerata2; 

uses wincrt; 

var i,x,jumlah:integer;

rerata:real; 

begin 

writeln('Masukan nilai-nilai (0 untuk berhenti)=');

readln(x);

i:=0; 

while x<>0 do
begin
i:=i+1;
jumlah:=jumlah+x;
read(x);
end;
rerata:=jumlah/i;
writeln(‘Jumlah=’,jumlah);
writeln(‘Rerata=’,rerata);
end.

Pernyataan REPEAT

REPEAT...UNTIL berfungsi hampir sama dengan WHILE...DO. Pada REPEAT...UNTIL, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE. Repeat – Until digunakan untuk mengulang statement-statemen atau blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi.
Perbedaannya, pengulangan Repeat-Until dengan While-Do terletak pada letak pengecekan kondisi. Jika pada pernyataan While-Do kondisi dicek pada awal blok pernyataan yang harus diulang, sedangkan pada pernyataan Repeat Until, kondisi dicek pada akhir blok pernyataan yang harus diulang. Perbedaan yang lain, bila pernyataan while mengulang pernyataan selama kondisi masih terpenuhi, pernyataan repeat..until mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umum penyataan repeat..until adalah sebagai berikut.

Repeat
(pernyataan-pernyataan yang akan diulang)
until kondisi

Contoh 1. program mencetak 5 bilangan bulat pertama menggunakan repeat-until

Program cetak;
Uses wincrt;
Var
i : Integer;
Begin
i:=0;
Repeat
i:= i+1;
Writeln (i);
Until i=5;
End.


Contoh 2. Program mencetak ulangan ke-1 sampai ke-10

Uses wincrt;
Var
n : integer;
Begin
n:= 1;
Repeat
Writeln ('Ulangan ke :',n);
n:= n + 1;
Until n >= 10;
Readln;
End.


Contoh 3. Program menghitung berat badan ideal

program berat_badan;
uses wincrt;
var
t,m:real;
j:char;
begin
repeat
begin
write('Masukkan tinggi badan Anda=');readln(t);
m:=((t-100)-(0.1*(t-100)));
writeln('Berat ideal Anda= ',m:2:0);
write('Anda Ingin menghitung lagi?=');readln(j);
end;
until (j<>'y');
end.

Pernyataan Repeat – Until tersarang

Repeat – Until tersarang adalah suatu perulangan Repeat – Until yang satu berada didalam perulangan Repeat – Until yang lainnya.

Contoh 4: Program mencetak baris dan kolom menggunakan repeat until bersarang

Program Perulangan_Repeat_2;
Var I, J : Integer;
Begin
I:= 0;
Repeat
I:= I + 1;
J:= 0;
Repeat
J:= J + 1;
Writeln (I : 5, J : 5);
Until J = 3;
Until j = 3;
End.

Contoh 5: program menghitung gaji bersih pegawai. Input : nama, alamat, golongan (A dan B), dan status (tidak menikah, janda, duda, sudah menikah). Jika termasuk golongan A maka gaji pokok Rp.500.000. Jika golongan B maka gaji pokok Rp.1000.000. jika status sudah menikah maka mendapatkan tunjangan sebesar 10 % dari gaji pokok, selain itu tidak mendapatkan tunjangan. Gaji bersih pegawai adalah gaji pokok + tunjangan. Output : nama, alamat, golongan, status, tunjangan, total gaji.

Program gaji;
uses crt;
var
gapok: longint;
gaji,tunj: real;
gol: char;
nama, alamat, status: string;
begin
clrscr;
write('Masukkan nama : '); readln(nama);
write('Masukkan alamat : '); readln(alamat);
repeat
write('Masukkan golongan : '); readln(gol);
gol := UpCase(gol);
until (gol = 'A') or (gol = 'B');
repeat
write('Masukkan status : '); readln(status);
until (status='tidak menikah') or (status='janda') or
(status = 'duda') or (status='sudah menikah');
if gol = 'A' then
gapok := 500000
else
gapok := 1000000;
if status = 'sudah menikah' then
tunj := 0.1 * gapok
else
tunj := 0;
gaji := gapok + tunj;
clrscr;
writeln('Nama anda adalah ',nama,' dan beralamat di ',alamat);
write('Anda bekerja di Golongan ',gol);
writeln(' sehingga gaji pokok anda sebesar Rp', gapok);
writeln('Status anda adalah ', status);
writeln('Sehingga anda mendapat tunjangan sebesar Rp', tunj:0:0);
writeln('Berdasarkan hal tersebut, total gaji anda sebesar Rp', gaji:0:0);
readln;
end. 

Sumber: http://iwaey-uedan.blogspot.com/2011/02/pengulanagn-pascal.html