Рекурсия (Pascal)

[mittelmabigkeit]

Приветствую, господа.

Собственно, нужна помощь с рекурсией на паскале.
Требуется, что бы к прямоугольнику пририсовывались ещё прямоугольники, по типу пикрелейтеда (рисовал на скорую руку, но идея понятна, я думаю).

На втором пике - имеющийся в данный момент текст программы. Что-то написал там, но выводится только основной прямоугольник, и то, если убираю оператор выбора if и процедуру ris, на пике всё показано, в общем.

Надеюсь на вашу помощь !

Безымянный.jpg

Безымянный2.jpg

[BDA]

procedure rect(lvl: integer; ind: integer);
var
    i: integer;
begin
    if lvl = 0 then exit;
    writeln(lvl, ' ', ind);
    for i := 0 to 3 do
        if (ind < 0) or ((ind + 2) mod 4 <> i) then
            rect(lvl - 1, i);
end;

begin
    rect(3, -1);
end.

Нумерация как координатные четверти, начиная с нуля.
Вместо lvl прикрутить только координаты.

[mittelmabigkeit]

Спасибо, конечно. Но куда только не тыкал - ничего не вышло. Возможно ли объяснить более популярно ? т.к. с паскалем я тесные интимные связи имел.
2818331.jpg

[BDA]

const
    h = 2;

procedure rect(x, y, a, b, ind: integer);
var
    i: integer;
begin
    if a + b < 40 then exit;
    rectangle(x, y, x + a, y + b);
    for i := 0 to 3 do
        if (ind < 0) or ((ind + 2) mod 4 <> i) then
            rect(x + a * Ord(i mod 2 = i div 2) - (a div h) * Ord(i mod 2 <> i div 2),
                 y - (b div h) * Ord(i < 2) + b * Ord(i > 1),
                 a div h, b div h, i);
end;

begin
    rect(300, 300, 200, 150, -1);
end.

Сначала рисуется главный прямоугольник. Затем в цикле вызываются функции для прямоугольников на краях. Переменная ind задает четверть, в которой лежит этот краевой прямоугольник. По номеру четверти можно понять, какие краевые прямоугольники должны быть у рассматриваемого в данный момент.
Код выше проверял в JS рисовалке, так что могут не совпасть координатные оси с паскалем, и рисунок весело поедет.

[mittelmabigkeit]

Боюсь, мой лимит наглости исчерпан, но всё же...
В девятой строке вылазит ошибка "Неверное число параметров процедуры". Лечится ?

[BDA]

Именно эту строчку брал с вашего скриншота. Попробуйте добавить uses.

[mittelmabigkeit]

Конечно же ! Ещё немного поковырявшись, она начала подчиняться.
Благодарю! Низкий поклон вам.

/thread