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

[Счетовод]

Привет всем!Я тут самоучка и вот не могу сделать програмочку нужно построить елку из 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 мин.
Мне б тока с процедуркои помоч а там все я знаю как дальше..

М

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