|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.10.2014, 00:26 | #1 (permalink) |
Новичок
Регистрация: 05.10.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычисление функции разложением ее в ряд, Паскаль
Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношения при вычислении очередного члена ряда. Для оценки правильности результата предусмотреть вычисление по контрольной формуле. Вычисление суммы заканчивается, если модуль очередного слагаемого оказывается меньше заданного значения точности (Е), причем для этих рядов (при |X|<1) абсолютная величина суммы всех отброшенных членов ряда при этом оказывается меньше Е. (Pascal) Во Вложение Ряд и Контрольная формула понимаю что нужно составить формулу,но не могу понять как именно в этой ситуации это сделать,помогите пожалуйста получилось написать лишь начало программы,а дальше уже все с помощью формулы идет,по моему мнению,вообще не понимаю... думала пол дня над этим Код:
Var s,x,e,b,c,a,y:real; i:integer; Begin Read (x,e); if ... |
06.10.2014, 00:26 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите в этих темах, возможно там есть нужный ответ Формирование матрицы с помощью функции как параметра процедуры, Паскаль Написание программы через процедуры и функции. Паскаль Паскаль. Вычисление интеграла Паскаль, подпрограммы функции Приближенное вычисление интегралов Паскаль. Процедуры, функции, параметры |
06.10.2014, 00:59 | #3 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,300
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Тут всё немного сложней...
- сначала надо проверить ряд на сходимость. Если ряд расходящийся - то всё псу под хвост. - расчетная формула оформляется в виде подпрограммы (точнее - функции). - пишется программа, в которой есть цикл с выходом по значению функции меньшему Е и суммированием всех её значений. Надеюсь, теперь кое-что прояснилось. Сами справитесь? |
06.10.2014, 10:14 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Этого мало. Но лучше бы Вы воспользовались поиском: у нас на форуме рассмотрено 100000000 подобных задач. Вот и сейчас я не стал заморачиваться с написанием программы "с нуля", а просто взял первую попавшуюся аналогичную, да чуть-чуть подправил под Ваши условия. Работы аж на пять минут.
Код:
VAR i:Integer; S,x,A,Eps:Real; Function F(z:real):real; begin F:=1-1/Exp(Ln(1+z)/3); end; Begin Write('x (-1<x<1) = '); Readln(x); Write('Eps (e.g. 0.0001)= '); Readln(Eps); i:=0; A:=-1; S:=0; Repeat Inc(i); A:=-A*(3*i-2)/(3*i)*x; S:=S+A; Until Abs(A)<Eps; Writeln('x= ',x:0:3,' Sum= ',S:0:5,' Accurate value= ',F(x):0:5); Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|