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

Pointer8. Даны указатели $$P_1$$ и $$P_2$$ на вершины двух непустых стеков. Переместить все элементы из первого стека во второй (в результате элементы первого стека будут располагаться во втором стеке в порядке, обратном исходному) и вывести адрес новой вершины второго стека. Операции выделения и освобождения памяти не использовать.

Решение:

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

procedure CreateStack(var P1:PNode);
var
 p:PNode;
 i,N:integer;

begin
 Write('N:');
 Readln(N);
 p1:=nil;
 for i:=1 to N do
  begin
   new(p);
   Write('num: ');
   Readln(P^.Data);
   p^.Next := P1;
   P1:=p;
  end;
end;

procedure Cat(var P1:PNode; P2:PNode);
var
 Pt1:PNode;
begin
 Pt1:=P1;
 while (Pt1.Next<>nil) do Pt1:=Pt1.Next;
 pt1.Next:=P2;
end;

var
 P1,P2:PNode;
begin
 CreateStack(P1);
 CreateStack(P2);

 Cat(P1,P2);
end.

program Pointer8;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

procedure CreateStack(var P1:PNode);

var

p:PNode;

i,N:integer;

begin

Write('N:');

Readln(N);

p1:=nil;

for i:=1 to N do

begin

new(p);

Write('num: ');

Readln(P^.Data);

p^.Next := P1;

P1:=p;

end;

procedure Cat(var P1:PNode; P2:PNode);

var

Pt1:PNode;

begin

Pt1:=P1;

while (Pt1.Next<>nil) do Pt1:=Pt1.Next;

pt1.Next:=P2;

end;

var

P1,P2:PNode;

begin

CreateStack(P1);

CreateStack(P2);

Cat(P1,P2);

end.

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

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

Решение проверенное в задачнике PT4:

program Dynamic08; //pabc.net

uses PT4;

begin
  Task('Dynamic8');
  var p1, p2: PNode;
  Read(p1, p2); // только для тестов в PT4
  
  while p1 <> nil do
  begin
    var p := p1^.next;
    p1^.next := p2;
    p2 := p1;
    p1 := p;
  end;
  
  Write(p2)
end.

program Dynamic08; //pabc.net

uses PT4;

begin

Task('Dynamic8');

var p1, p2: PNode;

Read(p1, p2); // только для тестов в PT4

while p1 <> nil do

begin

var p := p1^.next;

p1^.next := p2;

p2 := p1;

p1 := p;

end;

Write(p2)

end.

Решение с созданием стеков:

program Dynamic08; //pabc.net

type
  PNode = ^TNode;
  TNode = record
    data: integer;
    next: PNode;
  end;

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

begin
  var p1: PNode := nil;
  var p2: PNode := nil;
  
  // создаем первый стек
  for var i := 1 to ReadInteger('N1:') do
    p1 := NewNode(ReadInteger(), p1);
  
  // создаем второй стек
  for var i := 1 to ReadInteger('N2') do
    p2 := NewNode(ReadInteger(), p2);
  
  while p1 <> nil do
  begin
    var p := p1^.next;
    p1^.next := p2;
    p2 := p1;
    p1 := p;
  end;
  
  Write(p2)
end.

program Dynamic08; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

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

function NewNode(d: integer; first: PNode): PNode;

begin

New(result);

result^.data := d;

result^.next := first;

end;

begin

var p1: PNode := nil;

var p2: PNode := nil;

// создаем первый стек

for var i := 1 to ReadInteger('N1:') do

p1 := NewNode(ReadInteger(), p1);

// создаем второй стек

for var i := 1 to ReadInteger('N2') do

p2 := NewNode(ReadInteger(), p2);

while p1 <> nil do

begin

var p := p1^.next;

p1^.next := p2;

p2 := p1;

p1 := p;

end;

Write(p2)

end.

Ответить

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

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

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

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