Курсовая работа: Программа вычисления минимума заданной функции

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

Модуль отработал верно. Минимум найден корректно.

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

Протестируем всю программу, задав (тоже самое, что f(x)=x² )

x₁ =-1, x₂ =0. F(x)=L(x₁ )*x² +L(x₂ )*x, [a;b]=[-2;1].

Очевидно, что L(x₁₎ =1, L(x₂ )=0, а минимум функции F(x) лежит в точке x=0

Cхемы алгоритмов других модулей совпадают с приведёнными в пп 5.1.1 и 5.2.1

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

DECLARE FUNCTION dihotom (a, b, e, LX1, LX2)

DECLARE FUNCTION LX (k, x(), y(), xl)

DECLARE FUNCTION F (xmin, LX1, LX2)

CLS

LOCATE 1, 15

PRINT "Kursovaya rabota po informatike OTLADKA"

LOCATE 2, 18

PRINT "Gruppa PS0601, Adamskiy Alexey"

PRINT

x(0) = -2: x(1) = 0: x(2) = 1

y(0) = 4: y(1) = 0: y(2) = 1

LX1 = LX(2, x(), y(), -1)

LX2 = LX(2, x(), y(), 0)

PRINT TAB(10); "Znacheniya polinoma Lagranzha v x1,x2"

PRINT TAB(15); "L(x1)="; LX1; "L(x2)="; LX2

PRINT

PRINT TAB(10); "Poisk minimuma F(x)"

xmin = dihotom(-2, 1, .0001, LX1, LX2)

PRINT TAB(10); "Minimum F(x): xmin="; xmin; "F(xmin)="; F(xmin, LX1, LX2)

END