20 lines
373 B
ObjectPascal
20 lines
373 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
uses GraphABC;
|
|||
|
|
|
|||
|
|
const dy=60;
|
|||
|
|
|
|||
|
|
procedure DrawTree(x,y,dx,level: integer);
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD>: <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
if level=0 then Exit;
|
|||
|
|
DrawTree(x-dx,y+dy,dx div 2,level-1);
|
|||
|
|
Line(x,y,x-dx,y+dy);
|
|||
|
|
Line(x,y,x+dx,y+dy);
|
|||
|
|
Sleep(10);
|
|||
|
|
DrawTree(x+dx,y+dy,dx div 2,level-1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
DrawTree(WindowWidth div 2,10,190,8);
|
|||
|
|
end.
|