Помогите вывести рекуррентную формулу

[zenit0495]

[IMG][/IMG]

[Аватар]

F(0)=x/2
F(i)=-F(i-1)*x*x*(2*i-1)/(i+2)/(2*i+1)

[zenit0495]

program Lab5;
uses crt;
var
  X,S,A,E:real;
  I:integer;
  begin
  clrscr;
   writeln('S1=',S:10:3);
  write('Vvod X=');
  readln(X);
  S:=0;
  A:=X/2;
  I:=0;
  while abs(A)>E do begin
    S:=S+A;
    I:=I+1;
    A:=-A*(I-1)*sqr(X)*(2*I-1)/(I+2)/(2*I+1)
  end.

а можно в виде кода конкретно к моей программе??
если так - то неверно, результат должен быть 0,9093

[Аватар]

A*(I-1)

ну молодец. F(i-1) не значит умножить, а предыдущее значение члена ряда. Сам же говорил о рекуррентной формуле

[zenit0495]

Да я пробовал и без -A*(I-1), просто -А, все равно неправильный ответ выдает. Помогите пожалуйста) Может присвоить что нибудь другое к S или I?

[Аватар]

Для какого значения x считается? И не вижу где E задается.

writeln('S1=',S:10:3);

Черти где, а не после расчета

[zenit0495]

Блин что то не получается найти ошибку, может Вы ее найдете?? вот сама программа, состоящая из 3х заданий, меня интересует задание под (б). С двумя другими заданиями я справился.

{Tema: Ciclicheskie programmi}
program Lab5;
uses crt;
var
  X,S,A,E,A0,A1,A2:real;
  N,I,Z:integer;
begin
  clrscr;
  S:=0;
  Z:=-1;
  for N:=1 to 20 do begin
    S:=S+Z/(N+exp(N*ln(2)));
	Z:=-Z
  end;
writeln('S1=',S:10:4);
  write('Vvod X=');
  readln(x);
  S:=0;
  A:=X/2;
  I:=0;
  while abs(A)>E do begin
    S:=S+A;
	I:=I+1;
	A:=-A*sqr(X)*(2*I-1)/((I+2)*(2*I+1))
  end;
  writeln('S=',S:10:4);
  A1:=1;
  A2:=1;
  N:=1;
  repeat
    N:=N+1;
	A0:=A1;
	A1:=A2;
	A2:=A1+exp(-A0);
  until abs(A1-3)<0.01;
  writeln('Nmin=',N);
  readln(X);
 end.
  
  
end.

[IMG][/IMG]
[IMG][/IMG]

[Аватар]

Блин что то не получается найти ошибку

Дык и нет объяснения в чем ошибка. Не получается 0,9093 не объяснение - для какого значения X должен получиться такой результат? Или считаешь, что для любого икса так должно получаться? И так и не увидел где значение E задается

[zenit0495]

0.9093 должно получится для х равного 2

[zenit0495]

[IMG][/IMG]