Курсовая работа: Динамические структуры данных. Решение задач. Стек. Очередь. Дек

Procedure push; {занесение элемента в стек }

Var i: Integer;

Begin

For i:=n Downto 2 Do s:=s;

s:=x

End; {push}

Function pop:typeelem; {удаление элемента из стека }

Var i: Integer;

Begin

pop:=s;

For i:=1 To n-1 Do s:=s;

s:=-1000

End; {pop}

Function stacktop:typeelem; {считывание верхнего элемента без удаления }

Begin

stacktop:=s

End; {stacktop}

Function empty: Boolean; {проверка стека на пустоту}

Begin

empty:=false;

End; {empty}

{–}

Begin {main}

Clrscr;

init;

list; Writeln;

For i:=1 To 3 Do push;

Writeln; list;

Writeln);