Вывести дерево в графическом виде

program BinaryTree;
 
type
PNode = ^TNode;
TNode = record
Data: integer;
Left: PNode;
Right: PNode;
end;
 
// Создание нового узла
function NewNode(Value: integer): PNode;
var
Node: PNode;
begin
New(Node);
Node^.Data := Value;
Node^.Left := nil;
Node^.Right := nil;
NewNode := Node;
end;
 
// Добавление элемента в дерево
procedure Insert(var Root: PNode; Value: integer);
begin
if Root = nil then
Root := NewNode(Value)
else if Value < Root^.Data then
Insert(Root^.Left, Value)
else
Insert(Root^.Right, Value);
end;
 
// Удаление элемента из дерева
function Delete(var Root: PNode; Value: integer): boolean;
var
Temp: PNode;
begin
if Root = nil then
Delete := false
else if Value < Root^.Data then
Delete := Delete(Root^.Left, Value)
else if Value > Root^.Data then
Delete := Delete(Root^.Right, Value)
else
begin
if (Root^.Left = nil) and (Root^.Right = nil) then
begin
Dispose(Root);
Root := nil;
end
else if Root^.Left = nil then
begin
Temp := Root;
Root := Root^.Right;
Dispose(Temp);
end
else if Root^.Right = nil then
begin
Temp := Root;
Root := Root^.Left;
Dispose(Temp);
end
else
begin
Temp := Root^.Right;
while Temp^.Left <> nil do
Temp := Temp^.Left;
Root^.Data := Temp^.Data;
Delete(Root^.Right, Temp^.Data);
end;
Delete := true;
end;
end;
 
// Обход дерева симметрично позволяет вывести все значения в дереве в порядке возрастания.
procedure InorderTraversal(Root: PNode);
begin
if Root <> nil then
begin
InorderTraversal(Root^.Left);
Write(Root^.Data, ' ');
InorderTraversal(Root^.Right);
end;
end;
 
// Обход дерева прямым способом позволяет вывести значения в дереве в порядке, в котором они были добавлены.
procedure PreorderTraversal(Root: PNode);
begin
if Root <> nil then
begin
Write(Root^.Data, ' ');
PreorderTraversal(Root^.Left);
PreorderTraversal(Root^.Right);
end;
end;
 
// Обход дерева обратным способом позволяет вывести значения в дереве в порядке, обратном порядку, в котором они были добавлены.
procedure PostorderTraversal(Root: PNode);
begin
if Root <> nil then
begin
PostorderTraversal(Root^.Left);
PostorderTraversal(Root^.Right);
Write(Root^.Data, ' ');
end;
end;
 
// Поиск элемента в дереве
function Search(Root: PNode; Value: integer): boolean;
begin
if Root = nil then
Search := false
else if Root^.Data = Value then
Search := true
else if Value < Root^.Data then
Search := Search(Root^.Left, Value)
else
Search := Search(Root^.Right, Value);
end;
 
var
Root: PNode;
Choice, Value: integer;
begin
Root := nil;
repeat
WriteLn('1. Dobavit element');
WriteLn('2. Udalit element');
WriteLn('3. Obhod dereva semetri4no');
WriteLn('4. Obhod dereva pryamim sposobom');
WriteLn('5. Obhod dereva obratnim sposobom');
WriteLn('6. Poisk elementa');
WriteLn('7. Vihod');
Write('Vibirite deystvie: ');
ReadLn(Choice);
case Choice of
1:
begin
Write('Vvedite zna4enie: ');
ReadLn(Value);
Insert(Root, Value);
end;
2:
begin
Write('Vvedite zna4enie: ');
ReadLn(Value);
if Delete(Root, Value) then
WriteLn('Element udalen ')
else
WriteLn('Element ne nayden');
end;
3:
begin
Write('Simmetri4niy obhod: ');
InorderTraversal(Root);
WriteLn;
end;
4:
begin
Write('Pryamoy obhod: ');
PreorderTraversal(Root);
WriteLn;
end;
5:
begin
Write('Obratniy obhod: ');
PostorderTraversal(Root);
WriteLn;
end;
6:
begin
Write('Vvedite zna4enie: ');
ReadLn(Value);
if Search(Root, Value) then
WriteLn('Element nayden')
else
WriteLn('Element ne nayden');
end;
end;
until Choice = 7;
end.