Оператор цикла с
предусловием организует выполнение операторов заранее
неизвестное число раз. Выход из цикла осуществляется, если некоторое
логическое выражение окажется ложным. Так как истинность логического
выражения проверяется в начале, тело цикла может не выполнится ни разу.
Структура цикла с предусловием
WHILE <условие> DO
begin
<тело цикла>
end;
<условие> - логическое выражение, истинность которого проверяется вначале выполнения циклического оператора;
<тело цикла> - любые выполняемые операторы языка.
Порядок выполнения цикла:
Пока условие истинно выполняется тело цикла. Как только условие становится ложно выполнение цикла прекращается.
Пример:
{Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30}
program summa;
var
sum:real;
n:real;
BEGIN
sum:=0;
n:=1;
while n<=30 do
begin
sum:=sum+n;
n:=n+0.5;
end;
writeln('Сумма равна: ',sum);
END.
Скачать пример
| 
