Приветствую!
У меня вот такая проблема. Необходимо написать процедуры для вычисления свойства двоичного дерева. Само дерево у меня вроде бы получается. обход с лева на право вроде тоже с выводом элементов. Но мне еще необходимо вычислить размер дерева, высоту дерева, и вычислить контрольную сумму. Естественно первым делом перечитал кучу одинаковых букварей и вот что удалось родить в муках.
| Код |
Type // создаем новый тип определяющий дерево
PVertex = ^TVertex;
TVertex = Record
Data : Integer;
Left, Right : PVertex;
end;
Var
Root : PVertex;
Digit, n: Integer;
Procedure InsTree(var ANode : PVertex; n : Integer); //вставки элемента в дерево
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 Tsize(ANode: PVertex) //должна быть рекурсивная процедура вычисления размера дерева
begin
If (ANode=nil) then Tsize:=1
Else Tsize:=1+Tsize(ANode^.left)+Tsize(ANode^.Right);
End;
Procedure PrintTree(ANode : PVertex); //обход дерева слева на право
Begin
if ANode <> nil then
Begin
PrintTree(ANode^.Left);
WriteLn(ANode^.Data);
PrintTree(ANode^.Right)
End;
End;
BEGIN
Writeln('Enter unti -0');
Root := nil;
Read(Digit);
While Digit<>0 Do
Begin
InsTree(Root,Digit);
Write('Enter the next number: ');
ReadLn(Digit);
End;
PrintTree(Root);
readln;
END.
|
У меня есть схема необходимых алгоритмов на псевдокоде но я никак не могу до конца его понять.
Помогите пожалуйста.
Вот к примеру алгоритм вычисления размера дерева
Определение размера дерева. Видно что используется рекурсия. Моя интерпритация -это процедура TSize но конечно же не все так просто.
Size(p:pVertex)
IF(p = NIL) := 0
ELSE Size := 1 + Size (pLeft)+ Size (pRight)
FI
| Код |
Procedure Tsize(ANode: PVertex)
begin
If (ANode=nil) then Tsize:=1
Else Tsize:=1+Tsize(ANode^.left)+Tsize(ANode^.Right);
End;
|
А вот к примеру определение высоты дерева
Height(p:pVertex)
IF(p = NIL) Height := 0
ELSE Height := 1+ max(Height(pLeft), Height(pRight))
В общем очевидно что мы с компилятором имеем разные мнения о правильности написания кода  . Подсобите кто нибудь а?
|
