Вычисление гиперболического синуса при заданных значениях аргументов - Pascal ABC
Формулировка задачи:
Составить программу вычисления функции при заданных значениях аргументов
Решение задачи: «Вычисление гиперболического синуса при заданных значениях аргументов»
textual
Листинг программы
var x,e,t,s:real;
n:integer;
begin
x:=1.75;
e:=0.001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
begin
n:=n+1;
t:=t*x*x/(2*n*(2*n-1));
s:=s+t;
end;
writeln('Сумма=',s:0:4);
writeln('ch x= ',(exp(x)+exp(-x))/2:0:4);
end.