В общем на картинке более понятно станет
Он начальное даже не прорисовывает((( Трассировку сделал ничего за границы не должно улететь...
И да картинку я сам нарисовал, чтобы было видно как работать должна а то щас будете говорить что код не подходит под картинку)
Program sharik;
Uses Crt,Graph;
Var x,y,RX,i,j,z:integer;
Gt,Gm:integer;
Begin
Gt:=detect;
InitGraph(Gt,Gm,'');
x:=10;y:=240;RX:=8;i:=2;
repeat
x:=10;y:=240;
repeat
ClearDevice;
x:=x+30;y:=y-60;
SetFillStyle(1,i);
FillEllipse(x,y,RX,RX);delay(15000);
until y=0;
repeat
ClearDevice;
x:=x+30;y:=y+60;
SetFillStyle(1,i);
FillEllipse(x,y,RX,RX);delay(15000);
until y=480;
repeat
ClearDevice;
x:=x+30;y:=y-30;
SetFillStyle(1,i);
FillEllipse(x,y,RX,RX);delay(15000);
until x=640;
repeat
ClearDevice;
x:=x-30;y:=y-30;
SetFillStyle(1,i);
FillEllipse(x,y,RX,RX);delay(15000);
until y=0;
repeat
ClearDevice;
x:=x-30;y:=y+30;
SetFillStyle(1,i);
FillEllipse(x,y,RX,RX);delay(15000);
until x=0;
until keypressed;
End.
Сообщение отредактировано: Artem7 -