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

Writeln; list; Writeln;

For i:=1 To 2 Do Begin y:=pop; Writeln End;

Writeln; list; Writeln;

y:=pop; Writeln;

Writeln; list;

Writeln);

Readln

End. {main}

Очередь:

{pеализация очереди на основе лин списка}

Program spisok;

Uses Crt;

Type typeelem=Integer;

connect=^data;

data=Record

elem:typeelem;

next:connect

End;

Var sn, s, sk:connect; x:typeelem; i: Integer;

Procedure init;

{создание очереди }

var p:connect;

Begin

new;

p^.next:=nil;

sn:=p; sk:=p;

End; {init}

Procedure list;

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