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;