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

Pointer5. Дан указатель $$P_1$$ на вершину непустого стека. Извлечь из стека первый (верхний) элемент и вывести его значение $$D$$, а также адрес $$P_2$$ новой вершины стека. Если после извлечения элемента стек окажется пустым, то положить $$P_2=nil$$. После извлечения элемента из стека освободить память, занимаемую этим элементом.

Решение:

program Pointer4;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: 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;

var
 P1,P2:PNode;
 a:^Word;
 D:integer;
begin
 CreateStack(P1);
 D:=p1.Data;
 if p1.Next<>nil then p2:= P1.Next
 else p2:=nil;
 Dispose(P1);
 a:=Addr(P2);
 Writeln('Data:',D);
 Writeln('P2^: ',a^);
end.

program Pointer4;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: 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;

var

P1,P2:PNode;

a:^Word;

D:integer;

begin

CreateStack(P1);

D:=p1.Data;

if p1.Next<>nil then p2:= P1.Next

else p2:=nil;

Dispose(P1);

a:=Addr(P2);

Writeln('Data:',D);

Writeln('P2^: ',a^);

end.

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

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

Решение для PT4 (стек уже заполнен где-то в тестах):

program Dynamic05; //pabc.net

uses PT4;

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

begin
  Task('Dynamic5');
  var p1: PNode;
  Read(p1); // только для теста в PT4
  var p2 := p1^.next; // адрес новой вершины стека
  Write(p1^.data, p2);
  Dispose(p1)
end.

program Dynamic05; //pabc.net

uses PT4;

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

begin

Task('Dynamic5');

var p1: PNode;

Read(p1); // только для теста в PT4

var p2 := p1^.next; // адрес новой вершины стека

Write(p1^.data, p2);

Dispose(p1)

end.

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

program Dynamic05; //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 := nil;
  
  // создаем стек
  foreach var d in ReadSeqInteger(ReadInteger('N:')) do
    top := NewNode(d, top);
  
  var p1 := top;
  top := top^.next;
  Write(p1^.data, top);
  Dispose(p1)
end.

program Dynamic05; //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 := nil;

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

foreach var d in ReadSeqInteger(ReadInteger('N:')) do

top := NewNode(d, top);

var p1 := top;

top := top^.next;

Write(p1^.data, top);

Dispose(p1)

end.

Ответить

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

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

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

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