20 lines
373 B
ObjectPascal
20 lines
373 B
ObjectPascal
// Ðåêóðñèâíîå ðèñîâàíèå äâîè÷íîãî äåðåâà
|
|
uses GraphABC;
|
|
|
|
const dy=60;
|
|
|
|
procedure DrawTree(x,y,dx,level: integer);
|
|
// îáõîä: ëåâîå, êîðåíü, ïðàâîå
|
|
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.
|