Collections: Queue — различия между версиями

Материал из Вики ИТ мехмата ЮФУ
Перейти к: навигация, поиск
(Реализация)
Строка 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

Примеры использования

См. также

Collections: