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

Grandmazer · 10.12.2016, 20:03

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

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

Vladimir_S · 10.12.2016, 21:25

Цитата:

Сообщение от Grandmazer

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

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

Код:

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.

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

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070