 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Работа с очередями
Очередь — список, в один конец которого добавляются элементы, а из другого — изымаются. Принцип работы очереди — FIFO (First In First Out) — первым пришел, первым ушел. Для организации такой структуры используются уже две переменные — для указания начала и конца очереди.
Схема работы с очередью:
Type
Ukaz = ^ Och;
Och = Record
Inf: Integer; { информационная часть }
Next: Ukaz { дополнительная часть }
end;
Var
Beg, En, Rab: Ukaz;
Value: Integer;
Procedure Sozd _ Och; { первоначальная организация очереди }
Begin
Read (Value);
If Value = 999
then Exit;
New (Rab);
Rab ^. Next: = Nil;
Rab ^. Inf: = Value;
Beg: = Rab;
En: = Rab;
While True do
Begin
Read (Value);
If Value = 999
then Exit;
New (Rab);
Rab ^. Next: = Nil;
Rab ^. Inf: = Value;
En ^. Next: = Rab;
En: = Rab
End
End;
Procedure Dobavl _ Och; { добавление элементов в очередь }
Begin
While True do
Begin
Read (Value);
If Value = 999
then Exit;
New (Rab);
Rab ^. Next: = Nil;
Rab ^. Inf: = Value;
En ^. Next: = Rab;
En: = Rab
End
End;
Procedure Udal_Och; { Удаление первого элемента из очереди }
Begin
Rab: = Beg;
Beg: = Beg ^. Next;
Dispose (Rab)
End;
Procedure Print _ Och; { Обработка (вывод) элементов очереди }
Begin
Rab: = Beg;
While Rab <>Nil do
Begin
WriteLn (Rab ^. Inf);
Rab: = Rab ^. Next
End
End;
Поиск по сайту: