Технический форум - Разложение функции Y в ряд S

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Разложение функции Y в ряд S (http://www.tehnari.ru/f41/t42428/)

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

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

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

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

Цитата:

Сообщение от Mitti (Сообщение 421407)

Получите:

Код:

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.

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