Pascalda While Do döngüsünü kullanmak için;
while koşul do
Begin
ifade;
ifade2;
End;
kullanımı bu şekildedir. Yukarıda koşıl yazan yere şart konur. Mesela kontrol değişkeni 0 dan büyükse şeklinde.
Bir örnekle açıklayalım.
uses crt; {Ekranı temizlemek için gereken komutu çağırdık.}
Var {Değişken tanımlamak için Var kullanılır}
kontrol:integer; {kontrol değişkeni tam sayı değeri alacak}
Begin {Başlıyoruz}
clrscr; {Ekranı temizledik}
kontrol:=5; {kontrol değişkenine 10 değerini atadık}
While kontrol>0 Do
Begin
writeln('Merhaba Dünya ',kontrol); {Ekrana yazdırdık}
kontrol:=kontrol-1; {kontrol değişkeni bir azaltıldı}
End;
End.
Bu programın çıktısı şöyle olur.
Merhaba Dünya 5
Merhaba Dünya 4
Merhaba Dünya 3
Merhaba Dünya 2
Merhaba Dünya 1