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

Pointer24. Даны две непустые очереди; адреса начала и конца первой равны $$P_1$$ и $$P_2$$, а второй — $$P_3$$ и $$P_4$$. Очереди содержат одинаковое количество элементов. Объединить очереди в одну, в которой элементы исходных очередей чередуются (начиная с первого элемента первой очереди). Вывести указатели на начало и конец полученной очереди. Операции выделения и освобождения памяти не использовать.

Решение:

program Pointer24;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;

procedure CreateQueue(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;

 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;

procedure Blend(var P1,P2,P3,P4:PNode);
var
 Head,temp1,temp2 :PNode;
begin
 Head:=P1;
 While(P1<>P2) and (P3<>P4) do
    begin
     temp1:=P1^.Next;
     P1^.Next:=P3;
     temp2:=P3^.Next;
     P3^.Next:=temp1;
     P1:=temp1;
     P3:=temp2;
    end;
 P1.Next:=P4;
 P1:=Head;
end;

var
 P1,P2,P3,P4:PNode;
 a:^Word;
begin

 CreateQueue(P1,P2);
 CreateQueue(P3,P4);

 blend(P1,P2,P3,P4);

 a:=Addr(P1);
 Writeln('P1: ',a^);

 a:=Addr(P4);
 Writeln('P4: ',a^);
end.

program Pointer24;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

procedure CreateQueue(var P1,P2:PNode);

var

pt1,pt2:PNode;

i,N:integer;

begin

Write('NumEl:');

Readln(N);

new(p1);

Write('num: ');

Readln(P1^.Data);

pt2:=p1;

for i:=1 to N-1 do

begin

new(pt1);

Write('num: ');

Readln(pt1^.Data);

pt2.Next:=pt1;

pt2:=pt2.Next;

end;

pt2.Next:=nil;

p2:=pt2;

end;

procedure Blend(var P1,P2,P3,P4:PNode);

var

Head,temp1,temp2 :PNode;

begin

Head:=P1;

While(P1<>P2) and (P3<>P4) do

begin

temp1:=P1^.Next;

P1^.Next:=P3;

temp2:=P3^.Next;

P3^.Next:=temp1;

P1:=temp1;

P3:=temp2;

end;

P1.Next:=P4;

P1:=Head;

end;

var

P1,P2,P3,P4:PNode;

a:^Word;

begin

CreateQueue(P1,P2);

CreateQueue(P3,P4);

blend(P1,P2,P3,P4);

a:=Addr(P1);

Writeln('P1: ',a^);

a:=Addr(P4);

Writeln('P4: ',a^);

end.

Другие задачи из раздела Pointer можно посмотреть здесь.

Комментарии 1

Решение для очередей с произвольным количеством элементов, а не только, как в задаче – с одинаковым. В модуле 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

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ