На этом шаге мы рассмотрим формирование очереди на базе однонаправленного списка.

Начальное формирование очереди выполняется следующими операторами:

 ReadLn(T1);
 New(pBegin);
 pBegin^.Element := T1;   {определим информационное поле первой компоненты очереди}
 pBegin^.pNext := Nil;
 pEnd := pBegin;          {определим ссылку на последную компоненту очереди}

Рис.1. Начальное формирование очереди

Рассмотрим процедуру формирования очереди:

 Procedure Create_Queue(var pBegin, pEnd : PtrRec;  T: TypeElement);
  Begin
    New(pBegin);
    pBegin^.pNext := Nil;
    pBegin^.Element := T;
    pEnd := pBegin;
  End;

На следующем щаге мы рассмотрим как добавить компоненту в очередь.

Предыдущий шаг Содержание Следующий шаг