Автор: Bronislav

Bronislav — Sun, 17 Feb 2019 15:00:15 +0000

Решение для задачника PT4

program Dynamic09; //pabc.net

uses PT4;

begin
  Task('Dynamic9');
  var P1, P2: PNode;
  Read(P1, P2);
  
  while (P1 <> nil) and (P1^.data mod 2 <> 0) do
  begin
    var P := P1;
    P1 := P1^.next;
    P^.next := P2;
    P2 := P;
  end;
  
  Write(P1, P2)
end.

program Dynamic09; //pabc.net

uses PT4;

begin

Task('Dynamic9');

var P1, P2: PNode;

Read(P1, P2);

while (P1 <> nil) and (P1^.data mod 2 <> 0) do

begin

var P := P1;

P1 := P1^.next;

P^.next := P2;

P2 := P;

end;

Write(P1, P2)

end.

Решение с предварительным заполнением стеков P1 и P2:

program Dynamic09; //pabc.net

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

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

begin
  var P1: PNode := nil;
  var P2: PNode := nil;
  
  //создаем первый стек
  for var i := 1 to Random(5) + 1 do
    P1 := NewNode(Random(100), P1);
  
  //создаем второй стек
  for var i := 1 to Random(5) + 1 do
    P2 := NewNode(2 * i - 1, P2);
  
  // решение
  while (P1 <> nil) and (P1^.data mod 2 <> 0) do
  begin
    var P := P1;
    P1 := P1^.next;
    P^.next := P2;
    P2 := P;
  end;
  
  Write(P1, ' ', P2)
end.

program Dynamic09; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

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

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

begin

New(result);

result^.data := d;

result^.next := next;

end;

begin

var P1: PNode := nil;

var P2: PNode := nil;

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

for var i := 1 to Random(5) + 1 do

P1 := NewNode(Random(100), P1);

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

for var i := 1 to Random(5) + 1 do

P2 := NewNode(2 * i - 1, P2);

// решение

while (P1 <> nil) and (P1^.data mod 2 <> 0) do

begin

var P := P1;

P1 := P1^.next;

P^.next := P2;

P2 := P;

end;

Write(P1, ' ', P2)

end.

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

Автор: Bronislav