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
0 comments:
Post a Comment
Before come back, fill comment please!!