Составить программу вычисления и печати значения функции f(x) на заданном отрезке с использованием оператора цикла FOR - Free Pascal

Формулировка задачи:

Составить программу вычисления и печати значения функции f(x) на заданном отрезке с использованием оператора цикла FOR. Функция, отрезок, шаг.

Решение задачи: «Составить программу вычисления и печати значения функции f(x) на заданном отрезке с использованием оператора цикла FOR»

Листинг программы

var x,i:integer;
    f:real;
begin
for x:=-8 to 8 do
 begin
  f:=1;
  for i:=1 to abs(x) do
  if x<0 then  f:=f/(exp(1)+sin(x))
  else f:=f*(exp(1)+sin(x));
  writeln('x=',x:2,' f(x)=',f:10:4);
 end;
readln
end.

Объяснение кода листинга программы

Объявлены переменные x, i и f типа integer и real соответственно.
Задается отрезок, на котором будет вычисляться функция f(x) от -8 до 8.
Запускается цикл for, который будет выполняться для каждого значения x из заданного отрезка.
Внутри цикла for, объявляется переменная f и инициализируется значением 1.
Запускается вложенный цикл for, который будет выполняться от 1 до абсолютного значения x.
Внутри вложенного цикла if, проверяется знак x. Если x < 0, то значение f пересчитывается как f = f/(exp(1) + sin(x)).
Если x >= 0, то значение f пересчитывается как f = f*(exp(1) + sin(x)).
Выводится значение x и f на экран с помощью функции writeln.
После завершения внешнего цикла for, программа ожидает ввода пользователя с помощью функции readln.
Код завершается.