  
While...do
while условие do действие;
Цикл будет выполняться, пока условие верно.
Например:
var
i:integer;
begin
i:=0
while 1<10 do
i:=i+1;
end;
Переменная i имеет целый тип. Переменной i присваиваем 0.
После выполняется цикл, который будет выполняться, пока
переменная i меньше 10. В данном цикле, в отличие от цикла
for, цикл не увеличивает счётчик автоматически, это надо
делать вручную.

|