Collections: Queue — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Juliet (обсуждение | вклад) |
Juliet (обсуждение | вклад) (→Реализация) |
||
Строка 24: | Строка 24: | ||
== Реализация == | == Реализация == | ||
<source lang="Delphi"> | <source lang="Delphi"> | ||
+ | interface | ||
+ | |||
+ | uses Nodes; // для использования типа SingleNode<DataType> — | ||
+ | // узла с одним полем связи | ||
+ | |||
+ | |||
+ | implementation | ||
+ | |||
</source> | </source> |
Версия 19:53, 30 апреля 2009
Интерфейс
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