Как продолжить программу?ТУРБО ПАСКАЛЬ Нужно чтобы мяч возвратился обратно в начальные...

Question

Как продолжить программу?ТУРБО ПАСКАЛЬ Нужно чтобы мяч возвратился обратно в начальные координаты.Помогите!

Program myach;
uses crt,graphabc;
var x:integer;
begin
x:=1;
for x:=190 to 465 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
end.

Comments

circle(150,150,15); - это мяч?

---

circle(x,170,10); -а это я полагаю мяч...

Answer 1

Program myach; 
uses crt,graphabc; 
var x:integer; 
begin 
x:=1; 
for x:=190 to 465 do 
begin 
clrscr; 
circle(150,150,15); 
line(150,165,150,250); 
line(150,250,130,270); 
line(150,250,170,270); 
line(150,180,180,175); 
line(150,180,180,180); 
circle(500,150,15); 
line(500,165,500,250); 
line(500,250,480,270); 
line(500,250,520,270); 
line(500,180,470,175); 
line(500,180,470,180); 
circle(x,170,10); 
Delay(5); 
end; 

for x:=465 downto 190 do 
begin 
clrscr; 
circle(150,150,15); 
line(150,165,150,250); 
line(150,250,130,270); 
line(150,250,170,270); 
line(150,180,180,175); 
line(150,180,180,180); 
circle(500,150,15); 
line(500,165,500,250); 
line(500,250,480,270); 
line(500,250,520,270); 
line(500,180,470,175); 
line(500,180,470,180); 
circle(x,170,10); 
Delay(5); 
end; 
end.

Comments

хотя лучше оформить в виде процедуры... меньше текста