Object Pascal - Elöltesztelő ciklus: while do

Feltétel tesztelése a ciklus elején történik. Minden egyes ismétlés előtt leteszteli hogy teljesült-e a feltétel. Az első végrehajtás előtt is történik tesztelés, ezért ez a ciklus használata kitűnő olyan helyzetekben ahol megeshet hogy egyszer se kell végrehajtani a ciklust.

while do

Leírás

while condition do statement;
Használt kulcsszavak: do while

Bemenet

Megjegyzés: Itt használható utasítások:
Megszakító utasítás Következő iteráció elindítása

Példaprogramok

Object Pascal

Elöltesztelő ciklus lehetséges használata:
i:=0;
while i<10 do inc(i);
x :=0;
while i<20 do
begin
 i:= i+2;
 if i=16 then
 begin
    continue
 end;
 inc(x); 
end;

Object Pascal

További példaprogram részletek:
while i>0 do
   if i=10 then
     break
   else 
   begin
     dec(i)
   end;
while y>1 do
begin
  inc(x);
  dec(y);
end;
if  x >= 12 then
   while  y >= 0 do  
      dec(y);
while  y <= 32 do  
   inc(y);
Más nyelveken: en hu cz sk