vlad / TURBO P / tp7 / BIN / sichenja

Лаба 2
Завдання 2(МЕТОД ЗОЛОТОГО СІЧЕНЯ)


Program sichenja;
uses crt;
const k=0.618;
var a,b,l,x,x1,x2,y1,y2:real;n:longint;
function func(f:real):real;
begin func:=3*sin(x)+2*cos(3*x)-x*x+3*x;
end;
begin
n:=0;
write('Vvedit promijok (a,b): ');
readln(a,b);
write('Vvedit tochnist: ');
readln(l);
x1:=a+(1-k)*(b-a);
x2:=a+k*(b-a);
y1:=func(x1);
y2:=func(x2);
repeat
inc(n);
if y1<=y2
then begin
b:=x2;
x2:=x1;
x1:=a+(1-k)*(b-a);
y2:=y1;
y1:=func(x1);
end
else begin
a:=x1;
x1:=x2;
x2:=a+k*(b-a);
y1:=y2;
y2:=func(x2);
end;
until abs(b-a)<=l;
writeln(((a+b)/2):5:4);
writeln('kilkist iteracij v cikli=',n);
readkey;
end.