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

PRINT TAB(10); "Promezhutochnie rezul`tati"

PRINT " a b x1 x2 f(x1) f(x2) b-a" DO PRINT USING " ##.###### #.##### #.##### #.##### #.##### #.##### #.#####"; a; b; x1; x2; F(x1, LX1, LX2); F(x2, LX1, LX2); b - a x1 = (a + b - e / 4) / 2 x2 = (a + b + e / 4) / 2 IF F(x1, LX1, LX2) > F(x2, LX1, LX2) THEN a = x1 ELSE b = x2 LOOP UNTIL ABS(b - a) <= e

dihotom = (a + b) / 2

END FUNCTION

FUNCTION F (x, LX1, LX2)

F = LX1 * x ^ 2 + LX2 * x

END FUNCTION

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

l = 0 FOR i = 0 TO k L1 = y(i) FOR j = 0 TO k IF i <> j THEN L1 = L1 * (xl - x(j)) / (x(i) - x(j)) NEXT j l = l + L1 NEXT i

LX = l

END FUNCTION

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

Программа отработала верно

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

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

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

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"

LOCATE 2, 18

PRINT "Gruppa PS0601, Adamskiy Alexey"