Разложение в ряд в Pascal

[APTEMKA]

Разложение в ряд в Pascal

Здравствуйте,форумчане.Нужна помощь с этим,вторым, заданием.Как табулировать и строить таблицу я знаю,но не знаю,как начать. Учитель объяснял отдалённо,но я понял,что необязательно считать каждый член,достаточно лишь умножать предыдущий на какое-то число d,которое находится по формуле: d:=N/N[i-1].
Вот мои тщетные попытки,уже не соображаю,если честно.Заранее спасибо.
Program bulbul;
var N:array [0..100] of double;
d:array [0..100] of double;
i:integer;x:double;
Const e=0.001;
function f(x:double):double;
begin
i:=0;
while d<=e do begin
N[0]:=x;
N[1]:=-exp(ln(x)*3)/6;
d:=N/N[i-1];
result:=d*N[i-1];
end;
end;
Var y:double;
begin
while d<=e do begin
y:=f(x);
end;
writeln;
end.

 

[Vladimir_S]

Вот мои тщетные попытки,уже не соображаю,если честно.Заранее спасибо.

Да пожалуйста — ничего сложного. Разбирайтесь, спрашивайте...

Program bulbul;

Const
 A=3.0;

Var
 i:integer;
 z,Step:double;

function Sum(x:double):double;
var
 S,B_old,B_new,Eps:double;
 N:Integer;
begin
 B_old:=x;
 S:=B_old;
 N:=0;
 Repeat
  Inc(N);
  B_new:=-B_old*x*x/(2*N*(2*N+1));
  S:=S+B_new;
  Eps:=Abs(B_old-B_new);
  B_old:=B_new;
 Until (1+Eps)=1;
 Sum:=S;
end;

Begin
 Step:=A/20;
 for i:=0 to 20 do
  begin
   z:=Step*i;
   Writeln(z:4:2,'    ',Sum(z),'    ',Sin(z));
  end;
 Readln;
End.