Вычислить гиперболический косинус по формуле - Turbo Pascal (29521)

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

найти значение функции y= {

Решение задачи: «Вычислить гиперболический косинус по формуле»

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

function Ch(x, eps: real): real;
Var x2, xx, _Ch, CurrMember, FactEven : real;
    m : integer;
  begin
    x2:=Sqr(x); FactEven:=2; m:=3;
    _Ch:=1;
    xx:=x2;
    Repeat
      CurrMember:=xx/FactEven;
      _Ch:=_Ch +CurrMember;
      xx:=xx*x2;
      FactEven:=FactEven*m*(m+1);
      Inc(m,2);
    Until CurrMember<=Eps;
    Ch:=_Ch;
  end;

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

В функции Ch объявлены переменные x2, xx, _Ch, CurrMember и FactEven.
Значение переменной x2 вычисляется как квадрат значения переменной x.
Значение переменной FactEven устанавливается равным 2.
Значение переменной m устанавливается равным 3.
Переменная _Ch инициализируется значением 1.
Значение переменной xx устанавливается равным x2.
Затем начинается цикл Repeat, который выполняется до тех пор, пока текущее значение CurrMember не станет меньше или равно eps (предполагается, что eps - это допустимая погрешность).
Внутри цикла значение переменной CurrMember вычисляется как результат деления значения переменной xx на значение FactEven.
Затем значение переменной _Ch увеличивается на сумму текущего значения CurrMember.
Значение переменной xx устанавливается равным xx*x2.
Значение переменной FactEven устанавливается равным FactEvenm(m+1).
Значение переменной m увеличивается на 2.
Цикл повторяется, пока значение CurrMember не станет меньше или равно eps.
По окончании цикла значение переменной _Ch сохраняется в переменной Ch.
Функция возвращает значение переменной Ch.