Turbo Pascal метод симпсона и точность, надо добавить эпсилон |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Turbo Pascal метод симпсона и точность, надо добавить эпсилон |
Ven |
1.03.2012 12:09
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: 1 |
Очень нужна помощь.. В общем суть- вычислить интеграл методом симпсона.. Всё считает,но еще нужен эпсилон- точность,которую надо забивать при расчете( напр. 0,1 ;0,01 и т.д.). Я не могу сообразить как вставить эпсилон сюда.. Я учусь только программировать, подошла к преподу- а он даже объяснить ничего не может((надеюсь на вашу помощь.... уже долго сижу с этой проблемой и никак не могу понять... вот код:
program Simpson; |
Федосеев Павел |
1.03.2012 19:18
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Точность можно применить следующим образом:
1. Объявить функцию для вычисления интеграла методом Симпсона FUNCTION Sympson(a, b : Real; n : Integer) : Real; или TYPE TFunction = FUNCTION (x : Real) : Real; FUNCTION Sympson(a, b : Real; f:TFunction; n : Integer) : Real; в неё передавать помимо прочего количество интервалов n. 2. В основной программе функцию вызывать несколько раз, и каждый раз удваивать количество интервалов n. Разница между двумя приближёнными вычислениями и будет погрешность. После этой вводной уже легко пристроить таинственную эпсилон: в цикле вычислять интеграл до тех пор, пока разность между приближениями не станет меньше эпсилон (не забывая удваивать n). |
Текстовая версия | 20.09.2024 9:24 |