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

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

Решение:

program Pointer21;
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 cat(P1,P2:PNode; var P3,P4:PNode);
begin
 P4^.Next:=P1;
 P4:=P2;
end;

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

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

 cat(P1,P2,P3,P4);

 if p3=nil then Writeln('P3: nil')
 else
  begin
   a:=Addr(P3);
   Writeln('P3: ',a^);
  end;

 if p4=nil then Writeln('P4: nil')
 else
  begin
   a:=Addr(P4);
   Writeln('P4: ',a^);
  end;
end.

program Pointer21;

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 cat(P1,P2:PNode; var P3,P4:PNode);

begin

P4^.Next:=P1;

P4:=P2;

end;

var

P1,P2,P3,P4:PNode;

a:^Word;

begin

CreateQueue(P1,P2);

CreateQueue(P3,P4);

cat(P1,P2,P3,P4);

if p3=nil then Writeln('P3: nil')

else

begin

a:=Addr(P3);

Writeln('P3: ',a^);

end;

if p4=nil then Writeln('P4: nil')

else

begin

a:=Addr(P4);

Writeln('P4: ',a^);

end;

end.

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

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

program Dynamic21; //pabc.net

type
  PNode = ^TNode;
  TNode = record
    data: integer;
    next: PNode;
  end;
  TQueue = record
    head, tail: PNode;
  end;

/// Создает элемент типа TNode и возвращает его адрес
function NewNode(data: integer; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next
end;

/// Создает и добавляет элемент со значением Data в конец очереди Q
procedure Enqueue(var Q: TQueue; data: integer);
begin
  var p := NewNode(data, nil);
  if Q.tail = nil then
  begin
    Q.tail := p;
    Q.head := p
  end
  else
  begin
    Q.tail^.next := p;
    Q.tail := p;
  end
end;

/// Перемещает все элементы из очереди Q2 (в порядке от 
/// начала к концу) в конец очереди Q1
procedure MoveQueue(var Q1, Q2: TQueue);
begin
  if Q2.head <> nil then
  begin
    if Q1.head = nil then
      Q1.head := Q2.head
    else
      Q1.tail^.next := Q2.head;
    Q1.tail := Q2.tail;
    Q2.head := nil;
    Q2.tail := nil;
  end;
end;

begin
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  
  // создаем первую очередь
  foreach var data in Range(1, 5) do
    Enqueue(Q1, data);
  
  // создаем вторую очередь
  foreach var data in Range(6, 9) do
    Enqueue(Q2, data);
  
  // перемещаем элементы из Q1 в Q2
  MoveQueue(Q2, Q1);
  
  Write(Q2.head, ' ', Q2.tail)
end.

program Dynamic21; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

TQueue = record

head, tail: PNode;

end;

/// Создает элемент типа TNode и возвращает его адрес

function NewNode(data: integer; next: PNode): PNode;

begin

New(Result);

Result^.data := data;

Result^.next := next

end;

/// Создает и добавляет элемент со значением Data в конец очереди Q

procedure Enqueue(var Q: TQueue; data: integer);

begin

var p := NewNode(data, nil);

if Q.tail = nil then

begin

Q.tail := p;

Q.head := p

end

else

begin

Q.tail^.next := p;

Q.tail := p;

end

end;

/// Перемещает все элементы из очереди Q2 (в порядке от

/// начала к концу) в конец очереди Q1

procedure MoveQueue(var Q1, Q2: TQueue);

begin

if Q2.head <> nil then

begin

if Q1.head = nil then

Q1.head := Q2.head

else

Q1.tail^.next := Q2.head;

Q1.tail := Q2.tail;

Q2.head := nil;

Q2.tail := nil;

end;

begin

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

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

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

foreach var data in Range(1, 5) do

Enqueue(Q1, data);

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

foreach var data in Range(6, 9) do

Enqueue(Q2, data);

// перемещаем элементы из Q1 в Q2

MoveQueue(Q2, Q1);

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

end.

Ответить

Ситора

28.05.2020 в 09:17

Здравствуйте мне нужен код Pointer21 на си

Ответить

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

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

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

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