Найти сумму ряда

@volo_D9 · Регистрация: 14.10.2015

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

Напишите программу нахождения суммы, включая в нее начальные слагаемые,
абсолютная величина которых не превосходит заданной точности e :

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\frac{x-1}{x+1}+\frac{1}{3}\left( \frac{x-1}{x+1}\right)^3+\frac{1}{5}\left( \frac{x-1}{x+1}\right)^5+...=\sum_{n=0}^{\infty }\frac{1}{2n+1}\left(\frac{x-1}{x+1} \right)^{2n+1}<br />$

Спецификация ввода : x e
Спецификация вывода: значение суммы

@ZX Spectrum-128 · 30.10.2018, 13:23

Не совсем понял, написал как понял.

Pascal

var
  x, e, s: real;
  n: longint;
 
begin
  n := 1;
  s := 0;
  readln(x, e);
  while (s <= e) do 
  begin
    s := s + 1 / (2 * n + 1) * power((x - 1) / (x + 1), (2 * n + 1));
    inc(n);
  end;
  writeln(s);
end.

@Cyborg Drone · 31.10.2018, 22:35

Неверно. Правильно, например, так:

Pascal

var
  x, e, a, t, s: real;
  n: longint;
 
begin
  readln(x, e);
  n := 1;
  x := (x - 1) / (x + 1);
  t := x;
  x := x * x;
  a := t;
  s := a;
  while a <= e do
    begin
      n := n + 2;
      t := t * x;
      a := t / n;
      s := s + a
    end;
  writeln(s);
  readln
end.

@Cyborg Drone · 03.11.2018, 12:00

Извиняюсь, одну строчку пропустил, x := (x - 1) / (x + 1);

Исправил.

@volo_D9 -3 / 2 / 0 Регистрация: 14.10.2015 Сообщений: 144
		1
	Найти сумму ряда 29.10.2018, 20:10. Показов 2492. Ответов 3 Метки нет (Все метки) Напишите программу нахождения суммы, включая в нее начальные слагаемые, абсолютная величина которых не превосходит заданной точности e : $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\frac{x-1}{x+1}+\frac{1}{3}\left( \frac{x-1}{x+1}\right)^3+\frac{1}{5}\left( \frac{x-1}{x+1}\right)^5+...=\sum_{n=0}^{\infty }\frac{1}{2n+1}\left(\frac{x-1}{x+1} \right)^{2n+1}<br />$ Спецификация ввода : x e Спецификация вывода: значение суммы 0

@Cyborg Drone Модератор 10011 / 5366 / 3340 Регистрация: 17.08.2012 Сообщений: 16,348
	03.11.2018, 12:00	4
	Извиняюсь, одну строчку пропустил, `x := (x - 1) / (x + 1);` Исправил. 0

Найти сумму ряда

Решение