Автор: Bronislav

Bronislav — Mon, 18 Feb 2019 07:58:25 +0000

Подключил модуль MyQueue. В модуле описаны типы PNode, TNode, TQueue и подпрограммы: NewNode(data: integer; next: PNode): PNode; Enqueue(var Q: TQueue; data: integer); EnqueueNode(var Q: TQueue; p: PNode); DequeueNode(var Q: TQueue): PNode; (см. задачу Pointer22)

program Dynamic23; //pabc.net

uses MyQueue;

begin
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  
  // создаем первую очередь
  foreach var data in Range(1, 5, 2) do
    Enqueue(Q1, data);
  
  // создаем вторую очередь
  foreach var data in Range(6, 9) do
    Enqueue(Q2, data);
  
  while (Q1.head <> nil) and Q1.head^.data.isOdd do
    EnqueueNode(Q2, DequeueNode(Q1));
  
  Writeln(Q1.head, ' ', Q1.tail);
  Writeln(Q2.head, ' ', Q2.tail)
end.

program Dynamic23; //pabc.net

uses MyQueue;

begin

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

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

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

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

Enqueue(Q1, data);

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

foreach var data in Range(6, 9) do

Enqueue(Q2, data);

while (Q1.head <> nil) and Q1.head^.data.isOdd do

EnqueueNode(Q2, DequeueNode(Q1));

Writeln(Q1.head, ' ', Q1.tail);

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

end.

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

Автор: Bronislav