Рекурсия и графика, Гдето ошибка Опции

[Anastacia Adesso]

Ребята!
Где-то тут ошибка.
Условие в том, что надо рисовать сначала крест потом круги с радиусом в его концах. А потом опять крест.
И так чтоб все потихоньку уменьшалось в 2 раза.
Вот сделала, но надо чтоб он не рисовал ничего в сторону центра.
Не подскажете, пожалуйста, в чём прикол?

[volvo]

надо чтоб он не рисовал ничего в сторону центра.

Ты о чем?

Вот так надо, что-ли?

[Anastacia Adesso]

Volvo, это не совсем то.. но прикольно!

воть типа.. рисум крест. потом круги но тока в три конца. к основанию креста не надо

Michael_Rybak, да именно тока в три стороны.
Но говорят это и без констант можно сделать.
Не знаешь как?

[Michael_Rybak]

Но говорят это и без констант можно сделать.
Не знаешь как?

Можно, например, передавать dx и dy. И идти прямо, навлево, и направо.

Например, направление вверх задается парой dx = 0, dy = -1. Повернувшись на 90 градусов по часовой стрелке, мы получим координаты new_dx := -dy, new_dy := dx, а против часовой - new_dx := dy, new_dy := -dx

Код не запускал.

uses crt, graph;
var l, x, y, sk, r:integer;
    gr, gm: integer;

  procedure ll(x,y,dx,dy,l,r,sk:integer);
  begin 
      line(x, y, x + dx * l, y + dy * l); circle(x + dx * l, y + dy * l, r);
      line(x, y, x - dy * l, y + dx * l); circle(x - dy * l, y + dx * l, r);
      line(x, y, x + dy * l, y - dx * l); circle(x + dy * l, y - dx * l, r);

        if sk>1 then begin
            ll(x, y, x + dx * l, y + dy * l, dx, dy, l div 4, r div 4, sk - 1);
            ll(x, y, x - dy * l, y + dx * l, -dy, dx, l div 4, r div 4, sk - 1);
            ll(x, y, x + dy * l, y - dx * l, dy, -dx, l div 4, r div 4, sk - 1);
        end;

  end;

begin
     clrscr;
     readln(l);
     x:=300; y:=240; r:=trunc(l/2);
     readln(sk);
     gr:=9; gm:=2;
     initgraph(gr,gm, '');
     ll(x,y,1,0,l,r,sk);
     ll(x,y,-1,0,l,r,sk);
     ll(x,y,0,1,l,r,sk);
     ll(x,y,0,-1,l,r,sk);

  readkey;
end.