Автор: Bronislav

Bronislav — Sun, 17 Feb 2019 17:52:29 +0000

program Dynamic13; //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;

/// Возвращает True, если стек S пуст, и False в противном случае
function StackIsEmpty(S: TStack) := S.top = nil;

/// Возвращает значение вершины непустого стека S,
/// не удаляя ее из стека
function Peek(S: TStack) := S.top^.data;

begin
  var P1: PNode := nil;
  
  // создаем стек P1
  for var i := 1 to Random(10) do
    P1 := NewNode(i, P1);
  
  var S: TStack := (top: P1);
  
  for var i := 1 to 5 do
  begin
    if StackIsEmpty(S) then break;
    Write(Pop(S), ' ')
  end;
  
  P1 := S.top;
  
  Writeln(NewLine, StackIsEmpty(S));
  if not StackIsEmpty(S) then
    Write(Peek(S), ' ', P1)
end.

program Dynamic13; //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;

/// Возвращает True, если стек S пуст, и False в противном случае

function StackIsEmpty(S: TStack) := S.top = nil;

/// Возвращает значение вершины непустого стека S,

/// не удаляя ее из стека

function Peek(S: TStack) := S.top^.data;

begin

var P1: PNode := nil;

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

for var i := 1 to Random(10) do

P1 := NewNode(i, P1);

var S: TStack := (top: P1);

for var i := 1 to 5 do

begin

if StackIsEmpty(S) then break;

Write(Pop(S), ' ')

end;

P1 := S.top;

Writeln(NewLine, StackIsEmpty(S));

if not StackIsEmpty(S) then

Write(Peek(S), ' ', P1)

end.

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

Автор: Bronislav