20 lines
430 B
ObjectPascal
20 lines
430 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.
|