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

Pointer11. Дан указатель $$P_1$$ на вершину стека (если стек пуст, то $$P_1=nil$$). Также дано число $$N$$ $$(>0)$$ и набор из $$N$$ чисел. Описать тип TStack — запись с одним полем Top типа PNode (поле указывает на вершину стека) — и процедуру Push($$S$$, $$D$$), которая добавляет в стек $$S$$ новый элемент со значением $$D$$ ($$S$$ — входной и выходной параметр типа TStack, $$D$$ — входной параметр целого типа). С помощью процедуры Push добавить в исходный стек данный набор чисел (последнее число будет вершиной стека) и вывести адрес новой вершины стека.

Решение:

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

Procedure Push(var S:TStack;D:Integer);
var
 temp:PNode;
begin
 new(temp);
 temp.Data:=D;
 temp.Next:=S.Top;
 S.Top:=temp;
end;

var
 S:TStack;
 N,D,i:integer;
begin
 CreateStack(S.Top);
 Writeln('N:');
 Readln(N);
 For i:=1 to N do
  begin
   Writeln('num:');
   Readln(D);
   Push(S,D);
  end;
end.

program Pointer11;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

TStack=record

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

Procedure Push(var S:TStack;D:Integer);

var

temp:PNode;

begin

new(temp);

temp.Data:=D;

temp.Next:=S.Top;

S.Top:=temp;

end;

var

S:TStack;

N,D,i:integer;

begin

CreateStack(S.Top);

Writeln('N:');

Readln(N);

For i:=1 to N do

begin

Writeln('num:');

Readln(D);

Push(S,D);

end;

end.

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

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

Решение для электронного задачника PT4:

program Dynamic11; //pabc.net

uses PT4;

type // PNode и TNode описаны в модуле PT4
  TStack = record
    top: PNode;
  end;

function NewNode(data: integer; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next
end;

procedure Push(var S: TStack; data: integer);
begin
  S.top := NewNode(data, S.top)
end;

begin
  Task('Dynamic11');
  var P1: PNode;
  Read(P1);
  
  var S: TStack;
  S.top := P1;
  
  var N := ReadInteger();
  var SQ := ReadSeqInteger(N);
  
  foreach var data in SQ do
    Push(S, data);
  
  P1 := S.top;
  Write(P1)
end.

program Dynamic11; //pabc.net

uses PT4;

type // PNode и TNode описаны в модуле PT4

TStack = record

top: PNode;

end;

function NewNode(data: integer; next: PNode): PNode;

begin

New(Result);

Result^.data := data;

Result^.next := next

end;

procedure Push(var S: TStack; data: integer);

begin

S.top := NewNode(data, S.top)

end;

begin

Task('Dynamic11');

var P1: PNode;

Read(P1);

var S: TStack;

S.top := P1;

var N := ReadInteger();

var SQ := ReadSeqInteger(N);

foreach var data in SQ do

Push(S, data);

P1 := S.top;

Write(P1)

end.

Решение с созданием стека P1:

program Dynamic11; //pabc.net

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

function NewNode(data: integer; first: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := first
end;

procedure Push(var S: TStack; data: integer);
begin
  S.Top := NewNode(data, S.Top)
end;

begin
  var P1: PNode := nil;
  
  // создаем стек P1
  for var i := 1 to 5 do
    P1 := NewNode(i, P1);
  
  // Дано число N и набор SQ из N чисел
  var N := ReadInteger('N:');
  var SQ := ReadSeqInteger(N);
  
  var S: TStack := (Top: P1);
  
  // добавляем в стек S элементы с data из набора SQ
  foreach var data in SQ do
    Push(S, data);
  
  // ставим указатель P1 на вершину стека S
  P1 := S.Top;
  Writeln(P1);
end.

program Dynamic11; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

TStack = record

Top: PNode;

end;

function NewNode(data: integer; first: PNode): PNode;

begin

New(Result);

Result^.data := data;

Result^.next := first

end;

procedure Push(var S: TStack; data: integer);

begin

S.Top := NewNode(data, S.Top)

end;

begin

var P1: PNode := nil;

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

for var i := 1 to 5 do

P1 := NewNode(i, P1);

// Дано число N и набор SQ из N чисел

var N := ReadInteger('N:');

var SQ := ReadSeqInteger(N);

var S: TStack := (Top: P1);

// добавляем в стек S элементы с data из набора SQ

foreach var data in SQ do

Push(S, data);

// ставим указатель P1 на вершину стека S

P1 := S.Top;

Writeln(P1);

end.

Ответить

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

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

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

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