Включить в стек

• procedure push(var stak:massiv; stksiz:integer; var stktop:integer; data:integer; var pr:boolean);

• begin

• {vkl}

• if stktop >= stksiz then pr:=false

• else

• begin

• stktop:=stktop+1;

• stak[stktop]:= data;

• pr:=true

• end;

• end;

 

Исключить из стека

• procedure pop(var stak:massiv; stksiz:integer; var stktop:integer;var data:integer; var pr:boolean);

• begin

• {iskl}

• if stktop = 0 then pr:=false

• else

• begin

• data:= stak[stktop];

• stktop:=stktop+1;

• pr:=true

• end;

• end;

Очередь (FIFO)

 

9.3 АТД «Очередь»

О́чередь — структура данных с дисциплиной доступа к элементам «первый пришёл — первый вышел» (FIFO, First In — First Out). Добавление элемента (принято обозначать словом enqueue — поставить в очередь) возможно лишь в конец очереди, выборка — только из начала очереди (что принято называть словом dequeue — убрать из очереди), при этом выбранный элемент из очереди удаляется.

Существует несколько способов реализации очереди в языках программирования.