Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

               Dispose(Vsp);

       End;

       Procedure V_Spisok;

       Var Vsp : U;

       Begin

           New(Vsp);

           Vsp^.Inf := X;

           Vsp^.Next := Pred^.Next;

           Pred^.Next := Vsp;

       End;

       Procedure Iz_Spiska;

       Var Vsp : U;

       Begin

            Vsp := Pred^.Next;

            Pred^.Next := Pred^.Next^.Next;

            X := Vsp^.Inf;

            Dispose(Vsp);

       End;

       Procedure Ochistka;

       Var Vsp : BT;

       Begin

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

       End;

       Function  Pust;

       Begin

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





Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата