 |
|
Модераторы: Poseidon |
 
|
|
интеграл, интеграл 
| dellfa |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 22.1.2010 Репутация: нет Всего: нет |
b)программу вычисления суммы всех членов ряда, абсолютная велина которых больше заданной величены (буква э перевернутая). Для первой программы выполнить трассировку n=3.
При составлении программ следует реализовать наиболее эффективный алгоритм вычисления очередного члена ряда, используя, например рекуррентные формулы, раздельнные вычисления числителя и знаменателя. Сам пример вот: k/sqr(k)+2*k+1. 3. Задана функция. Требуется найти определенный интеграл от каждой функции в предлах [a,b].Для решения задачи использовать численный метод вычисления интеграла-метод прямоугольников.Пределы [a,b] и количество интервалов должны вводиться в начале программы. Сам пример x в 3-й степени * на е в степени 2х { Вычисляет приближенное значение } { интеграла функции F методом прямоугольников } { /b } { | f(x) dx;интервал разбивается на n частей } { /a } var n,i,e : integer; a,b,shag,sum,itog : real; {======================================} {Введите сюда нужную функцию} function F(x:real):real; begin F:=x*x*exp(ln(e)*x*2);; end; {======================================} BEGIN write('Начало интегрирования a = '); readln(a); write('Конец интегрирования b = '); readln(b); write('Количество разбиений интервала n = '); readln(n); shag:=(b-a)/n; sum:=0; for i:=1 to n-1 do sum := sum + F(shag*i+a); sum := sum + (F(a)+F(b))/2; itog:=(b-a)/n * sum; writeLn('Интеграл = ', itog:0:5) END. воть так ? тока ощибка выходит деление на ноль незя Это сообщение отредактировал(а) dellfa - 19.3.2010, 07:52 |
|||
|
||||
Загрузка ...
| Sanaff |
|
|||
|
Бывалый  Профиль Группа: Участник Сообщений: 151 Регистрация: 15.9.2009 Где: г. Северодвинск Репутация: -1 Всего: 1 |
На какой строчке ошибку выводит?
Распишите концовку так itog:=shag * sum; writeLn('Интеграл = ', itog); END. --------------------
Программист - это локальный бог ©ICQ 373-628-456 |
|||
|
||||
| Курсант |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 338 Регистрация: 21.2.2009 Где: Балашиха или Воро неж Репутация: 3 Всего: 4 |
Непонятно где инициализация локальной переменной e в функции F(x:real)...
В общем то натуральный логарифм от нуля или от отрицательного числа не определен насолько я понимаю... Возможно, если функция вычисления натурального логарифма реализована с делением, то на уровне процессора возможно прерывание по делению на ноль... Все остальное вроде правильно, хотя n это не число разбиений, а число интервалов... Т.к. одно разбиение порождает два интервала, два разбиения порождают три интервала, и так далее... Но это все оформление, не суть важно... Заодно не подскажете функция exp что делает? Забыл... |
|||
|
||||
| dellfa |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 22.1.2010 Репутация: нет Всего: нет |
Функция Exp берет целое или с плавающей точкой число и возводит в степень e
воть а со второй тже ни кто ненает? |
|||
|
||||
| mr.Anderson |
|
|||
 iOS Lead Developer Профиль Группа: Участник Клуба Сообщений: 3374 Регистрация: 20.12.2004 Где: далеко Репутация: 16 Всего: 128 |
Это сообщение отредактировал(а) mr.Anderson - 19.3.2010, 14:57 --------------------   |
|||
|
||||
|
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
[ Время генерации скрипта: 0.0578 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |