Вычисление функции разложением ее в ряд, Паскаль

[Grandmazer]

Вычисление функции разложением ее в ряд, Паскаль

Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношения при вычислении очередного члена ряда. Для оценки правильности результата предусмотреть вычисление по контрольной формуле. Вычисление суммы заканчивается, если модуль очередного слагаемого оказывается меньше заданного значения точности (Е), причем для этих рядов (при |X|<1) абсолютная величина суммы всех отброшенных членов ряда при этом оказывается меньше Е. (Pascal)
Во Вложение Ряд и Контрольная формула
:jazik::jazik:
Пытался написать,но не понимаю как описать при помощи контрольной формулы....(

 

[Vladimir_S]

Пытался написать,но не понимаю как описать при помощи контрольной формулы....(

Да делов-то куча...

Const
 Eps=0.0001;

Var
 i:Integer;
 S,A,x:Real;

Function AV(z:real):Real;
begin
 Av:=48/15*(Sqrt(Sqr(Sqr(z+1))*(z+1))-1)-z*8-Sqr(z)*6;
end;

Begin
 Write('x (<1) = ');
 Readln(x);
 A:=x*x*x;
 S:=A;
 i:=1;
 Repeat
  i:=i+1;
  A:=-A*x*(2*i-3)/(2*i+4);
  S:=S+A;
 Until Abs(A)<Eps;

 Writeln('         Result: ',S:0:7);
 Writeln(' Accurate value: ',AV(x):0:7);

 Readln
End.