Лабораторная работа №5. Вычислительная математика. Вариант №7. ДО СибГУТИ.

Написать программу для нахождения максимального значения функции на отрезке [0, 0.5] методом золотого сечения с точностью 0.0001.
f(x)=e^√x*(x-1)*(x-10)*(x-N-1)*(x-0,5)
Считается, что требуемая точность достигнута, если выполняется условие
|b_k-a_k |<ε, ( e – заданная точность, a_k, b_k - границы интервала неопределенности, k =0,1,2,1⁄4), при этом, x^*≈(a+b)/2,f_max=f(x^*).
N=7.

Листинг программы
program lab_5;
uses crt;
const N=7;
var f,m:real;
procedure sol(k,l,e:real;var x,y:real);
var a,b,x1,x2,y1,y2:real;
begin
a:=k;
b:=l;
while b-a>e do begin
x1:=b-(b-a)/1.618;
.................

Оценка: "Зачет"
Проверил: Галкина М. Ю.