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

Pointer13. Дан указатель $$P_1$$ на вершину стека. Используя тип TStack (см. задание Pointer11), описать функции StackIsEmpty($$S$$) логического типа (возвращает True, если стек $$S$$ пуст, и False в противном случае) и Peek($$S$$) целого типа (возвращает значение вершины непустого стека $$S$$, не удаляя ее из стека). В обеих функциях переменная $$S$$ является входным параметром типа TStack. С помощью этих функций, а также функции Pop из задания Pointer12, извлечь из исходного стека пять элементов (или все содержащиеся в нем элементы, если их менее пяти) и вывести их значения. Вывести также значение функции StackIsEmpty для результирующего стека и, если результирующий стек не является пустым, значение и адрес его новой вершины.

Решение:

program Pointer13;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;
  TStack=record
    Top:PNode;
  end;

procedure CreateStack(var P1:PNode);
var
 p:PNode;
 i,N:integer;
begin
 Write('N:');
 Readln(N);
 p1:=nil;
 for i:=1 to N do
  begin
   new(p);
   Write('num: ');
   Readln(P^.Data);
   p^.Next := P1;
   P1:=p;
  end;
end;

function pop(var S:TStack):integer;
var
 head: PNode;
begin
 Result:=S.Top.Data;
 head:=S.Top.Next;
 Dispose(S.Top);
 S.Top:=head;
end;

function StacklsEmpty(S:TStack):boolean;
begin
 if S.Top = nil then StacklsEmpty:=True
 else StacklsEmpty:=False;
end;

function Peek(S:TStack):integer;
begin
 Peek:=S.Top.Data;
end;


var
 S:TStack;
 i:integer;
 a:^Word;
begin
 CreateStack(S.Top);
 For i:=1 to 5 do
  if not(StacklsEmpty(S)) then Writeln(Pop(S));

 if not(StacklsEmpty(S)) then
  begin
   Writeln('Data head:', Peek(S));
   a:=Addr(S.Top);
   Writeln('addres:',a^);
  end;
end.

program Pointer13;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

TStack=record

Top:PNode;

end;

procedure CreateStack(var P1:PNode);

var

p:PNode;

i,N:integer;

begin

Write('N:');

Readln(N);

p1:=nil;

for i:=1 to N do

begin

new(p);

Write('num: ');

Readln(P^.Data);

p^.Next := P1;

P1:=p;

end;

function pop(var S:TStack):integer;

var

head: PNode;

begin

Result:=S.Top.Data;

head:=S.Top.Next;

Dispose(S.Top);

S.Top:=head;

end;

function StacklsEmpty(S:TStack):boolean;

begin

if S.Top = nil then StacklsEmpty:=True

else StacklsEmpty:=False;

end;

function Peek(S:TStack):integer;

begin

Peek:=S.Top.Data;

end;

var

S:TStack;

i:integer;

a:^Word;

begin

CreateStack(S.Top);

For i:=1 to 5 do

if not(StacklsEmpty(S)) then Writeln(Pop(S));

if not(StacklsEmpty(S)) then

begin

Writeln('Data head:', Peek(S));

a:=Addr(S.Top);

Writeln('addres:',a^);

end;

end.

Другие задачи из раздела Pointer можно посмотреть здесь.

Комментарии 1

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

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ