Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

                            If vsp^.L=Nil Then Begin vsp^.L:=A; vsp:=A^.L End Else vsp:=vsp^.L

                          Else

              If vsp^.R = Nil Then Begin vsp^.R := A; vsp:=A^.R End Else vsp := vsp^.R;

                      End

End;

{Рекурсивный вариант добавления элемента в дерево, Turbo Pascal}

Procedure InsRec(Var Tree : U; x : BT);

Begin

  If Tree = Nil

  Then Begin  

    New(Tree);

    Tree^.L := Nil;

    Tree^.R := Nil;

    Tree^.Inf := x

End

  Else If x < Tree^.inf

Then InsRec(Tree^.L, x)

Else InsRec(Tree^.R, x)

End;

Аналогично на C++.

typedef long BT;

struct BinTree{

      BT inf;

      BinTree *L; BinTree *R;

    };

Рекомендуем скачать другие рефераты по теме: бесплатно ответы, управление реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата