Автор: Bronislav

Bronislav — Sun, 10 Feb 2019 08:24:59 +0000

Решение для PT4 (стек уже заполнен где-то в тестах):

program Dynamic05; //pabc.net

uses PT4;

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

begin
  Task('Dynamic5');
  var p1: PNode;
  Read(p1); // только для теста в PT4
  var p2 := p1^.next; // адрес новой вершины стека
  Write(p1^.data, p2);
  Dispose(p1)
end.

program Dynamic05; //pabc.net

uses PT4;

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

begin

Task('Dynamic5');

var p1: PNode;

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

var p2 := p1^.next; // адрес новой вершины стека

Write(p1^.data, p2);

Dispose(p1)

end.

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

program Dynamic05; //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 top: PNode := nil;
  
  // создаем стек
  foreach var d in ReadSeqInteger(ReadInteger('N:')) do
    top := NewNode(d, top);
  
  var p1 := top;
  top := top^.next;
  Write(p1^.data, top);
  Dispose(p1)
end.

program Dynamic05; //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 top: PNode := nil;

// создаем стек

foreach var d in ReadSeqInteger(ReadInteger('N:')) do

top := NewNode(d, top);

var p1 := top;

top := top^.next;

Write(p1^.data, top);

Dispose(p1)

end.

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

Автор: Bronislav