10 PRINT TAB(10);"МЕТОД 'ЗОЛОТОГО СЕЧЕНИЯ'"
20 PRINT TAB(8);"ПОИСКА МИНИМУМА ФУНКЦИИ F(X)":PRINT
30 PRINT"ПОДПРОГРАММА ВЫЧИСЛЕНИЯ ФУНКЦИИ ЦЕЛИ ВВЕДЕНА (ДА-НЕТ)";
40 INPUT A$:PRINT:IF A$="ДА" THEN 90
50 PRINT" ВВЕДИТЕ ПОДПРОГРАММУ 350, ВХОДОМ КОТОРОЙ ЯВЛЯЕТСЯ X,"
60 PRINT"ВЫХОДОМ - ЗНАЧЕНИЕ F ФУНКЦИИ F(X)."
70 PRINT:PRINT" ВВЕДЯ ПОДПРОГРАММУ, ЗАПУСТИТЕ ПРОГРАММУ СНАЧАЛА."
80 GOTO 240
90 PRINT"ЗАДАЙТЕ A,B-ЛЕВУЮ И ПРАВУЮ ГРАНИЦЫ ЗОНЫ ПОИСКА";:INPUT A,B
100 PRINT"E-ПРЕДЕЛ СУЖЕНИЯ ШИРИНЫ ЗОНЫ ПОИСКА";:INPUT E
110 Y=(3-SQR(5))/2*(B-A):X1=A:X2=A+Y:X3=B-Y:X4=B
120 X=X2:GOSUB 250
130 F2=F:X=X3:GOSUB 250
140 F3=F:X5=(X1+X4)/2
150 IF X4-X1 160 IF F2 170 X5=X3:F5=F3:X1=X2:X2=X3:F2=F3:X=X4-X2+X1:GOSUB 250
180 F3=F:X3=X:GOTO 150
190 X5=X2:F5=F2:X4=X3:X3=X2:F3=F2:X=X1+X4-X3:GOSUB 250
200 F2=F:X2=X:GOTO 150
210 PRINT:PRINT" ФУНКЦИЯ F(X) ИМЕЕТ МИНИМУМ В ТОЧКЕ X=";X5
220 PRINT TAB(12);"В ЭТОЙ ТОЧКЕ F=";F5
240 END
250 F=3*(X-2)*(X-2)+4
260 RETURN
270 END
НТУУ "КПІ" Інженерно-хімічний факультет. Кафедра автоматизації.