Perulangan while…do

Pada struktur WHILE, aksi (atau runtunan aksi) akan dilaksanakan berulang kali selama kondisi bernilai true. Jika kondisi bernilai false, badan pengulangan tidak akan dilaksanakan, yang berarti pengulangan selesai.

Yang harus diperhatikan adalah pengulangan harus berhenti. Pengulangan yang tidak pernah berhenti menandakan bahwa logika pemrograman tersebut salah.

Pengulangan berhenti apabila kondisi bernilai false.

while kondisi do

           aksi

Contoh Kode Program While ...do

Contoh 1 :

Program while_do;

uses wincrt;

var i:integer;

begin

     i:= 1;

     while i <3 do

     begin

          write (' Mandiri, Cerdas, Berintegritas ');

          i:= i+1;

          writeln;

     end;

end.

Contoh 2 :

Program perulanganwhile;

Uses crt;

Var

I:integer;

Begin

writeln('Program Perulangan dengan While');

I:=1;

While i<= 10 do

Begin

Writeln(i); I:=i+1;

End;

End.