Шаг 17.
Формирование стека и добавление нового элемента

    На этом шаге мы рассмотрим формирование стека и добавление нового элемента..

    Начальное формирование стека выполняется группой из следующих операторов:

 New(pTop); 
 pTop^.pNext:=Nil;
 pTop^.Element := D1;


Рис.1. Начальное формирование вершины стека


    Замечание.
    Последний оператор или группа операторов записывает содержимое поля данных первой компоненты.

    Рассмотрим процедуру формирования стека:

 Procedure Create_Stack(var pTop:PtrRec; D:TypeElement);
  Begin
     New(pTop);
     pTop^.pNext := Nil;
     pTop^.Element :=D;
  End;

    На следующем шаге мы рассмотрим добавление нового элемента в стек.




Предыдущий шаг Содержание Следующий шаг