Вычислить значение выражения - Free Pascal (173)

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

нужно, чтобы обведенное вычислялось через φ

Решение задачи: «Вычислить значение выражения»

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

uses crt;
function ryad(x,e:real):real;
var s,t:real;
    n:integer;
begin
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t;
 end;
ryad:=s;
end;
var x,e:real;
begin
clrscr;
write('x=');
readln(x);
repeat
write('0<e<1 e=');
readln(e);
until(e>0)and(e<1);
writeln('Значение функции через ряд=',(ryad(x,e)-ryad(-x,e))/2:0:5);
writeln('sh(x)=',(exp(x)-exp(-x))/2:0:5);
readln
end.

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

Объявлены две переменные типа real - x и e, а также две переменные типа integer - n и t.
Функция ryad(x,e:real):real принимает два аргумента типа real - x и e, а также возвращает значение типа real.
Переменная n инициализируется значением 0, а переменная t - значением 1.
Переменная s инициализируется значением t.
В цикле while выполняется условие abs(t)>e.
Внутри цикла значение переменной n увеличивается на 1.
Значение переменной t умножается на x и делится на n.
Значение переменной s увеличивается на значение переменной t.
После выхода из цикла, значение функции ryad присваивается переменной s.
В основной части программы запрашиваются значения переменных x и e с помощью функции readln.
Пока значение переменной e не удовлетворяет условию 0<e<1, программа запрашивает новое значение e с помощью функции readln.
Вычисляется значение функции через ряд с помощью функции ryad(x,e) и присваивается переменной ryad.
Вычисляется значение функции sh(x) с помощью формулы exp(x)-exp(-x))/2 и присваивается переменной sh.
Значение переменной ryad выводится на экран с помощью функции writeln.
Значение переменной sh выводится на экран с помощью функции writeln.
Программа ожидает ввода с помощью функции readln.