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

END

FUNCTION fint (t)

fint = 1 - t

END FUNCTION

FUNCTION uravn (afix, bfix, E)

aur = afix: bur = bfix: cur = (aur + bur) / 2: n = 0

PRINT TAB(10); "Promezhutochnie dannie"

PRINT " a b f(a) f(b) b-a"

DO UNTIL (bur - aur) <= E

n = n + 1

IF fint(cur) * fint(bur) < 0 THEN aur = cur ELSE bur = cur

PRINT USING "##.## ##.## ##.### ##.### ##.###"; aur; bur; fint(aur); fint(bur); bur - aur

cur = (aur + bur) / 2

LOOP

uravn = cur

ENDFUNCTION

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

Модуль отработал верно.

5.3 Прогонка программы

Протестируем главный модуль, задав

Отрезок неопределённости x=[0;3]

Очевидно, что корень находится в x=2. Проверим это.

5.3.1 Схема алгоритма программы при прогонке:

5.3.2 Код программы при прогонке:

DECLARE FUNCTION fint (t)

DECLARE FUNCTION integr (afix, x, E)

DECLARE FUNCTION uravn (afix, bfix, E)