Сумма в Паскале

[vitjok]

Сумма в Паскале

помогите пожалуйста составить код:

 

[Vladimir_S]

помогите пожалуйста составить код

Да пожалуйста:

Const
 Eps=0.0001;
 Xbeg=-0.9;
 Xfin=0.9;
 DX=0.1;
VAR
 N,i,k:Word;
 S,X,a:Real;

BEGIN
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   k:=0;
   a:=X;
   S:=a;
   Repeat
    Inc(k);
    a:=a*X*X*(2*k-1)/(2*k+1);
    S:=S+a;
   Until Abs(a)<Eps;
   S:=S*2;
   WriteLn(X:6:3,S:12:6,k:12,Ln((1+X)/(1-X)):24:6);
  end;
 Readln;
END.

 

[vitjok]

спасибо большое! можно описание)

 

[vitjok]

а можно сделать так что бы исходные данные надо было вводить)

 

[Vladimir_S]

а можно сделать так что бы исходные данные надо было вводить)

Можно и так.

Const
 Eps=0.0001;
Var
 k:Word;
 S,x,a:Real;

BEGIN
 Repeat
  Write('x= ');
  Readln(x);
  If (x<=-1) or (x>=1) then Writeln('Value out of range!');
 Until (x>-1) and (x<1);
 WriteLn('   x        Result      Number of items     Accurate value');
 k:=0;
 a:=x;
 S:=a;
 Repeat
  Inc(k);
  a:=a*x*x*(2*k-1)/(2*k+1);
  S:=S+a;
 Until Abs(a)<Eps;
 S:=S*2;
 WriteLn(x:6:3,S:12:6,k:12,Ln((1+x)/(1-x)):24:6);
 Readln;
END.

Описание? Ну пожалуйста.
1. По запросу вводится х. Причем если введенное число оказывается вне диапазона -1 < x < 1, запрос повторяется.
2. Присваиваются исходные значения члену ряда (а=х) и сумме (S=а).
Далее идет цикл суммирования, причем каждый следующий член ряда получается рекуррентно из предыдущего. Так, чтобы получить x^5/5, нужно (x^3/3) умножить на x^2, умножить на 3 и поделить на 5. Суммирование продолжается до тех пор, пока очередной член ряда не станет по абсолютной величине меньшим наперед заданной точности (Eps).
3. Полученная сумма умножается на 2.
4. Выводится итог: x, S, количество учтенных членов ряда и, для сравнения, точное значение разлагаемой функции.
Всё!