Question

СРОЧНО!!! Напишите программу на паскале, которая находит все минимумы и максимумы функции $f(x)=x^3-8x+1-5sin(x)$на интервале [-5;5] с точностью 0,001, используя метод «золотого сечения». Границы интервала для поиска каждого минимума и максимума определяются автоматически.
Вот фрагмент программы:

const eps=0.001;
var k,a,b,x1,x2,r,delta:real;
function f(x:real):real;
begin
f:=x*x*x-8*x+1-5*sin(x)
end;
BEGIN
a:=-5;
b:=5;
k:= 0.01;
delta:= 2*eps;
{Поиск одного из миннимумов}
while b - a > delta do begin
r:= k*(b - a);
x1:=(a + b)/2 - r;
x2:=(a + b)/2 + r;
if f(x1) > f(x2) then
a:= x1
else b:= x2
end;
writeln('min = ', (a+b)/2:10:3 );
end.

P.s. решения данного уравнения: max:(-1.612,14.703) min:( 1.612,-12.703)