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

Pointer4. Дано число $$N$$ $$(>0)$$ и набор из $$N$$ чисел. Создать стек, содержащий исходные числа (последнее число будет вершиной стека), и вывести указатель на его вершину.

Решение:

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;
 a:^Word;
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;
 a:=Addr(p1);
 Writeln('head: ',a^);
end;

var
 P1:PNode;
begin
 CreateStack(P1);
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;

a:^Word;

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;

a:=Addr(p1);

Writeln('head: ',a^);

end;

var

P1:PNode;

begin

CreateStack(P1);

end.

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

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

program Dynamic04; // 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; // адрес вершины стека
  top := nil;
  var N := ReadInteger();
  var SQ := ReadSeqInteger(N);
  
  foreach var d in SQ do
    top := NewNode(d, top);
  
  Write(top)
end.

program Dynamic04; // 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; // адрес вершины стека

top := nil;

var N := ReadInteger();

var SQ := ReadSeqInteger(N);

foreach var d in SQ do

top := NewNode(d, top);

Write(top)

end.

Ответить

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

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

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

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