Statemen While-Do
Statemen While-Do digunakan untuk melakukan proses
perulangan suatu statemen atau blok statemen terus-menerus selama kondisi
ungkapan logika pada While masih bernilai logika benar. Pada pengulangan while
terdapat suatu kondisi yang harus diperiksa terlebih dahulu. Apabila kondisi
yang didefinisikan bernilai benar (true) maka statemen yang terdapat dalam blok
pengulangan pun akan dieksekusi. Sebaliknya apabila kondisi salah (false), maka
program tidak akan pernah memasuki blok pengulangan. Dengan kata lain, statemen
dalam blok pengulangan akan diabaikan.
Bentuk umum pendeklarasian:
Bila program dijalankan maka didapatkan output :
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
{apabila
hanya terdapat satu statemen}
while
(kondisi) do
statemen;
{apabila
terdapat lebih dari satu statemen}
while
(kondisi) do begin
statemen1;
statemen2;
….
end;
Contoh1: program yang
menggunakan pengulangan while :
program
statemenwhile1;
uses crt;
var
i:integer;
{variabel untuk indeks pengulangan}
begin
clrscr;
{inisialisasi nilai indeks dengan nilai 1}
i := 1;
{melakukan pengulangan dengan indeks awal
= 1}
while (i <=5) do begin
writeln('Bahasa Pemograman Pascal');
i := i+1; {menaikkan nilai i sebesar 1}
end;
end.
Bila program dijalankan maka didapatkan output :
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Penjelasan:
Apabila program tersebut dijalankan maka akan tampil teks
‘Bahasa Pemograman Pascal’ sebanyak 5 kali. Mula-mula variabel i bernilai 1.
selanjutnya program akan memeriksa apakah nilai i lebih kecil atau sama dengan
5, atau tidak. Oleh karena 1 lebih kecil dari 5, maka kondisi diatas terpenuhi
atau bernilai true sehingga statemen didalam blok pengulangan akan dieksekusi
untuk pertama kali. Selanjutnya nilai i akan dinaikkan satu sehingga bernilai
2. program akan kembali melakukan pengecekan terhadap nilai i. Oleh karena 2
juga masih lebih kecil dari 5, maka statemen akan dieksekusi untuk kedua
kalinya. Begitu seterusnya sampai variabel i bernilai 6. Pada saat nilai i sama
dengan 6, maka program akan dihentikan. Hal ini disebabkan karena 6 tidak lebih
kecil dari 5 atau sama dengan 5, sehingga kondisi sudah tidak terpenuhi lagi
atau telah bernilai false.
Statemen repeat
Blok pengulangan jenis ini sebenarnya mirip dengan blok
pengulangan while, perbedaannya hanya pada jenis ini pengulangan akan terus
dilakukan apabila kondisi yang didefinisikan masih bernilai false. Jadi dengan
kata lain pengulangan hanya akan dihentikan apabila kondisi bernilai true.
Dalam pengulangan ini kondisi akan dituliskan di akhir blok. Hal ini tentu
menyebabkan pada blok pengulangan jenis ini statemen minimal akan dieksekusi
satu kali, walaupun ternyata kondisi yang didefinisikan terpenuhi atau bernilai
true. Pengulangan jenis ini pada umumnya digunakan untuk kasus-kasus
pengulangan yang tidak bergantung pada kondisi awal.
Bentuk umum pendeklarasiannya :
program
statemenrepeat1;
uses crt;
var
i:integer;
begin
clrscr;
i:=1;
repeat
writeln('Bahasa Pemograman Pascal');
i:=i+1;
until (i>5);
readln;
end.
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
Bahasa Pemograman Pascal
