Привет всем!Я тут самоучка и вот не могу сделать програмочку нужно построить елку из 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;
М | Теги, однако... мисс_граффити |
А можно точнее, как должна выглядеть эта елка?
фиолетовая елка из треугольников....
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;
Пасибки, ёлочка красивая!