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

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

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

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

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

Цитата:

Сообщение от Grandmazer (Сообщение 2442819)

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

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

Код:

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.