Collections: Queue
Материал из Вики ИТ мехмата ЮФУ
Интерфейс
type Queue<DataType> = class
/// Создает пустую очередь
constructor Create;
/// Добавляет элемент x в хвост очереди
procedure Enqueue(x: DataType);
/// Возвращает значение элемента в голове, удаляя его из очереди
function Dequeue: DataType;
/// Возвращает значение элемента в голове очереди, не удаляя его
function Top: DataType;
/// Возвращает истину, если очередь пуста
function IsEmpty: boolean;
/// Выводит содержимое очереди на консоль
procedure Println();
end;
Реализация
interface
uses Nodes; // для использования типа SingleNode<DataType> —
// узла с одним полем связи
implementation