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

           U = ^Zveno;

           Zveno = Record Inf : BT; Next: U End;

      Procedure V_Nachalo(Var First : U; X : BT);

      Procedure Iz_Nachala(Var First : U; Var X : BT);

      Procedure V_Spisok(Pred : U; X : BT);

      Procedure Iz_Spiska(Pred : U; Var X : BT);

      Procedure Ochistka(Var First: U);

      Function  Pust(First : U) : Boolean;

      Procedure Print(First : U);

Implementation

 

      Procedure V_Nachalo;

      Var Vsp : U;

      Begin

              New(Vsp);

              Vsp^.Inf := X;

              Vsp^.Next := First;

              First := Vsp;

      End;

 

      Procedure Iz_Nachala;

      Var Vsp : U;

      Begin

              Vsp := First;

              First := First^.Next;

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





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