Poinf:=Poinf+1

end;

Создавая очередь с помощью массива, следует, что состояние очереди может не соответствовать состоянию массива ее описывающего, поскольку при удалении элемента из очереди, он не удаляется из массива, а просто меняется значение указателя Poinf.

Рассмотрим процесс моделирования и обработки очереди на конкретном примере.

Пример.Постройте очередь из 5-ти символов - ‘a’, ‘b’, ‘c’, ‘d’, ‘e’. Выведите из очереди два символа ‘a’, ‘b’ и добавьте в конец очереди символ ‘z’.

Const maxs=6;

Type och=array[1..6] of char;

Var i,Poinsv,Poinf:integer;

Cha:och;

el:char;

{процедура добавления элементов в очередь}

Procedure AddCH(s:char; Var Cha:och; Var Poinsv:integer);