Разложение функции Y в ряд S

[Mitti]

Разложение функции Y в ряд S

Здрасте всем. Не поможете с програмкой? Никак не могу понять что делать(( Там формула страшнючая...
Я тут надо как то через массив но я упорно не понимаю(

 

[Vladimir_S]

Эх, вот если бы еще знать, на каком языке нужна программка... Мечты, мечты...

 

[Mitti]

Ой я извиняюсь)) Решаю эти задачки уже второй день) У меня уже само собой разумеющееся - паскаль)
Закон студента работает до сих пор: Была куча времени,а делать в последний момент)

 

[Vladimir_S]

Ой я извиняюсь)) Решаю эти задачки уже второй день) У меня уже само собой разумеющееся - паскаль)
Закон студента работает до сих пор: Была куча времени,а делать в последний момент)

Получите:

CONST
 Eps=0.0001;
VAR
 Xbeg,Xfin,DX,SUM,X:REAL;
 N:WORD;
 Nx,i:INTEGER;


PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD);
 VAR
   a:REAL;
 Begin
  a:=Xs;
  S:=Xs;
  Ns:=1;
  Repeat
   Inc(Ns);
   a:=a*Xs*(Ns-1)/Ns;
   S:=S+a;
  Until Abs(a)<Eps;
  S:=-S;
 End;

BEGIN
 Xbeg:=-0.5;
 Xfin:=0.5;
 DX:=0.1;
 WriteLn('         Results of calculation:');
 WriteLn('    X          SUM          N      Ln(1-X)');
 WriteLn;
 Nx:=ROUND((Xfin-Xbeg)/DX);
 X:=Xbeg;
 For i:=0 to Nx do
  begin
   X:=Xbeg+DX*i;
   SUMS(X,SUM,N);
   WriteLn(X:8:5,'     ',SUM:8:5,'     ',N:3,'     ',Ln(1-X):8:5);
  end;
 ReadLn;
END.

 

[Mitti]

О, Спасибо что с процедурами) У меня как раз где то в конце семестра будет лаба по процедурам) не надо будет думать:tehnari_ru_102:
Прошу прощения, что клянчил,просто голова уже плохо соображает)