Bentuk – bentuk Perulangan

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. Dalam materi ini akan memberikan

gambaran konsep dasar dari pengertian diatas.

1. Perulangan For.

Perulangan dengan statemen For digunakan untuk mengulang

statemen atau suatu blok statemen berulang kali. Perulangan dengan

statemen For dapat berupa perunlangan positif dan perulangan nega-

tif.

# Perulangan For positif

contoh :

perulangan positif untuk satu statement :

Uses Crt;

Var

i : Integer;

Begin

For i := 1 To 5 Do Writeln ('I Love Dinda’);

END.

Maka bila program diatas dicompile

hasilnya :

I Love Dinda

I Love Dinda

I Love Dinda

I Love Dinda

I Love Dinda

Penjelasan : Berati statemen I Love Dinda akan diulang seba-

nyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai

nilai i terakhir yaitu i ke 5.

# Contoh dengan menggunakan blok statement:

cara penulisannya dengan pada awal blok diawali dengan Begin dan

pada akhir blok diakhiri dengan End;

Uses Crt;

Var

i : Integer;

Begin

For i:= 1 To 10 Do

Begin

Writeln ('I Love Dinda'); { blok statement }

End;

End.

Hasil yang akan didapat akan sama dengan contoh yang pertama,

tapi yang harus diingat disini untuk penggunaan blok pada perula-

ngan For biasanya mempunyai banyak statement [lebih dari 1 state-

ment]

# Contoh 3 :

Penggunaan perulangan For dalam blok statement untuk membuat tabel

Uses Crt;

Var

a,b,c : Integer;

bagi : Real;

Begin

Writeln('----------------------------------------------');

Writeln(' a a*a a*a*a 1/a ');

Writeln('----------------------------------------------');

For a := 1 To 10 Do

Begin

b:= a*a;

c:=a*a*a;

bagi := 1/a;

Writeln(a:4,c:10,d:10,bagi:12:3);

End;

Writeln ('----------------------------------------------');

End.

Maka hasilnya :

----------------------------------------------

a a*a a*a*a 1/a

----------------------------------------------

1 1 1 1.000

2 4 8 0.500

3 9 27 0.333

4 16 64 0.250

5 25 125 0.200

6 36 216 0.167

7 49 343 0.143

8 64 512 0.125

9 81 729 0.111

10 100 1000 0.1000

----------------------------------------------

# Perulangan For negatif

Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke

kecil.

Statement yang digunakan adalah For-DownTo-Do

contoh :

Uses Crt;

Var

i : Integer;

Begin

For i := 10 DownTo 1 Do Write (i:3);

End.

Hasil :

10 9 8 7 6 5 4 3 2 1

# Perulangan For tersarang

Perulangan For tersarang adalah perulangan For yang berada

pada perulangan yang lainnya. Perulangan yang lebih dalam akan

diproses terlebih dahulu sampai habis, kemudian perulangan yang

lebih luar baru akan bertambah, mengerjakan perulangan yang lebih

dalam lagi mulai dari nilai awalnya dan seterusnya.

Contoh :

Var

a,b : Integer;

Begin

For a := 1 To 3 Do

Begin

For b := 1 To 2 Do Write (a :4,b:2);

Writeln;

End;

End.

Hasil :

1 1 1 2

2 1 2 2

3 1 3 2

# Perulangan While - Do

Penyeleksian kondisi digunakan untuk agar program dapat

menyeleksi kondisi, sehingga program dapat menentukan tindakan apa

yang harus dikerjakan, tergantung dari kondisi yang diseleksi

tersebut. Perulangan While – Do tidak dilakukan jika kondisi tidak

terpenuhi.

Contoh :

Uses Crt;

Var i : Integer;

Begin

i := 0;

While <>

Begin

Write (i:3);

Inc (i); { sama dengan i:=i+1 }

End;

End.

Hasilnya :

0 1 2 3 4

# Perulangan While – Do tersarang

Perulangan While – Do tersarang (nested While - Do) merupakan

perulangan While – Do yang satu di dalam perulangan While – Do yang

lainnya.

Contoh :

Uses Crt;

Var

a, b : Integer;

Begin

ClrScr;

a:=1;

b:=1;

While a <>

Begin

a := a+1;

While b <>

Begin

Write (a:3,b:2);

b:=b+1;

End;

End;

Readln;

End.

# Perulangan Repeat - Until.

Repeat – Until digunakan untuk mengulang statement-statemen

atau blok statement sampai (Until) kondisi yang diseleksi di Until

tidak terpenuhi.

Sintak dari statement ini adalah :

Contoh :

Var

i : Integer;

Begin

i:=0;

Repeat

i:= i+1;

Writeln (i);

Until i=5;

End.

hasil :

1

2

3

4

5

# Repeat – Until tersarang

Repeat – Until tersarang adalah suatu perulangan Repeat - Until

yang satu berada didalam perulangan Repeat – Until yang lainnya.

Contoh :

Var

a,b,c : Real;

Begin

Writeln('========================================');

Writeln(' sisi A sisi B Sisi C ');

Writeln (' =======================================');

a:= 1;

Repeat { perulangan luar }

b := 0;

Repeat{ perulangan dalam }

c:=Sqrt (a*a+b*b);

Writeln (a:6:2, b:9:2, c:9:2);

b:=b+5;

Until b>25; { berhenti jika b lebih besar dari 5 untuk

perulangan dalam }

a:=a+1;

Until a>3; { berhenti jika a lebih besar dari 3 untuk

perulangan luar }

Writeln(' =======================================');

End.

Sumber http://www.ilmukomputer.com