Вычислить сумму членов бесконечного ряда с точностью ε

@Mylene · Регистрация: 18.11.2014

Даны действительные числа X, E $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left( 0<x\leq 1,E>0\right)$ .
Вычислить с точностью E:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{K=0}^{\infty} \frac{{(-1)}^{k}{X}^{4k*1}}{(2k)!(4k+1)}$
Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E,- это и все последующие слагаемые можно уже не учитывать.

@Puporev · 19.11.2014, 20:32

В числителе степень 4k*1, это что? Может 4k+1?

@Mylene · 19.11.2014, 20:42 **[ТС]**

да, там 4к+1, извиняюсь, проглядел

@Puporev · 19.11.2014, 20:50

Pascal

uses crt;
var x,e,t,s:real;
    k:integer;
begin
clrscr;
repeat
write('0<x<1 x=');
readln(x);
until(x>0)and(x<1);
repeat
write('e>0 e=');
readln(e);
until e>0;
k:=0;
t:=1;
s:=t;
while abs(t/(4*k+1))>e do
 begin
  k:=k+1;
  t:=-t*x*x*x*x/(2*k*(2*k-1));
  s:=s+t/(4*k+1);
 end;
write('S=',s:0:5);
readln
end.

@Mylene 0 / 0 / 0 Регистрация: 18.11.2014 Сообщений: 10
		1
	Вычислить сумму членов бесконечного ряда с точностью ε 19.11.2014, 19:07. Показов 2151. Ответов 3 Метки нет (Все метки) Даны действительные числа X, E $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left( 0<x\leq 1,E>0\right)$ . Вычислить с точностью E: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{K=0}^{\infty} \frac{{(-1)}^{k}{X}^{4k*1}}{(2k)!(4k+1)}$ Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E,- это и все последующие слагаемые можно уже не учитывать. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.11.2014, 20:32	2
	В числителе степень 4k*1, это что? Может 4k+1? 0

@Mylene 0 / 0 / 0 Регистрация: 18.11.2014 Сообщений: 10
	19.11.2014, 20:42 [ТС]	3
	да, там 4к+1, извиняюсь, проглядел 0

Опции темы

Вычислить сумму членов бесконечного ряда с точностью ε

Решение