Perulangan While Do Delphi

Pernyataan While Do berfungsi untuk mengulang suatu blok pernyataan selama kondisi / syarat yang diberikan terpenuhi atau bernilai benar (true). Pernyataan ini biasanya digunakan jika jumlah perulangan belum diketahui, namun dapat juga digunakan untuk perulangan yang jumlah perulangan sudah diketahui.

Bentuk umum dari pernyataan ini adalah sebagai berikut :

While < kondisi > do < pernyataan >;

Atau

While < kondisi > do

begin

< pernyataan >

end;

Langkah yang dikerjakan dalam perulangan adalah

a. Program akan menguji yang diberikan

b. Jika bernilai salah maka akan keluar dari blok perulangan dan menjalankan perintah selanjutnya (jika ada).

c. Jika bernilai benar maka akan menjalankan pernyataan

d. Kembali ke langkah a

Perulangan dengan while akan berhenti jika kondisi tidak lagi terpenuhi, namun perulangan while juga dapat dipaksakan berhenti dengan menggunakan perintah break. Ketika perintah break diberikan maka program akan keluar dari blok perulangan while dan menjalankan perintah selanjutnya.

Untuk lebih jelasnya perhatikan beberapa contoh berikut :

while x <= 20 do x:=x+1;

Kode diatas akan menjalankan perulangan selama nilai variabel x kurang dari atau sama dengan 20. Pernyataan yang dikerjakan adalah penambahan nilai variabel x dengan angka 1. Sehingga apabila nilai x awal adalah 0 maka program akan berhenti jika nilai x akhir adalah 21. Namun jika nilai x awal lebih dari 20 maka pernyataan tidak akan dikerjakan.

x := 0;

while x <= 10 do

begin

writeln(IntToStr(x));

x := x + 1;

end;

Kode diatas akan menghasilkan output berupa nilai 0 , 1 , 2 sampai 10. Terlihat bahwa nilai awal dari variabel x adalah 0, kemudian dibandingkan apakah nilai x kurang dari atau sama dengan 10 ? jika ya maka akan menampilkan nilai tersebut ke layar, kemudian nilai x ditambahkan 1, lalu nilai x diuji lagi dengan membandingkan apakah nilai x sekarang kurang dari atau sama dengan 10? Jika ya maka akan menampilkan nilai x ke layar. Proses ini akan terus dilakukan selama kondisinya bernilai benar. Dan akan berhenti jika nilai x sudah lebih dari 10.

sumber :

- Panduan Lengkap Pemrograman Borland Delphi 5.0, Penerbit Andi, 2001.

My Blog My Experience

Perulangan While Do Delphi