Автор: Bronislav

Bronislav — Sun, 17 Feb 2019 15:27:02 +0000

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

program Dynamic10; //pabc.net

uses PT4;

begin
  Task('Dynamic10');
  var P1, P2, P3: PNode;
  P2 := nil;
  P3 := nil;
  Read(P1);
  
  while P1 <> nil do
  begin
    var P := P1;
    P1 := P1^.next;
    if P^.data.isEven then
    begin
      P^.next := P2;
      P2 := P
    end
    else
    begin
      P^.next := P3;
      P3 := P
    end
  end;
  
  Write(P2, P3)
end.

program Dynamic10; //pabc.net

uses PT4;

begin

Task('Dynamic10');

var P1, P2, P3: PNode;

P2 := nil;

P3 := nil;

Read(P1);

while P1 <> nil do

begin

var P := P1;

P1 := P1^.next;

if P^.data.isEven then

begin

P^.next := P2;

P2 := P

end

else

begin

P^.next := P3;

P3 := P

end

end;

Write(P2, P3)

end.

Решение с заполнением первого стека:

program Dynamic10; //pabc.net

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

function NewNode(data: integer; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next
end;

begin
  var P1: PNode := nil;
  var P2: PNode := nil;
  var P3: PNode := nil;
  
  // создаем первый стек
  for var i := 1 to 10 do
    P1 := NewNode(Random(100), P1);
  
  while P1 <> nil do
  begin
    var P := P1;
    P1 := P1^.next;
    if P^.data.isEven then
    begin
      P^.next := P2;
      P2 := P
    end
    else
    begin
      P^.next := P3;
      P3 := P
    end
  end;
  
  Write(P2, ' ', P3)
end.

program Dynamic10; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode

end;

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

begin

New(Result);

Result^.data := data;

Result^.next := next

end;

begin

var P1: PNode := nil;

var P2: PNode := nil;

var P3: PNode := nil;

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

for var i := 1 to 10 do

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

while P1 <> nil do

begin

var P := P1;

P1 := P1^.next;

if P^.data.isEven then

begin

P^.next := P2;

P2 := P

end

else

begin

P^.next := P3;

P3 := P

end

end;

Write(P2, ' ', P3)

end.

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

Автор: Bronislav