Первая форма счетного оператора цикла позволяет наращивать параметр цикла на единицу (+1):
FOR <параметр цикла>:= <min значение> TO <max значение> DO <оператор>;
(Для) (увеличивая к) (выполнять)
где <параметр цикла> - это переменная целого либо любого порядкового типа; <min, max значения> - это начальное и конечное значения параметра цикла (выражения того же типа, что и параметр цикла).
Вторая форма позволяет уменьшать значение параметра цикла на единицу (-1):
FOR <параметр цикла>:= <max знач.> DOWNTO <min знач.> DO <оператор>;
Program Lab3;
Const а = 1; b = 3;
Var F1, F2, x, dx: real; {dx - шаг изменения х}
i, n: integer; {i - пеpеменная цикла}
Begin
writeln ('введите число точек N');
readln (n);
dx: = (b-a)/(n-1);
x:=a;
writeln (' _____________________________');
writeln ('| I | X | F1 | F2 |');
writeln ('|---|--------------|------------|------------|');
for i:=1 to n do {опеpатоp цикла}
begin
F2:= x*sqr(ln(x));
F1:= sqrt(exp(x)-1);
writeln('|', i:3,' |', x:8:3,'|', f1:8:4,' |', f2:8:4,' |');
x:=x+dx;
end;
writeln('|________________________|);
End.