Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.12.2016, 20:03   #1 (permalink)
Grandmazer
Новичок
 
Регистрация: 10.12.2016
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Вычисление функции разложением ее в ряд, Паскаль

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

Пытался написать,но не понимаю как описать при помощи контрольной формулы....(
Миниатюры
nieiie.png  
Grandmazer вне форума   Ответить с цитированием

Старый 10.12.2016, 20:03
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Не ленитесь и прочитайте похожие топики, это очень помогает в решении проблем

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

Старый 10.12.2016, 21:25   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,886
Сказал(а) спасибо: 139
Поблагодарили 282 раз(а) в 95 сообщениях
Репутация: 61381
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:40.


Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.