Динамические структуры данных Очередь
Очередь - это линейный список, элементы в который добавляются только в конец, а удаляются только из начала. n
Описание : n n n n type data=integer; query= ^node; node = record inf: data; next: query; end;
var q 1, q 2: query; q 1 -соответствует началу очереди q 2 - соответствует концу очереди
Основные операции по работе с очередью n n Процедура добавления элемента в очередь. Процедура удаления элемента из очереди.
Добавление элемента в пустую очередь.
Добавление элемента в очередь.
Процедура добавления элемента в очередь. procedurepush (var q 1, q 2: query; d: data); var temp: query; begin new(temp); temp^. inf: =d; temp^. next: =nil; if q 1=nil then q 1: =temp else q 2^. next: =temp q 2: =temp; end;
Процедура удаления элемента из очереди procedurepop (var q 1: query; var d: data) var temp: query; begin temp: =q 1; d : = q 1^. inf; q 1: =q 1^. next; if q 1 = nil then q 2: = nil dispose(temp); end;