Курсовая работа: Отыскание корня уравнения методом половинного деления

END FUNCTION

FUNCTION integr (afix, x, E)

aint = afix: bint = x

nint = 2: h = (bint - aint) / 2: s = (fint(aint) + 4 * fint((aint + bint) / 2) + fint(bint)) * (h / 3)

DO

nint = 2 * nint: h = (bint - aint) / nint: s1 = s: cin = 4: x = aint: s = fint(aint) + fint(bint)

FOR i = 1 TO nint - 1

x = x + h: s = s + cin * fint(x): cin = 6 - cin

NEXT i

s = s * h / 3

LOOP UNTIL ABS(s - s1) < E

integr = s

END FUNCTION

5.1.3 Результат тестирования:

Модуль отработал верно: при точности Е=0.001, I=1.718283, отрезок интегрирования разделился на 4, шаг h=0.25

5.2 Тестирование модуля поиска корня уравнения методом половинного деления

Протестируем модуль поиска корня уравнения на примере f(x)=1-x. В качестве отрезка неопределённости возьмём x=[-1;2] . Очевидно, что корень этого уравнения находится в x=1.

5.2.1 Схема алгоритма тестирующей программы:

Схема алгоритма управляющей программы:

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

Схема алгоритма модуля fint ( t ):

5.2.2 Код тестирующей программы :

DECLARE FUNCTION fint (t)

DECLARE FUNCTION uravn (afix, bfix, E)

CLS