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

Pointer3. Дано число $$D$$ и указатель $$P_1$$ на вершину непустого стека. Добавить элемент со значением $$D$$ в стек и вывести адрес $$P_2$$ новой вершины стека.

Решение:

program Pointer3;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;

var
 P1,PAdd:PNode;
 a:^Word;
 D:integer;
begin
 Write('D: ');
 Readln(D);

 New(P1);

 New(PAdd);
 PAdd.Data:=D;

 P1^.Next:=PAdd;
 a:=Addr(P1^.Next);
 Writeln('P1.next:',a^);
end.

program Pointer3;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

var

P1,PAdd:PNode;

a:^Word;

D:integer;

begin

Write('D: ');

Readln(D);

New(P1);

New(PAdd);

PAdd.Data:=D;

P1^.Next:=PAdd;

a:=Addr(P1^.Next);

Writeln('P1.next:',a^);

end.

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

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

Решение, проверенное в задачнике PT4:

program Dynamic03; //pabc.net

uses PT4;

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
  Task('Dynamic3');
  var p1: PNode;
  var D := ReadInteger();
  Readln(p1); // в задачнике PT4 так можно
  
  p1 := NewNode(D, p1);
  Write(p1)
end.

program Dynamic03; //pabc.net

uses PT4;

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

Task('Dynamic3');

var p1: PNode;

var D := ReadInteger();

Readln(p1); // в задачнике PT4 так можно

p1 := NewNode(D, p1);

Write(p1)

end.

Заполняем стек сами:

program Dynamic03; //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 p1: PNode := nil;
  var D := ReadInteger();
  
  // заполняем стек
  for var i := 1 to ReadInteger() do
    p1 := NewNode(ReadInteger(), p1);
  
  var p2 := NewNode(D, p1);
  Write(p2)
end.

program Dynamic03; //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 p1: PNode := nil;

var D := ReadInteger();

// заполняем стек

for var i := 1 to ReadInteger() do

p1 := NewNode(ReadInteger(), p1);

var p2 := NewNode(D, p1);

Write(p2)

end.

Ответить

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

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

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

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