БІЛОРУСЬКИЙ АГРАРНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ
КАФЕДРА ОБЧИСЛЮВАЛЬНОЇ ТЕХНІКИ
В В В В В В В В
Курсова РОБОТА
на тему "обчислення певного інтеграла
методами трапецій і середніх прямокутників "
Студента 2-го курсу: Полушкіна О.А.
Науковий керівник: Севернева Є.В.
В В В В В В В В
Мінськ, 1997
Зміст.
Введення, математичне обгрунтування та аналіз задачі. p> Алгоритм і його опис ........................................... ........................ p> Лістинг програми ............................................. .................................. p> Вихідні дані. Результати розрахунків і аналіз ............. p> Висновок і висновки ............................................ ............................ p> Список літератури ............................................. ................................. br/>В
Введення, математичне обгрунтування та аналіз завдання.
Відомо, що визначений інтеграл функції типу чисельно являє собою площа криволінійної трапеції обмеженої кривими x = 0 , y = a , y = b і y = (Мал. 1). Є два методи обчислення цієї площі або певного інтеграла - метод трапецій (Мал. 2) і метод середніх прямокутників (Мал. 3). <В
Рис. 1. Криволінійна трапеція.
В
Рис. 2. Метод трапецій. <В
Рис. 3. Метод середніх прямокутників.
В
За методами трапецій і середніх прямокутників відповідно інтеграл дорівнює сумі площ прямокутних трапецій, де підстава трапеції яка-небудь мала величина (Точність), і сума площ прямокутників, де підставу прямокутника яка-небудь мала величина (точність), а висота визначається по точці перетину верхнього підстави прямокутника, яке графік функції повинен перетинати в середині. Відповідно отримуємо формули площ -
для методу трапецій:
,
для методу середніх прямокутників:
.
Відповідно цим формулам і складемо алгоритм.
В
Алгоритм.
В
Рис. 4. Алгоритм роботи програми integral.pas .
В
Лістинг програми.
Програма написана на Tubro Pascla 6.0 для MS-DOS. Нижче наведено її лістинг:
program Integral;
uses
Crt, Dos;
var
dx, x1, x2, e, i: real;
function Fx (x: real): real;
begin
Fx: = 2 + x; {У цьому місці запишіть функцію, для обчислення інтеграла.}
end;
procedure CountViaBar;
var
xx1, xx2: real;
c: longint;
begin
writeln ('----------------------------------------------- - ');
wr...
