RA
Roza A.
Помогите исправить програму. Паскаль АБС. Линия вращается вокруг одной из своих точек
program lab8_2;
uses
GraphABC;
var x1,x2,y1,i,y:integer; y2,r: real;
begin
i:=1;
x1:=100;
y1:=100;
x2:=x1;
y2:=y1-(x1/2);
r:=abs(y1-y2);
while x2<=1000 do
begin
if (y1=y2)then
begin
x2:=x2+i;
y2:=y1-sqrt(r*r-(x2-x1)*(x2-x1));
y:=round(y2);
line(x1,y1,x2,y);
end
else begin
x2:=x2-i;
y2:=y2+sqrt(r*r-(x2-x1)*(x2-x1));
y:=round(y2);
line(x1,y1,x2,y);
end
end;
end.