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

END FUNCTION

FUNCTION uravn (afix, bfix, E)

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

PRINT

PRINT TAB(15); "Promezhutochnie dannie pri poiske kornya"

PRINT

PRINT TAB(12); "a b f(a) f(b) b-a"

DO UNTIL bur - aur <= E

IF integr(afix, cur, E) * integr(afix, bur, E) < 0 THEN aur = cur ELSE bur = cur

PRINT USING " ##.## ##.## ##.### ##.### ##.###"; aur; bur; integr(afix, aur, E); integr(afix, bur, E); bur - aur

cur = (aur + bur) / 2

LOOP

uravn = cur

END FUNCTION

5.3.3 Результат прогонки программы:

По значениям f(x) можно определить, что f(x)=x-2. Корень f(x) найден правильно.

Проверка результатов тестирования в среде MathCAD не требуется из-за очевидности полученных результатов.

6. Детализированная схема алгоритма:

7. Код программы

DECLARE FUNCTION fint (t)

DECLARE FUNCTION integr (afix, x, E)

DECLARE FUNCTION uravn (afix, bfix, E)

CLS

LOCATE 1, 15