Автор: Bronislav

Bronislav — Sat, 09 Feb 2019 18:40:26 +0000

program Dynamic04; // 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; // адрес вершины стека
  top := nil;
  var N := ReadInteger();
  var SQ := ReadSeqInteger(N);
  
  foreach var d in SQ do
    top := NewNode(d, top);
  
  Write(top)
end.

program Dynamic04; // 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; // адрес вершины стека

top := nil;

var N := ReadInteger();

var SQ := ReadSeqInteger(N);

foreach var d in SQ do

top := NewNode(d, top);

Write(top)

end.

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

Автор: Bronislav