Perulangan While Do Delphi

Pernyataan While...Do digunakan untuk mengulang suatu blok perintah selama kondisi yang diberikan bernilai benar (True). Perulangan ini umumnya digunakan ketika jumlah pengulangan belum diketahui secara pasti. Namun, perulangan While...Do juga dapat digunakan pada kondisi di mana jumlah pengulangan sudah diketahui.

Bentuk Umum

while <kondisi> do
    <pernyataan>;

atau

while <kondisi> do
begin
    <pernyataan>;
end;

Cara Kerja Perulangan While...Do

Proses yang terjadi pada perulangan While...Do adalah sebagai berikut:

Program memeriksa kondisi yang diberikan.
Jika kondisi bernilai False (salah), program akan keluar dari perulangan dan melanjutkan ke perintah berikutnya (jika ada).
Jika kondisi bernilai True (benar), program akan menjalankan pernyataan yang berada di dalam blok perulangan.
Setelah seluruh pernyataan dijalankan, program kembali memeriksa kondisi dari awal.
Proses tersebut akan terus berulang hingga kondisi bernilai False.

Menghentikan Perulangan dengan Break

Perulangan While...Do secara normal akan berhenti ketika kondisi tidak lagi terpenuhi. Namun, perulangan juga dapat dihentikan secara paksa menggunakan perintah Break.

Ketika perintah Break dijalankan, program akan langsung keluar dari blok perulangan dan melanjutkan eksekusi ke perintah berikutnya.

Contoh 1

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

Pada contoh di atas, perulangan akan terus dijalankan selama nilai variabel x kurang dari atau sama dengan 20. Setiap kali perulangan berlangsung, nilai x akan ditambah 1.

Misalnya, jika nilai awal x = 0, maka perulangan akan berhenti ketika nilai x menjadi 21. Sebaliknya, jika nilai awal x sudah lebih besar dari 20, maka pernyataan di dalam perulangan tidak akan dijalankan sama sekali.

Contoh 2

x := 0;

while x <= 10 do
begin
    writeln(IntToStr(x));
    x := x + 1;
end;

Kode di atas akan menghasilkan keluaran sebagai berikut:

Penjelasannya:

Variabel x diberi nilai awal 0.
Program memeriksa apakah x <= 10.
Karena kondisi bernilai True, nilai x ditampilkan ke layar.
Nilai x kemudian ditambah 1.
Program kembali memeriksa kondisi x <= 10.
Proses ini terus berulang hingga nilai x menjadi 11.

Ketika nilai x = 11, kondisi x <= 10 bernilai False, sehingga perulangan berhenti.

Kesimpulan

Perulangan While...Do merupakan salah satu struktur pengulangan yang digunakan untuk menjalankan suatu blok perintah selama kondisi tertentu masih bernilai True. Perulangan ini sangat cocok digunakan ketika jumlah pengulangan belum diketahui secara pasti dan akan berhenti secara otomatis ketika kondisi tidak lagi terpenuhi atau ketika perintah Break dijalankan.

Sumber: