Вычислить бесконечную сумму

@n0cturne · Регистрация: 07.10.2018

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

Даны действительные числа x, ε (x≠0, ε>0). Вычислить бесконечную сумму с точностью ε.
Считать что требуемая точность достигнута, если несколько первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем ε, это и все последующие слагаемые можно уже не учитывать.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=0}^{\infty }\frac{x^{2k}}{2^kk!}<br />$

@Puporev · 12.12.2018, 18:07

Pascal

uses crt;
var x,e,t,s:real;
    k:integer;
begin
clrscr;
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
k:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  k:=k+1;
  t:=t*x*x/2/k;
  s:=s+t;
 end;
write('S=',s:0:4);
readln
end.

@n0cturne 0 / 0 / 0 Регистрация: 07.10.2018 Сообщений: 4
		1
	Вычислить бесконечную сумму 12.12.2018, 17:44. Показов 1570. Ответов 1 Метки helppls (Все метки) Даны действительные числа x, ε (x≠0, ε>0). Вычислить бесконечную сумму с точностью ε. Считать что требуемая точность достигнута, если несколько первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем ε, это и все последующие слагаемые можно уже не учитывать. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=0}^{\infty }\frac{x^{2k}}{2^kk!}<br />$ 0

	12.12.2018, 18:07

Вычислить бесконечную сумму

Решение