While...do

 

while условие do действие;
Цикл будет выполняться, пока условие верно.
Например:

 

var
i:integer;
begin
i:=0
while 1<10 do
i:=i+1;
end;

 

Переменная i имеет целый тип. Переменной i присваиваем 0. После выполняется цикл, который будет выполняться, пока переменная i меньше 10. В данном цикле, в отличие от цикла for, цикл не увеличивает счётчик автоматически, это надо делать вручную.

 

     

 

 

 

 
Hosted by uCoz