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

[Anastacia Adesso]

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

[Michael_Rybak]

Добавь параметр came_from, который будет означать, откуда мы пришли (по какому направлению). Получится что-то такое (не запускал):

(*в начале программы*)
const DIR_LEFT = 0;
const DIR_UP = 1;
const DIR_RIGHT = 2;
const DIR_DOWN = 3;
const DIR_NONE = 4;

...

  procedure ll(x,y,l,sk,came_from:integer);
  begin 
        if came_from <> DIR_UP then line(x,y, x, y+l);
        if came_from <> DIR_DOWN then line(x,y, x, y-l);
        if came_from <> DIR_LEFT then line(x,y, x+l, y);
        if came_from <> DIR_RIGHT then line(x,y, x-l, y);
        if sk>1 then begin
               if came_from <> DIR_LEFT then ll(x+l, y, l div 4, sk-1, DIR_RIGHT);
               if came_from <> DIR_RIGHT then ll(x-l, y, l div 4, sk-1, DIR_LEFT);
               if came_from <> DIR_DOWN then ll(x, y-l, l div 4, sk-1, DIR_UP);
               if came_from <> DIR_UP then ll(x, y+l, l div 4, sk-1, DIR_DOWN);
               end;
  end;

(*в rr аналогично*)

...

     initgraph(gr,gm, 'z:\');
     ll(x,y,l,sk, DIR_NONE);
     rr(x,y,r,sk, DIR_NONE);
...

[Anastacia Adesso]

Michael_Rybak, я теперь совсем запуталась
Это обязательно такие константы надо ставить?
У меня от них голова болит

[Michael_Rybak]

Это обязательно такие константы надо ставить?
У меня от них голова болит

Ну назвать их можешь по-другому . Смысл в том, что ты идешь из каждой точки рекурсивно во все 4 стороны. А идти в 4 стороны надо только в самый первый раз, а дальше - в 3 стороны, кроме той, откуда пришли. Правильно я понимаю? Для этого и нужны эти константы, чтобы передавать, откуда мы пришли, и не ветвиться в ту сторону. Представь, как бы ты это рисовала руками.

Ну или я неправильно понял, что тебе нужно. Нарисуй, что ли, в paint'е набросок.