Рекурсия фигур на паскале

[Артём)]

Помогите сделать данный код с помощью рекурсии:

Program recurs;
uses GraphABC;
var x,y,r,d,n:integer;
procedure ris(x,y,r:integer);
var i:integer;
begin
x:=350;
y:=250;
r:=190;
d:=190;
ris(x,y,r);
x:=140;
y:=150;
r:=191;
d:=191;
ris(x,y,r);
x:=400;
y:=150;
r:=349;
d:=249;
ris(x,y,r);
x:=191;
y:=290;
r:=139;
d:=249;
ris(x,y,r);
readln;
end.

А так должна быть рекурсия согласно рисунку,хотя бы приблизительно

[Serge_Bliznykov]

Это что за ужас, летящий на крыльях ночи?!
Во-первых, данный код ничего не делает (кроме бесконечно-вложенной рекурсиии)
Во-вторых, как бы рекурсия тут уже есть.
Что нужно то?

[Артём)]

Я просто сделал код,чтобы фигуры были просто нарисованы,мне сказали выразить через рекурсию,чтобы они повторялись.

[Serge_Bliznykov]

Я просто сделал код,чтобы фигуры были просто нарисованы

Вы нас обманываете.
Приведённая Вами программа НИЧЕГО НЕ РИСУЕТ.
у неё нет внутри операторов вывода графики.
Значит, либо рисует у Вас ДРУГАЯ программа, либо Вы нас банально пытаетесь ввести в заблуждение.

[Артём)]

procedure ris1(x1,y1,x2,y2: integer);
begin
if ((x2-x1)div 2 <10 )then exit;
rectangle(x1,y1,x2,y2);
ris1(x1-(x2-x1)div 2,y1 - (y2 - y1)div 2,x1,y1);
ris1(x1-(x2-x1)div 2,y2 + (y2 - y1)div 2,x1,y2);
ris1(x2,y2,x2+(x2-x1)div 2,y2 + (y2 - y1)div 2);
ris1(x2,y1,x2+(x2-x1)div 2,y1 - (y2 - y1)div 2);
end;
begin
ris1(200,200,300,300);
end.

Объясните построчно пожалуйста)

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

ну вот, теперь уже видно, что делает программа.

построчно Вы сами разберёте.
я только подскажу принцип.

у Вас есть рекурсивная процедура Ris1 в которую передаются координаты прямоугольника. Она делает следующее:

  // проверка выхода, чтобы избежать бесконечного зацикливания
  //  проверяем, если половина стороны прямоугольника  по оси Х меньше 10 (это размер будущих маленьких прямоугольничков - меньше 10 точек не рисовать) 
  //  тогда - выходим из процедуры
  if ((x2-x1)div 2 <10 )then exit; 

  // нарисовать прямоугольник по переданным в процедуру координатам
  rectangle(x1,y1,x2,y2);

  // а вот и рекурсия


  // вызвать рекурсивно (т.е. саму себя) процедуру рисования вложенных фигур с параметрами нового прямоугольника по координатам 
  ris1(x1-(x2-x1)div 2,y1 - (y2 - y1)div 2,x1,y1);

  // вызвать рекурсивно (т.е. саму себя) процедуру рисования вложенных фигур с параметрами нового прямоугольника по координатам 
  ris1(x1-(x2-x1)div 2,y2 + (y2 - y1)div 2,x1,y2);

  // вызвать рекурсивно (т.е. саму себя) процедуру рисования вложенных фигур с параметрами нового прямоугольника по координатам 
  ris1(x2,y2,x2+(x2-x1)div 2,y2 + (y2 - y1)div 2);

  // вызвать рекурсивно (т.е. саму себя) процедуру рисования вложенных фигур с параметрами нового прямоугольника по координатам 
  ris1(x2,y1,x2+(x2-x1)div 2,y1 - (y2 - y1)div 2);

[BDA]

Отмечу, что данный код рисует "лишние" прямоугольники внутри прямоугольника "родителя".
Например, тут нет лишних прямоугольников, но код получился менее красивым. И задаются не противоположные углы прямоугольника, а верхний левый угол и длины сторон. Но если вы позаимствуете идею с четвертями и добавите в код выше (в 5 сообщении) парочку ифов, то лишние прямоугольники не будут рисоваться.