Численное интегрирование |
Численное интегрирование |
trminator |
13.12.2003 12:33
Сообщение
#1
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Численное интегрирование методом прямоугольников:
Код program integral; { Вычисляет приближенное значение } { интеграла функции F методом прямоугольников } { /b } { | f(x) dx;интервал разбивается на n частей } { /a } var n,i : integer; a,b,shag,sum,itog : real; {======================================} {Введите сюда нужную функцию} function F(x:real):real; begin F:=x*x*x*x+2*x*x+4 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. -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Altair |
24.05.2005 20:58
Сообщение
#2
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Вычисления определенных интегралов по формуле центральных прямоугольников
UNIT C_Rect; ОПИСАНИЕ МОДУЛЯ. C_Rect.doc ( 59 килобайт ) Кол-во скачиваний: 2083 -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 28.04.2024 0:05 |