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

Pointer6. Дан указатель $$P_1$$ на вершину стека, содержащего не менее десяти элементов. Извлечь из стека первые девять элементов и вывести их значения. Вывести также адрес новой вершины стека. После извлечения элементов из стека освобождать память, которую они занимали.

Решение:

program Pointer6;
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:integer;
begin
 CreateStack(P1);
 for i:=1 to 10 do Writeln(pop(P1));
end.

program Pointer6;

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:integer;

begin

CreateStack(P1);

for i:=1 to 10 do Writeln(pop(P1));

end.

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

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

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

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