На этом шаге мы рассмотрим формирование стека и добавление нового элемента..
Начальное формирование стека выполняется группой из следующих операторов:
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;
На следующем шаге мы рассмотрим добавление нового элемента в стек.