ustify"> program task; = 0.0000001; f (x: Real): Real;: = 4 - sqr (sqr (x));; g (x: Real): Real; x <0 then : = - exp (ln (-x)/3) if x> 0 then: = exp (ln (x)/3): = 0;; func (x: Real): Real;: = f (x) - g (x);; bissection (a, b: Real): Real;: Real;: Boolean;: = 0; ((func (a) * func (b))> 0) then
WriteLn ('Тут не може бути кореня!'); (abs (func (a)) bh;: = res;;, b: Real;: = bissection (-3, 0);: = bissection (0,3); ('Корінь 1 =', a: 7: 7); ('Корінь 2 =', b: 7: 7); ('Площа інтеграла =', Integral (a, b): 7: 7);;
end.
4. Приклад роботи програми
В
Точне значення інтеграла, пораховано засобами математичного пакету Mathcad:
.
5. Висновок
У даній роботі вирішена задача наближеного інтегрування функції методом трапецій і знаходження меж інтегрування методом розподілу відрізка навпіл.
У процесі створення роботи розроблено алгоритм вирішення поставленого завдання. За цим алгоритмом мовою Pascal складена і налагоджена програма. p align="justify"> У ході тестування були отримані результати роботи методом розподілу відрізка навпіл і методу трапецій.
Програма є повністю працездатною, що підтверджується результатами її тестуванням.
інтеграл симпсон програма лістинг
Список літератури
1. Н.С. Піскунов. Диференціальне та інтегральне числення 370 - 373 с.
2. С.А. Немнюгин. Turbo Pascal. Підручник для вузів.
