Вычислить значение гиперболического синуса

@erem_v · Регистрация: 14.06.2016

Студворк — интернет-сервис помощи студентам

Вычислить значение гиперболического синуса

@Puporev · 14.06.2016, 11:42

Pascal

uses crt;
var x,e,t,s:real;
    n:longint;
begin
clrscr;
write('x=');{вводим любое x}
readln(x);
write('e=');{вводим точнjсть вычислений, малое xисдо типа 0.000001}
readln(e);
n:=0;
t:=x;{нулевой член ряда}
s:=x;{сумма при n=0}
while abs(t)>=e do{пока очередной член больше точности}
 begin
  n:=n+1; {увеличиваем номер}
  t:=t*x*x/2/n/(2*n+1);{домножаем на x^2 и делим на факториал очередного нечетного числа}
  s:=s+t; {суммируем}
 end;
writeln('достигнутая точность=',abs(t):0:6,' сумма=',s:0:6);
writeln('аналитически=',(exp(x)-exp(-x))/2:0:6);
readln;
end.

@erem_v 0 / 0 / 0 Регистрация: 14.06.2016 Сообщений: 5
		1
	Вычислить значение гиперболического синуса 14.06.2016, 10:27. Показов 1741. Ответов 1 Метки нет (Все метки) 0

	14.06.2016, 11:42

Опции темы

Вычислить значение гиперболического синуса

Решение