Вычислить сумму ряда с заданной точностью

@maxim9998 · Регистрация: 04.10.2015

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

Даны действительные числа (x не равен 0, e>0) Вычислить с точностью e

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=1}^\infty \frac{(-1)^kx^k}{x^3+k^3}<br />$

@Cyborg Drone · 09.11.2015, 00:00

Сообщение от maxim9998

x не равен 0

Да пусть бы и равен нулю... Это не так и страшно, вычисления сразу прекратятся, сумма будет равняться нулю. И все дела. Странно, что в задании не указано, что данный ряд расходится при |x| > 1.

Pascal

var x, x3, xk, z, s, a, e: double;
    k: longword;
 
begin
  repeat
    write('e > 0;  e = ');
    readln(e)
  until e > 0;
  repeat
    write('|x| < 1;  x = ');
    readln(x)
  until abs(x) < 1;
  x3 := x * x * x;
  xk := 1;
  s := 0;
  k := 1;
  repeat
    xk := -x * xk;
    z := x3 + k * k * k;
    a := xk / z;
    s := s + a
  until abs(a) < e;
  write('s = ', s:0:12);
  readln
end.

@maxim9998 0 / 0 / 0 Регистрация: 04.10.2015 Сообщений: 4
		1
	Вычислить сумму ряда с заданной точностью 08.11.2015, 22:25. Показов 1151. Ответов 1 Метки нет (Все метки) Даны действительные числа (x не равен 0, e>0) Вычислить с точностью e $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=1}^\infty \frac{(-1)^kx^k}{x^3+k^3}<br />$ 0

Опции темы

Вычислить сумму ряда с заданной точностью

Решение