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

[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 17:45