- const
MAX_SIZE = 101;
var
queue: array [0 .. MAX_SIZE - 1] of integer; // массив
// для очереди
len: integer; // длина очереди
idx_rec: integer; // индекс для записи
idx_read: integer; // индекс для чтения
begin
len := 100;
idx_rec := 0;
idx_read := 0;
Занесение в очередь | Извлечение из очереди |
|---|---|
procedure rec (var next: integer; item: integer); begin if (next + 1) < len then begin next := next + 1; queue [next] := item; end else writeln ('очередь заполнена'); end; | function reading (var index: integer): integer; begin if index = idx_rec then begin writeln ('очередь пуста'); reading := 0; end else begin index := index + 1; reading := queue [index]; end; end; |