Автор: Bronislav

Bronislav — Sun, 17 Feb 2019 17:07:51 +0000

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

program Dynamic12; //pabc.net

uses PT4;

type // PNode и TNode описаны в PT4
  TStack = record
    Top: PNode;
  end;

function Pop(var S: TStack): integer;
begin
  Result := 0;
  if S.Top = nil then exit;
  Result := S.Top^.data;
  var p := S.Top^.next;
  Dispose(S.Top);
  S.Top := p
end;

begin
  Task('Dynamic12');
  var P1: PNode;
  Read(P1);
  
  var S: TStack;
  S.Top := P1;
  
  var k := 1;
  
  while (S.Top <> nil) and (k <= 5) do
  begin
    Write(Pop(s));
    k += 1
  end;
  
  // ставим указатель на новую вершину стека
  P1 := S.Top;
  Writeln(S.Top);
end.

program Dynamic12; //pabc.net

uses PT4;

type // PNode и TNode описаны в PT4

TStack = record

Top: PNode;

end;

function Pop(var S: TStack): integer;

begin

Result := 0;

if S.Top = nil then exit;

Result := S.Top^.data;

var p := S.Top^.next;

Dispose(S.Top);

S.Top := p

end;

begin

Task('Dynamic12');

var P1: PNode;

Read(P1);

var S: TStack;

S.Top := P1;

var k := 1;

while (S.Top <> nil) and (k <= 5) do

begin

Write(Pop(s));

k += 1

end;

// ставим указатель на новую вершину стека

P1 := S.Top;

Writeln(S.Top);

end.

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

program Dynamic12; //pabc.net

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

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

/// Снимает со стека верхний элемент и освобождает память,
/// которую он занимал
function Pop(var S: TStack): integer;
begin
  Result := 0;
  if S.Top = nil then exit;
  Result := S.Top^.data;
  var p := S.Top^.next;
  Dispose(S.Top);
  S.Top := p
end;

begin
  var P1: PNode := nil;
  
  // создаем стек P1 (5 или 6 элементов для наглядности)
  for var i := 1 to Random(2) + 5 do
    P1 := NewNode(i, P1);
  
  var S: TStack;
  S.Top := P1; 
  
  for var i := 1 to 5 do
  begin
    if S.Top = nil then break; // или while без break-a
    Write(Pop(S), ' ')
  end;
  
  // ставим указатель стека на новую вершину
  P1 := S.Top;
  Writeln(NewLine, P1);
end.

program Dynamic12; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

TStack = record

Top: PNode;

end;

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

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

begin

New(Result);

Result^.data := data;

Result^.next := next

end;

/// Снимает со стека верхний элемент и освобождает память,

/// которую он занимал

function Pop(var S: TStack): integer;

begin

Result := 0;

if S.Top = nil then exit;

Result := S.Top^.data;

var p := S.Top^.next;

Dispose(S.Top);

S.Top := p

end;

begin

var P1: PNode := nil;

// создаем стек P1 (5 или 6 элементов для наглядности)

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

P1 := NewNode(i, P1);

var S: TStack;

S.Top := P1;

for var i := 1 to 5 do

begin

if S.Top = nil then break; // или while без break-a

Write(Pop(S), ' ')

end;

// ставим указатель стека на новую вершину

P1 := S.Top;

Writeln(NewLine, P1);

end.

Дополнительная проверка в цикле if S.Top = nil then break связана с тем, что при числе элементов N стека меньше 5, функция Pop(S) будет возвращать 0 5-N раз. В данной задаче заранее известно, что число элементов стека не меньше 5. Поэтому тут можно было обойтись и без этой проверки.

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

Автор: Bronislav