Перемещение графических объектов

[karisha98]

Задание Нужно чтобы круги сначала расходились из одной точки, а потом обратно в нее сходились.
Первая часть задания выполнена, а вот, как сделать чтоб круги обратно в нее сходились(( Помогитее

uses graphABC,crt;
const r: array [1..10] of byte=(0,0,0,0,8,8,0,0,0,0);
      g: array [1..10] of byte=(160,145,137,127,121,121,127,137,145,160);
      b: array [1..10] of byte=(227,203,189,135,167,167,135,189,203,227);
var j: integer;

procedure Krug (rr: integer);
var i: integer;
begin
setbrushcolor(rgb(r[1],g[1],b[1]));
for i:=1 to 10 do
    begin
    setpencolor(rgb(r[i],g[i],b[i]));
    if rr div 100<2 then setpenwidth(10)
       else setpenwidth(10*(rr div 100));
    circle(250,250,rr-(i*8));
    end;
end;

begin
lockdrawing;
hidecursor;
clearwindow(rgb(r[1],g[1],b[1]));
repeat
setwindowsize(500,500);
for j:=1 to 350 do
    begin
    Krug (j*3);
    Krug (j*2);
    sleep(10);
    Krug (j);
    sleep(15);
    redraw;
    end;
until keypressed;
end.

___
форматируйте код
Модератор

[Serge_Bliznykov]

Что, код где-то утащили, а что в нём делается, совсем непонятно?

Очевидно же, что если цикл прокрутить в обратную сторону, круги будут не рассходиться, а, наоборот, сходиться:

for j:=350 downto 1 do

ну, или полностью:

uses graphABC,crt;
const r: array [1..10] of byte=(0,0,0,0,8,8,0,0,0,0);
      g: array [1..10] of byte=(160,145,137,127,121,121,127,137,145,160);
      b: array [1..10] of byte=(227,203,189,135,167,167,135,189,203,227);
var j: integer;

procedure Krug (rr: integer);
var i: integer;
begin
setbrushcolor(rgb(r[1],g[1],b[1]));
for i:=1 to 10 do
    begin
    setpencolor(rgb(r[i],g[i],b[i]));
    if rr div 100<2 then setpenwidth(10)
       else setpenwidth(10*(rr div 100));
    circle(250,250,rr-(i*8));
    end;
end;

begin
lockdrawing;
hidecursor;
clearwindow(rgb(r[1],g[1],b[1]));
repeat
  setwindowsize(500,500);
  for j:=1 to 350 do
  begin
    Krug (j*3);
    Krug (j*2);
    sleep(10);
    Krug (j);
    sleep(15);
    redraw;
  end;
  for j:=350 downto 1 do
  begin
    Krug (j*3);
    Krug (j*2);
    sleep(10);
    Krug (j);
    sleep(15);
    redraw;
  end;
until keypressed;
end.