Рекуррентные соотношения. Рекуррентная формула

@ggyrdanagibator · Регистрация: 17.02.2016

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

Здравствуйте, Написал код, но почему-то не сходится с ответом, буду благодарен за любую помощь.
Задание:

Pascal

program Lab9_7;
var
  x,s,a :real;
  i: integer;
begin
  writeln(' S1= ',s:10:4);
  write(' Ввод X= ');
  readln(x);
  s:=0;
  a:=-1/4;
  i:=1;
  while abs(a) >1E-7 do begin
    s:=s+a;
    i:=i+1;
    a:=-a*x/(2*i*i*i*(i+1));
  end;
  writeln(' S2= ',s:10:4)
end.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{\infty }{-1}^{i}*{x}^{i-1}/ (2*i)!*(i+1)$

@ggyrdanagibator · 22.12.2017, 18:41 **[ТС]**

Проблема скорее всего в 15 строчке, но как переделать понять не могу.

@volvo · 22.12.2017, 21:15

Делишь i-ый член ряда на (i-1)-ый, чтобы найти множитель, и сокращаешь результат. Получаешь:

Pascal

1	a:=-ax/(2(2i-1)(i+1));

С ответом сверять не буду, ибо X, при котором должен получиться этот ответ, не озвучен.

@ggyrdanagibator · 23.12.2017, 14:50 **[ТС]**

volvo, При Х=2, заработало, спасибо большое!

@ggyrdanagibator 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 17
	22.12.2017, 18:41 [ТС]	2
	Проблема скорее всего в 15 строчке, но как переделать понять не могу. 0

@ggyrdanagibator 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 17
	23.12.2017, 14:50 [ТС]	4
	volvo, При Х=2, заработало, спасибо большое! 0

Опции темы

Рекуррентные соотношения. Рекуррентная формула

Решение