Интеграл и метод средних прямоугольников - ПРИМЕРЫ ПРОГРАММ - ПРОГРАММИРОВАНИЕ - БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

PRIMAT.ORG
© 2008-2012

ПРИКЛАДНАЯ
МАТЕМАТИКА

Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.


	Вход

НОВОЕ В БИБЛИОТЕКЕ

● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

НОВЫЕ ФАЙЛЫ

● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор

    ЛУЧШИЕ ПУБЛИКАЦИИ

● Бухаете? Тогда я иду к в...
● Считаем сумму ряда
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Программирование под And...
● Матричный калькулятор (3...
● Пара интересных задач
● Небольшая забава для про...
● Немного юмора для матема...
● Продержись восемнадцать ...

    ЛУЧШИЕ МАТЕРИАЛЫ

● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Умножение матриц (Паскал...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Темы курсовых работ (укр...
● Пример использования мно...
● Теория графов плюс бонус...
● Сортировка Хоара (быстра...

    10 ЛУЧШИХ ФАЙЛОВ

● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Математические формулы
● Гмурман. Теория вероятно...
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

Конструктор информеров


	Карта тегов сайта Навигатор-карта сайта Информация о сайте Статистика сайта FAQ (вопрос/ответ)


	На сайте всего: 2 Посетителей: 2 Пользователей: 0


	БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ

[ ДОБАВИТЬ ]

Интеграл и метод средних прямоугольников

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

program Integral_metodom_sred_prmg;
uses crt;

const
 {Исходные данные: e - точность вычисления интеграла;
 a - нижний предел; b - верхний предел интегрирования}
 e:real = 0.00000001; a:real = 0; b:real= 6.0;
 var
 IntSum:real;
 function f(x:real):real;{ Определение функции}
 begin
 f:=sin(x)/x;
 {Функция Гаусса}
 {f:=exp(-sqr(x)/2)/sqrt(2*pi);}
 {Для тестирования}
 {f:=sqr(x);} {f:=cos(x);}
 end;
 procedure Integral(e, a, b :real; var i2:real);
 {Процедура вычисления интеграла
 begin { методом средних прямоугольников}
 var
 i1,d,s:real; i,n:word;
 {d=b-a делится на n отрезков;n на каждом шаге удваивается
 i1- сумма площадей n прямоугольников c основанием d/n,
 i2- сумма площадей 2n прямоугольников c основанием d/(2n)}
 begin
 d:=b-a;
 {Высота прямоугольника равна значению функции в средней точке
 каждого из отрезков длины (b-a)/n}
 i1:=(f(a+d/4)+f(b-d/4))*d/2; {для n=2}
 {для n=4}
 i2:=(f(a+d/8)+f(a+3*d/8)+f(a+5*d/8)+f(a+7*d/8))*d/4;
 n:=8;
 while abs(i2-i1) >= e do
 begin
 s:=0;
 for i:=1 to n do s:=s+f(a+(2*i-1)*d/(2*n));
 i1:=i2; i2:=s*d/n;
 writeln('I= ',IntSum:10:9, ', n=',n:6);
 n:=2*n
 end;
 end;
Begin
 clrscr;
 Integral(e, a, b ,IntSum);
 writeln('Интеграл методом средних прямоугольников');
 writeln('от a=',a:4:2,' до b=',b:4:2,' с точностью ',e:10:9);
 writeln('I= ',IntSum:10:9);
 readln;
End.

Просмотров [ 962 ] ● 18.08.10 ● Рейтинг [ 0% ]

Комментариев: [ 0 ]


	Украинская Баннерная Сеть

Ваше Имя