While Do Pada Delphi

While … Do

Berbeda dengan For … Do, jumlah perulangan pada while tidah diketahui. Eksekusi akan keluar dari perulanga jika suatu kondisi tidak terpenuhi. Jadi pernyataan While akan melakukan perulangan selama keadaan atau kondisi benar.

Sintaknya adalah :

While Kondisi Do

            Pernyataan yang diulang;

Dengan sintak seperti itu, jumlah minimum perulangan adalah NOL.

Pernyataan for jika dikonversi ke While menjadi :

counter :=Awal;

  while counter <= Akhir do

  begin

            Pernyataan yang diulang;

Counter:=Counter+1;

  end;

Contoh:

Awal:=1;

Counter:=Awal;

While Counter<=Akhir do

Begin

            Hasil:=Hasil+Awal;

            Counter:=Counter+1;

End;