Форматы оператора
For <идентификатор переменной>:=<выражение1> to <выражение2> do
[<инструкция>];
Для значений переменной от выражение1 до выражение2 выполняется инструкция, происходит переход к следующему значению переменной.
For <идентификатор переменной>:=<выражение1> downto <выражение2> do
[<инструкция>];
Для значений переменной от выражение1 до выражение2 выполняется инструкция, происходит переход к предыдущему значению переменной.
Переменная должна быть перечисляемого типа (смотрите выше).
Операция имеет смысл, если для выражение1 и выражение2 выполняются соответственно отношения меньше или равно для первого варианта и больше или равно для второго.
Пример
Program prim06;
Var
b,c:integer;
v:real;
Begin
Write('b=');
Readln(b);
c:=1;
while c<=20 do
begin
v:=(b+c)/3.56;
Writeln('v=',v:6:2);
c:=c+1
end
End.
Program prim07;
Var
b,c:integer;
v:real;
Begin
Write('b=');
Readln(b);
c:=1;
repeat
v:=(b+c)/3.56;
Writeln('v=',v:6:2);
c:=c+1
until c>20
End.
Program prim08;
Var
b,c:integer;
v:real;
Begin
Write('b=');
Readln(b);
For c:=1 to 20 do
begin
v:=(b+c)/3.56;
Writeln('v=',v:6:2);
end
End.
Program prim09;
Var
b,c:integer;
v:real;
Begin
Write('b=');
Readln(b);
For c:=20 downto 1 do
begin
v:=(b+c)/3.56;
Writeln('v=',v:6:2);
end
End.
В приведенных выше примерах показаны различные способы вычисления с выводом на печать значений выражения.
