Автор: Bronislav

Bronislav — Sun, 10 Feb 2019 19:44:45 +0000

Решение проверенное в задачнике 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

Автор: Bronislav