End.
Begin
Begin
Var
x,y:real;
x:=-10;
while (x<-5) or (x=0) do
write('x->');
readln(x);
end;
y:=sqrt(x+5)/x+1;
writeln('x=',x);
writeln('y=',y);
Оператор цикла For позволяет выполнить тело цикла определённое количество раз.
Синтаксис оператора For:
For Ид_переменной:= выражение1 to|downto выражение2 do
оператор;
Рисунок 6 – Блок-схема цикла с параметром
Оператор, который содержится в теле цикла for, выполняется один раз для каждого значения в диапазоне между начальным и конечным значением.
Управляющая переменная (Ид_переменной) должна иметь порядковый тип.
Значения выражения1 (начальное значение) и выражения2 (конечное значения) определяются один раз. Эти значения сохраняются на протяжении всего выполнения оператора for.
В результате вычисления выражения1 и выражения2 должны быть получены значения, тип которых совместим по присваиванию с управляющей переменной.
Когда в операторе цикла используется ключевое слово to, значение управляющей переменной увеличивается при каждом повторении цикла на единицу. Если в начале работы цикла начальное значение превышает конечное значение, то содержащийся в теле оператора for оператор не выполнятся.
|
|
Когда в операторе цикла используется ключевое слово downto, значение управляющей переменной уменьшается при каждом повторении на единицу. Если в начале работы такого цикла начальное значение меньше, чем конечное значение, то содержащийся в теле оператора цикла оператор не выполняется.
После выполнения оператора for значение управляющей переменной становится неопределенным.
Приведём эквивалентную схему оператора:
for V:= Expr1 to Expr2 do Оператор;
из которой следуют все вышеприведённые замечания.