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

randomize;

init; {инициализация очереди }

for i:=1 to 5 do begin

x:=random-random;

insert; {вставка элемента в очередь}

end;

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

x:=remove; {удаление элемента из очереди}

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

Readln; End.

Дек:

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

Program dek;

Uses Crt;

Type typeelem=Integer;

connect=^data;

data=Record

elem:typeelem;

next:connect;

pred:connect

End;

Var sn1, sn2, s:connect; x, y:typeelem; i: Integer;

k:string;

Procedure init;

{создание дека }

var p:connect;

Begin

new;

p^.next:=nil;