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

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

Решение:

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

function pop(var P1:PNode):integer;
var
 head: PNode;
begin
 Result:=p1.Data;
 head:=P1.Next;
 Dispose(P1);
 P1:=head;
end;

var
 P1:PNode;
 i,N:integer;
begin
 CreateStack(P1);
 N:=0;
 while (p1<>nil) do
  begin
   inc(N);
   Writeln(pop(P1));
  end;
 Writeln('len:',N);
end.

program Pointer7;

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;

function pop(var P1:PNode):integer;

var

head: PNode;

begin

Result:=p1.Data;

head:=P1.Next;

Dispose(P1);

P1:=head;

end;

var

P1:PNode;

i,N:integer;

begin

CreateStack(P1);

N:=0;

while (p1<>nil) do

begin

inc(N);

Writeln(pop(P1));

end;

Writeln('len:',N);

end.

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

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

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

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