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

@Justfast · Регистрация: 22.10.2013

Помогите пожалуйста решить задачу. Уже черт знает сколько мучаюсь.
Очень надеюсь на вашу помощь.

Вложение 319944

Вложение 319945

@Samhain · 23.10.2013, 09:21

Justfast,

Pascal

const e=10e-5;
var x,s,sk:real;
   k:integer;
begin
  write('x = ');readln(x);
  sk:=1;
  s:=1;
  k:=0;
  writeln('e = ',e:0:4);
  repeat
    inc(k);
    sk:=-sk*x*x/((2*k-1)*(2*k));
    s:=s+(2*k*k+1)*sk;
    writeln('s[',k,'] = ',sk*(2*k*k+1):0:5);
  until (abs(sk*(2*k*k+1))<e);
  writeln('s = ',s:0:5,', k = ',k);
  readln
end.

@Justfast · 23.10.2013, 15:48 **[ТС]**

Спасибо огромное.

@Justfast 0 / 0 / 0 Регистрация: 22.10.2013 Сообщений: 3
		1
	Вычислить сумму членов бесконечного ряда с заданной точностью 22.10.2013, 23:20. Показов 1341. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить задачу. Уже черт знает сколько мучаюсь. Очень надеюсь на вашу помощь. Вложение 319944 Вложение 319945 0

@Justfast 0 / 0 / 0 Регистрация: 22.10.2013 Сообщений: 3
	23.10.2013, 15:48 [ТС]	3
	Спасибо огромное. 0

Опции темы

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

Решение