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

                             else begin Vsp^.N := First; Vsp^.P := First^.P; First^.P^.N := Vsp; First^.P := Vsp; end;

      End;

      Procedure Iz_Och;

      Var Vsp : U;

      Begin

              x:=first^.inf;

              if First^.p=first

              then begin

                         dispose(first);

                         first:= nil

                   end

              else

                   begin

                         Vsp := First;

                         First := First^.N;

                         First^.P := Vsp^.P;

                         Dispose(Vsp)

                   end

      End;

      Procedure Ochistka;

      Var Vsp : BT;

      Begin

               While Not Pust(First) Do Iz_Och(First, Vsp)

      End;

      Function  Pust;

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





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