END FUNCTION

SUB zolot (a, b, E, xmax)

k = (SQR(5) - 1) / 2

x1 = a + (1 - k) * (b - a) x2 = a + k * (b - a)

DO UNTIL ABS(x2 - x1) < E

IF f(x1) < f(x2) THEN

a = x1 x1 = x2 ELSE b = x2 x2 = x1 END IF

x1 = a + (1 - k) * (b - a) x2 = a + k * (b - a) LOOP

xmax = (x1 + x2) / 2

END SUB

РЕЗУЛЬТАТ в Qbasic

Значение max по методу дихотомии при X= .7563525

значение функции Y(xmax)= 51.12492

Значение max по методу золотого сечения при X= .748997

значение функции Y(xmax)= 51.125

Решение задачи с использованием ППП Eureka

$ max(F) y(x)=-2*x^2+3*x+50 F=y(x)

110