Реферат Програма для обчислення інтегралів

вивши дуже маленьке значення для кроку обчислення. Тоді всі методи обчислення будуть давати результат, близький за значенням до результату, до якого привів метод Сімпсона. p align="justify"> програмний завдання чисельний інтеграл

6. Застосування програми

Розроблене мною додаток можна використовувати як програмного забезпечення для обчислення визначених інтегралів. Тестування програми показало, що воно здатне обчислювати інтеграли досить великий ступеня складності з прийнятною точністю. br/>

Додаток

// Модуль UnitMath.pasUnitMath;

Chart;

= (Trap, LeftRect, MiddleRect, RightRect, Simpson);

= function (x: real): real;

GetResult (x: real): real; CountIntegral (Low, High, Step: Real;: TChart; Func: MyFunc;: CountType): real; IntegerToCountType (param: integer): CountType;

GetResult (x: real): real;: = cos (Pi/6) * x/sqrt (x);;

CountIntegral (Low, High, Step: Real;: TChart; Func: MyFunc;: CountType): real; x, buf: real;: = 0;

: = Low - 0.2; x <= High + 0.2 do.Series [1]. AddXY (x, Func (x));: = x + 0.001;;

: = Low; CountIntegralType of: begin: = x;. Series [0]. AddXY (buf, Func (buf));: ​​= x + Step;

x <= High do.Series [0]. AddXY (x, Func (x));: = result + Step * (Func (buf) + Func (x))/2; : = x;: = x + Step;;

(x - Step)

(x - Step)

: begin: = x;: = x + Step;

x <= High do.Series [0]. AddXY (buf, Func (Buf + Step/2));. Series [0]. AddXY (x, Func (Buf + Step/ 2));: = result + Step * Func (buf + Step/2);: = x + Step;: = buf + Step;;

(x - Step)

(x - Step)

: begin: = x;. Series [0]. AddXY (buf, Func (buf));: ​​= x + Step;

x <= High do.Series [0]. Add...