Рекурсия, Построение елки из треугольников.... Опции

[Счетовод]

Привет всем!Я тут самоучка и вот не могу сделать програмочку нужно построить елку из n треугольников если не лень помогите пожалуиста .Заранее спасибо.

[мисс_граффити]

а с чем помогать-то? ты уже пробовал сам делать?

[Счетовод]

Пробовать то пробовал, но выводит он вообще что попало. Я первый раз с рекурсией встретился так что не получается никак дали мне такую вот процедурку:

procedure recurs(x,y,x1,y1,k:integer);
 var p2,yy,p1:integer;
 begin
     p1:=x-((x2-x1)div 2);
     p2:=x+((x2-x1)div 2);
     yy:=y+470div n;
     setcolor(13);line(x,y,p1,yy);
     setcolor(15);line(x,y,p2,yy);
     setcolor(14);line(p1,y,p2,y);
 end;

Толко помоему тут какая-то чуш написана.

Добавлено через 2 мин.
Мне б тока с процедуркои помоч а там все я знаю как дальше..

М

Теги, однако... мисс_граффити

[Archon]

А можно точнее, как должна выглядеть эта елка?

[мисс_граффити]

фиолетовая елка из треугольников....

procedure recurs(x,y,r:integer);
  begin
    if r>0 then
      begin
      setcolor(13); //можно задать в основной программе, если елка будет однотонной
      line(x-r,y,x+r,y);
      line(x-r,y,x,y-r);
      line(x+r,y,x,y-r);
      recurs(x,y-r,r-10);
      end;
  end;

сюрреализм...

[Счетовод]

Пасибки, ёлочка красивая!