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

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

Решение:

program Pointer12;
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;

var
 S:TStack;
 i:integer;
 a:^Word;
begin
 CreateStack(S.Top);
 For i:=1 to 5 do Writeln(Pop(S));
 a:=Addr(S.Top);
 Writeln('addres:',a^); 
end.

program Pointer12;

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;

var

S:TStack;

i:integer;

a:^Word;

begin

CreateStack(S.Top);

For i:=1 to 5 do Writeln(Pop(S));

a:=Addr(S.Top);

Writeln('addres:',a^);

end.

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

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

Решение для задачника 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

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

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

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