Размещено 4 года назад по предмету
Информатика
от BelkavKedax
СРОЧНО!!! Напишите программу на паскале, которая находит все минимумы и максимумы функции на интервале [-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)