Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0

@Undertaker86361 · Регистрация: 16.09.2017

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

Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=sh x=x+ \frac{x^3}{3!} + \frac{x^5}{5!} +...+ \frac{x^{2n+1}}{(2n+1)!}+...$
Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps.

@Puporev · 19.10.2017, 19:00

Pascal

uses crt;
var x,e,s,t:real;
    n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('0<e<1 e='); //точность
readln(e);
until(e>0)and(e<1);
n:=1;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x*x/(2*n-2)/(2*n-1);
  s:=s+t;
 end;
writeln('s=',s:0:4);
write('sh(x)=',(exp(x)-exp(-x))/2:0:4);
readln
end.

@Undertaker86361 0 / 0 / 0 Регистрация: 16.09.2017 Сообщений: 16
		1
	Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 19.10.2017, 17:23. Показов 5049. Ответов 1 Метки нет (Все метки) Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=sh x=x+ \frac{x^3}{3!} + \frac{x^5}{5!} +...+ \frac{x^{2n+1}}{(2n+1)!}+...$ Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps. 0

	19.10.2017, 19:00

Опции темы

Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0

Решение