Расскажите про рекурсию, запутался я с ней Опции

[maksimla]

У меня чего то не выходит делать рекурсивно. Хоть паручку программ делал рекурсивно факториала, фибоначи и деление
div без div кажится перевод чисел с десятичной в двоичную систему. Вот последние что недавно сделал сам

     uses graph,crt;
 var grDriver, grMode, errCode: integer;
  procedure kryg(x,y,r:integer);
  begin
  circle(x,y,r);
//   readln;
  if r>10 then kryg(x-r,y,r div 2);
  if r>10 then kryg(x+r,y,r div 2);
  if r>10 then kryg(x,y-r,r div 2);
  if r>10 then kryg(x,y+r,r div 2);

  end;
 begin
  grDriver:=detect;
  InitGraph(grDriver,grMode,'');
  errCode:=GraphResult;
  if errCode=grOk then
  begin
  kryg(getmaxx div 2,getmaxy div 2,100);
  writeln('k');
  end;
  readln;
   closegraph;
   end.

А другие чего то не получаются такие как кривая коха нашол в интернете пример ее на паскале понел кажится а другие немогу сделать.
Можете дать какие то легкие задания лутше без графики
У меня сейчас задание такое Один большой квадрат а в нем 9 маленьких квадратов нарисовать и так далее в тех еще квадраты. Вот как бы знаю как делать но чего то не получается. Хоть опять можно в интернете найти решение а я эту программку хочу сам решить. но что то не понимаю в рекурсиях

Сообщение отредактировано: maksimla - 3.11.2010 13:45

[TarasBer]

Ну квадратики внутри большого расположены в виде таблицы 3 на 3, значит, чтобы их перебрать, надо построить внешний цикл так:

for i := 0 to 2 do for j := 0 to 2 do

Паре (1,1) соответствует центральный квадрат, её трогать не надо.

Теперь надо координаты маленьких квадратиков вычислить так, чтобы они при i=0 были равны x и при увеличении i менялись на x2 (x2 - это треть стороны большого квадрата).
kv(x+x2*i,y+y2*i,x+x2*(i+1),y+y2*(i+1),lvl-1);

И аналогично для y и j.
То есть в выражениях для параметров, у которых не x, а y, надо заменить i на j:

kv(x+x2*i,y+y2*j,x+x2*(i+1),y+y2*(j+1),lvl-1);

Я думал, сам догадаешься.


> неправильно вставил наверное код

В каком смысле?
Не компилируется?
Запускается и зависает?
Запускается и вылетает?
Рисует не ту картинку?

Нормально говори о неполадках.
А то будет как в той истории с выключенным светом.