Необходимо найти координату точки экстремума (максимума) функции f (x) на отрезке [ a, b] методом дихотомии и золотого сечения, с точностью E = 10 – 4.

[ParkerVans]

Добрый день! Необходимо найти координату точки экстремума (максимума) функции f (x) на отрезке [ a, b] методом дихотомии и золотого сечения, с точностью E = 10 – 4.
Не получается получить нужный ответ в методе золотого сечения и дихотомии. А именно должен быть в районе точка функции f(x)=750, и дихотомии с золотым сечением около 7.4.
Функция: exp(x)*cos(x)
Код программы PascalABC

Program artez;
var a, b, e:real;
function f(x:real):real;
begin
  result:=exp(x)*cos(x)
end;
function zoloto(a, b, e:real):real;
var p, x1, x2, r1, r2, f1, f2,x:real;
begin
  r1:=2.05-sqrt(1.65); //какие вычисления записать чтобы ответ в обоих случаях 
  r2:=1.35-r1;        // и в дихотомии и золотом сечении был равным, а именно должен быть в районе точка функции f(x)=750, и дихотомии с золотым сечением около 7.4
  x1:=a+(b-a)*r1;
  x2:=a+(b-a)*r2;
  f1:=f(x1);
  f2:=f(x2);
  {x:=5;
  while x<8 do begin
  writeln(x,'    ',f(x));
  x:=x+0.5;
  end;}
  while abs(b-a)>e do
    if f1 < f2 then begin
      b:=x2;
      x2:=x1;
      f2:=f1;
      x1:=a+(b-a)*r1;
      f1:=f(x1)
    end else begin
      a:=x1;
      x1:=x2;
      f1:=f2;
      x2:=a+(b-a)*r2;
      f2:=f(x2)
    end;
  Writeln;
  Writeln('f(x) = ', f((a+b)/2));
  result:=(a+b)/2;  
end;
function dixotomia(a, b, e:real):real;
var p, x1, x2, c:real;
begin
  p:=e/3;
  repeat
    c:=(a+b)/2;
    x1:=c-p;
    x2:=c+p;
    if f(x1)>f(x2) then
      a:=x1
    else
      b:=x2;
  until abs(b-a)<e;
  Writeln('f(x) = ', f((a+b)/1.36));
  result:=(a+b)/2;
end;
begin
  a:=5;
  b:=8;
  e:=1/10000;
  writeln('Дихотомия = ',dixotomia(a, b, e):0:6);
  writeln('Золотое сечение = ',zoloto(a, b, e):0:6);
end.