Лабораторная работа №13. Контейнер List. Выполнение операций над списками

Реализация стека на основе массива
Будем считать, что вершина нашего стека – это первый элемент массива, тогда вершина будет находиться всегда в первой ячейке массива, а дно будет продвигаться по массиву. Для удобства договоримся пустым членам массива – свободному стеку присваивать – 1000.
Заметно, что стек ограничен по размерам: в него можно записать ограниченное количество элементов
Раздел объявления переменных и констант на языке программирования Паскаль выглядит следующим образом:


Const n=10;
туре typeelem=Integer; {объявление типа переменного}
Stack=Array Of typeelem;
Var s: stack;
Х:typeelem;
I: Integer;

Стек можно моделировать с помощью двух переменных:

1. 
   S – стек.
   
2. 
   Х – переменная для содержимого вершины.
   

Для того чтобы не было недоразумений и ошибок нужно распечатывать содержимое стека. Эта процедура выводит на экран содержимое стека в виде столбика, на верху которой будет выводиться вершина. В самом нижнем положении будет находиться первый занесённый элемент.


Procedure list; {процедура распечатки содержания стека}
Var i: Integer;
Begin
Writeln;
I: =1; {указатель вершины ставится на вершину стека}
While And Do Begin
Writeln;
Inc
End;
End; {list}

Для добавления элемента в стек надо, чтобы этот элемент был типа элемента стека. Процедуру добавления можно описать следующим образом:

Procedure push;
Var i: Integer; {процедура вставки}
Begin
For i: =n Downto 2 Do s: =s;
S: =x
End; {push}

Процедура добавления: сначала мы должны освободить место под новый элемент, для этого сдвигаем все элементы стека по массиву вправо и только после добавляем новый в свободную ячейку.

Функция «взять элемент» в переменную заключена в том, чтобы считать элемент в переменную и удалить его из стека. Функции мы присваиваем значение вершины стека, после чего сдвигаем весь стек на одну ячейку влево. В цикле присваиваем I – тому I+1 значение. Последнему члену массива – «дно» стека присваиваем –1000.