Bei der While-Schleife wird vor dem Eintritt in die Schleife eine Bedingung abgefragt.
Beispiel 1:
Die Niagarafälle wandern jährlich 1,5 m in Richtung
Ontariosee. Die Entfernung zum See betrug im Jahr 2010 12,5 km. Wann
wird der See erreicht?
program Niagarafaelle;
{$APPTYPE CONSOLE}
uses sysutils;
var entfernung : real;
jahr : integer;
begin
jahr := 2010;
entfernung := 12500;
while entfernung > 0 do begin
jahr := jahr + 1;
entfernung := entfernung - 1.5;
end;
writeln('Im Jahr ',jahr,' sind die Niagarafaelle am Ontariosee.');
writeln('Es vergehen also noch ',jahr-2010,' Jahre.');
readln;
end.
