vlad / TURBO P / tp7 / BIN / ZOLOTO

Program Zol_sich;
uses crt ;
const alfa=0.618;
var a,b,l,x1,x2,y1,y2,X,Y,k:real;
begin
clrscr;
writeln('Vvedit interval [a,b]:');
readln(a,b);
writeln('Vvedit tochnist:');
readln(l);
x1:=a+(1-alfa)*(b-a);
x2:=a+alfa*(b-a) ;
y1:=(sqr(x1)* x1)- (sqr(x1))-(10*x1);
y2:=(sqr(x2)* x2)- (sqr(x2))-(10*x2);
repeat
if y1<y2 then
begin
b:=x2;
x2:=x1;
x1:=a+(1-alfa)*(b-a);
y2:=y1;
y1:=(sqr(x1)* x1)- (sqr(x1))-(10*x1)
end
else
begin
a:=x1;
x1:=x2;
x2:=a+(alfa)*(b-a);
y1:=y2;
y2:=(sqr(x2)* x2)- (sqr(x2))-(10*x2)
end ;
k:=k+1;
until b-a<=l;
X:=(a+b)/2;
Y:=(sqr(x)* x)- (sqr(x))-(10*x);
writeln('Znachenia extremymy: x=',X:6:4,' y=',y:6:4);
writeln(' ');
writeln('kilkist iteracij: - ',k:2:0);
readln;
end.