Произвести табулирование функции в 10 точках - Turbo Pascal

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

При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием.

Решение задачи: «Произвести табулирование функции в 10 точках»

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

const
  Eps = 0.0001;
var
  i: integer;
  y, a: real;
begin
  i := 1;
  y := 0;
  repeat
    a := 1 / exp(i * ln(i));
    if not odd(i) then
      a := -a;
    y := y + a;
    Inc(i);
  until abs(a) < Eps;
  writeln(y);
end.

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

В данном коде происходит табулирование функции в 10 точках. Константа Eps используется для задания точности вычислений и равна 0.0001. Переменная i является целочисленной и инициализируется значением 1. Переменная y является вещественной и инициализируется значением 0. Цикл repeat-until используется для выполнения повторяющегося действия до тех пор, пока условие не станет ложным. Внутри цикла переменная a вычисляется как 1/exp(i*ln(i)). Это функция от i, которая вычисляется в каждой итерации цикла. Затем проверяется, является ли i нечетным числом. Если это так, то значение a меняется на -a. Значение y увеличивается на a. После каждой итерации цикла значение i увеличивается на 1. Вычисляемое значение a должно быть меньше Eps, чтобы цикл продолжался. Когда значение a становится достаточно малым (меньше Eps), цикл останавливается и выводится значение y. Таким образом, результатом работы программы будет табулирование функции в 10 точках.