Hans

Syntax untuk perulangan While-Do :

while (condition) do s;

dimana,condition adalah boolean atau ekspresi yang berelasi dimana nilainya adalah true atau false dan S adalah statemen simpel atau beberapa statemen didalam BEGIN...END.

Contohnya

while number>0 do
  begin
   sum := sum + number;
   number := number - 2;
  end;

Ketika kondisi tersebut menjadi false,maka program akan melewati statemen tersebut mengkuti perulangan.

Contoh Program

program whileLoop;
  var
   a: integer;

  begin
   a := 10;
   while  a < 20  do
   
   begin
      writeln('value of a: ', a);
      a := a + 1;
   end;
  end.

Ketika kode diatas di compiled dan dijalankan akan menghasilkan :

value of a: 10
  value of a: 11
  value of a: 12
  value of a: 13
  value of a: 14
  value of a: 15
  value of a: 16
  value of a: 17
  value of a: 18
  value of a: 19