Pêtla While ... do
Pêtla While... do, z zastosowania, nieco przypomina repeat... until... Ró¿ni siê miejscem i sposobem sprawdzania warunku. Znaczy "Dopóki warunek jest spe³niony wykonuj". Ró¿ni siê wiêc od repeat sposobem sprawdzania. W repeat gdy warunek by³ spe³niony pêtla koñczy³a siê, tu gdy warunek jest NIE SPE£NIONY pêtla siê koñczy.
Poza tym w repeat zadanie z pêtli wykonywa³o siê chocia¿ raz, we while, gdy warunek jest nie spe³niony, nie wykona siê ani razu. Wynika to, z tego, ¿e while sprawdza warunek przed pêtl±, repeat po pierwszej pêtli.
Przyk³ad – oczekiwanie na naci¶niêcie dowolnego klawisza:
uses Crt;
begin
while not keypressed do ;
end.
Pêtla while wymaga zastosowania begin, end, gdy mamy zamiar u¿ywaæ wiêcej ni¿ jednej instrukcji.
Przyk³ad – oczekwianie na naci¶niêcie dowolnego klawisza, zliczanie wywo³añ pêtli
uses Crt;
var i : LongInt;
begin
while not keypressed do
begin
i := i + 1;
WriteLn('Pêtla wykonuje siê po raz ', i);
end;
end.