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

       Type BT = LongInt;

            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;

               X := Vsp^.Inf;

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



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

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