лаба№5 / лаба №5

program laba5_metodi_scan_iteracii;
var x,xn,b,y,p:real;
begin
writeln('p');
readln(p);
x:=0;
repeat
y:=sqrt(841-sqr(x+14.5))-9;
x:=x+p;
until (sqr(x-1)/1225+sqr(y-10)/400)>=1;
writeln('koordinati B',' ','x=',x:1:1,' ','y=',y:1:1);
repeat
y:=0.85*x-12.325;
x:=x+p;
until sqr(x+14.5)+sqr(y+9)>841;
writeln('koordinati C',' ','x=',x:1:1,' ','y=',y:1:1);
repeat
y:=0.85*x-12.325;
x:=x+p;
until sqr(x-1)/1225+sqr(y-10)/400>=1;
writeln('koordinati D',' ','x=',x:1:1,' ','y=',y:1:1);
xn:=10;
repeat
x:=xn;
xn:=sqrt((1-sqr((0.85*x-12.325)-10)/400)*1225)-1;
until abs(xn-x)<=p;
y:=(0.85*x-12.325);
writeln('koordinati A',' ','x=',x:1:1,' ','y=',y:1:1);
readln;
end.