Type PTree = ^TTree; TTree = Record Data : Integer; Left, Right : PTree; end; Корень дерева описывается ссылочной переменной: Var Tree : PTree;
Procedure InsTree(var ANode : PTree; n : lnteger); Begin if ANode = nil then Begin new(ANode); With ANode^ do Begin Left := nil; Right := nil; Data := n; end; end else if n< ANode^.Data then InsTree(ANode^.Left, n) else InsTree(ANode^.Right, n); End;
Procedure PrintTree(ANode : PTree); Begin if ANode <> nil then Begin PrintTree(ANode^.Left); WriteLn(ANode^.Data); PrintTree(ANode^.Right) End; End;
Type PTree = ^TTree; TTree = Record Data : Integer; Left, Right : PTree; end; Var Tree : PTree;
2011-04-13 14:43:05 Ибрагим 8. Закончите фразу: «Список – это дерево, в котором …». Или дуб, или пенёк, или ясень, или клён. Лиственное 2011-04-13 16:06:52 Алесандр Пенёк это не дерево. 2011-12-01 02:03:38 Yaroslav Вот кому нужно реализация бинарного дереа и обход его в ширину http://goldcoding.net/DoneProggrams/PreviewProgram/19 Оставить комментарий: |