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

p^.elem:=x;

sn1:=p;

sn2:=p;

End; { init}

Procedure listnext;

{распечатка содержимого дека в прямом порядке}

var s:connect;

begin

s:=sn1;

while s<>nil do begin

write;

s:=s^.next; end;

write;

End; { list}

Procedure listpred;

{распечатка содержимого дека в обратном порядке}

var s:connect;

begin

s:=sn2;

while s<>nil do begin

write;

s:=s^.pred; end;

write;

End; {list}

Function empty: Boolean;

{проверка дека на пустоту}

Begin

empty:=sn1=sn2;

End; { empty}