Паскаль АВС

[Nasty)]

Паскаль АВС

Помогите оочень нада. Задали по инф енаписать програму в паскале. Чтоб закрашеный кружок летал туда и обратно.

uses GraphABC;

var i,a: integer;
begin
for a:=1 to 500 do
begin
LockDrawing;
for i:=1 to 500 do
begin
ClearWindow;
SetBrushColor(clYellow);
Ellipse(i,100,i+100,200);
Redraw;
Sleep(1);
end;
end;
end.

вот в одну сторону он летит а надо чтоб ещё и обратно. Как это сдлеать?

[MOD]Уважаемый пользователь. В соответствии с пунктом 2.1 правил форума, Ваша тема перемещена в соответствующий раздел. Модератор[/MOD]

 

[AlexZir]

uses GraphABC;

var i,a: integer;
begin
for a:=1 to 500 do
    begin
       LockDrawing;
       for i:=1 to 500 do
        begin
         ClearWindow;
         SetBrushColor(clYellow);
         Ellipse(i,100,i+100,200);
         Redraw;
         Sleep(1);
         end;
[COLOR="Red"]         for i:=500 downto 1 do
        begin
         ClearWindow;
         SetBrushColor(clYellow);
         Ellipse(i,100,i+100,200);
         Redraw;
         Sleep(1);
         end;[/COLOR]
    end;
 end.

примерно так )