Работа с очередями
Очередь — список, в один конец которого добавляются элементы, а из другого — изымаются. Принцип работы очереди — 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;
|
