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

begin

s:=sn^.next;

while s<>nil do begin

write;

s:=s^.next; end;

End; {list}

Function empty: Boolean;

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

Begin

empty:=sn=sk;

End; {empty}

Procedure insert;

{занесение элемента x в очередь}

var p:connect;

Begin

new;

p^.next:=nil;

p^.elem:=x;

sk^.next:=p;

sk:=p;

End; {insert}

Function remove:typeelem;

{удаление элемента из очереди}

Begin

remove:=sn^.next^.elem;

sn:=sn^.next;

End; {remove}

{–}

Begin