Автор: Bronislav

Bronislav — Mon, 18 Feb 2019 11:29:21 +0000

Решение для очередей с произвольным количеством элементов, а не только, как в задаче – с одинаковым. В модуле MyQueue описаны типы PNode, TNode, TQueue и подпрограммы для работы с очередью. Их можно посмотреть в моих решениях к предыдущим задачам группы Pointer на этом сайте. В частности Pointer22 и Pointer21
Также тут использована функция-предикат QueueIsEmpty(Q: TQueue) := Q.head = nil;

program Dynamic24; //pabc.net

uses MyQueue;

begin
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  var Q3: TQueue := (head: nil; tail: nil);
  
  // создаем первую очередь
  foreach var data in Range(1, 10, 2) do
    Enqueue(Q1, data);
  
  // создаем вторую очередь
  foreach var data in Range(2, 10, 2) do
    Enqueue(Q2, data);
  
  while not QueueIsEmpty(Q1) do
  begin
    if QueueIsEmpty(Q2) then
      MoveQueue(Q3, Q1)
    else
    begin
      EnqueueNode(Q3, DequeueNode(Q1));
      EnqueueNode(Q3, DequeueNode(Q2))
    end
  end;
  
  MoveQueue(Q3, Q2);

  Writeln(Q3.head, ' ', Q3.tail)
end.

program Dynamic24; //pabc.net

uses MyQueue;

begin

var Q1: TQueue := (head: nil; tail: nil);

var Q2: TQueue := (head: nil; tail: nil);

var Q3: TQueue := (head: nil; tail: nil);

// создаем первую очередь

foreach var data in Range(1, 10, 2) do

Enqueue(Q1, data);

// создаем вторую очередь

foreach var data in Range(2, 10, 2) do

Enqueue(Q2, data);

while not QueueIsEmpty(Q1) do

begin

if QueueIsEmpty(Q2) then

MoveQueue(Q3, Q1)

else

begin

EnqueueNode(Q3, DequeueNode(Q1));

EnqueueNode(Q3, DequeueNode(Q2))

end

end;

MoveQueue(Q3, Q2);

Writeln(Q3.head, ' ', Q3.tail)

end.

Код процедуры вывода очереди на печать.

procedure PrintQueue(Q: TQueue);
begin
  if Q.head = nil then
    Print('Queue is empty')
  else
    while Q.head <> nil do
    begin
      Print(Q.head^.data);
      Q.head := Q.head^.next
    end;
end;

procedure PrintQueue(Q: TQueue);

begin

if Q.head = nil then

Print('Queue is empty')

else

while Q.head <> nil do

begin

Print(Q.head^.data);

Q.head := Q.head^.next

end;

Комментарии: Решаем задачи Абрамян на Паскале. Pointer24

Автор: Bronislav