рекурсия вроде бы Опции

[Sensitive]

Подскажите такое задание решается с помощью рекурсии или как-то по-другому?
(Построить окружность вокруг которой расположено 8 окружностей меньшего радиуса,и вокруг каждой из этих окружностей расположено еще по 8 окружностей также меньшего радиуса и т.д.)

[klem4]

Показала бы чтоли что получилось



У меня вот так вышло (идея судя по всему такая-же как предлагал Lapp):

uses crt, graph;

function _x (const angle: Integer; const cx, len: integer): Integer;
begin _x := round(cx + len * cos(45*angle / 180 * pi)); end;

function _y (const angle: Integer; const cy, len: integer): Integer;
begin _y := round(cy - len * sin(45*angle / 180 * pi)); end;

procedure Circles(cx, cy, radius, deep: Integer);
var
  angle: Integer;
begin
  if deep > 0 then begin
    dec(deep);
    for angle := 0 to 7 do begin
      Circle (_x(angle, cx, radius * 2), _y(angle, cy, radius * 2), radius div 3);
      Circles (_x(angle, cx, radius * 2), _y(angle, cy, radius * 2), radius div 4, deep);
    end;
  end;
end;

var
  gd, gm: Integer;

begin
  gd := detect;
  initgraph(gd, gm, '');

  Circle(GetMaxX div 2, GetMaxY div 2, 120);
  Circles(GetMaxX div 2, GetMaxY div 2, 120, 3);

  readkey;
  closegraph;
end.