TreeNext(node)

Begin

  // Если правое поддерево не пусто, то возвратить

  // вершину с минимальным значением ключа из правого поддерева

  If (node.right != NIL) Then

    Return TreeMinimum(node.right);

  nodeParent = node.nodeParent;

  // Перебирать родителей, пока не найдена вершина,

  // являющаяся левым потомком своего родителя

  // или пока не закончатся родители.

  While (nodeParent != NIL) and (node == nodeParent.right) Do

  Begin

    node = nodeParent;

    nodeParent = nodeParent.nodeParent;

  End

  // Возвратить родителя вершины, являющегося левым потомком своего родителя

  Return nodeParent;

End

TreePrevious(node)

Begin

  If (node.left != NIL) Then

    // Если левое поддерево не пусто, то возвратить

Поделитесь этой записью или добавьте в закладки