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

Pointer2. Дан адрес $$P_1$$ записи типа TNode. Эта запись связана полем Next со следующей записью того же типа, она, в свою очередь, — со следующей, и так далее до записи, поле Next которой равно $$nil$$ (таким образом, возникает цепочка связанных записей). Вывести значения полей Data для всех элементов цепочки, длину цепочки (то есть число ее элементов) и адрес ее последнего элемента.

Решение:

program Pointer2;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;
//реализация функции CreateStack не входит в задание, стек появляется из неоткуда.
procedure CreateStack(var P1:PNode);
var
 p,q:PNode;
 i,N:integer;
begin
 Write('N:');
 Readln(N);

 New(P1);
 Write('data: ');
 Readln(P1^.Data);
 P1^.Next := nil;

 q:=P1;
 for i:=1 to N-1 do
  begin
   new(p);
   Write('data: ');
   Readln(P^.Data);
   p^.Next := nil;
   q^.Next := p;
   q:=q^.Next
  end;
end;

//для решнеия необходимо реализовать только функцию ViewStack(...)
procedure ViewStack(P1:PNode);
var
 p:PNode;
 a:^Word;
 len:integer;
begin
  len:=1;
  p := p1;
  a:=Addr(p);
  while p <> nil do
   begin
    inc(len);
    WriteLn(p^.Data);
    if p^.Next = nil then writeln('last address: ',a^);
    p := p^.next;
   end;
  writeln('len: ',len);
end;

var
 P1:PNode;
begin
 CreateStack(P1);
//для решнеия необходимо реализовать только функцию ViewStack(...)
 ViewStack(P1);
end.

program Pointer2;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

//реализация функции CreateStack не входит в задание, стек появляется из неоткуда.

procedure CreateStack(var P1:PNode);

var

p,q:PNode;

i,N:integer;

begin

Write('N:');

Readln(N);

New(P1);

Write('data: ');

Readln(P1^.Data);

P1^.Next := nil;

q:=P1;

for i:=1 to N-1 do

begin

new(p);

Write('data: ');

Readln(P^.Data);

p^.Next := nil;

q^.Next := p;

q:=q^.Next

end;

//для решнеия необходимо реализовать только функцию ViewStack(...)

procedure ViewStack(P1:PNode);

var

p:PNode;

a:^Word;

len:integer;

begin

len:=1;

p := p1;

a:=Addr(p);

while p <> nil do

begin

inc(len);

WriteLn(p^.Data);

if p^.Next = nil then writeln('last address: ',a^);

p := p^.next;

end;

writeln('len: ',len);

end;

var

P1:PNode;

begin

CreateStack(P1);

//для решнеия необходимо реализовать только функцию ViewStack(...)

ViewStack(P1);

end.

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

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

program Dynamic02; //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, last: PNode;
  p1 := nil;
  
  for var i := 1 to Random(10) + 1 do
    p1 := NewNode(2 * i - 1, p1);
  
  var Count := 0;
  var p := p1;
  
  while p <> nil do
  begin
    Count += 1;
    Write(p^.data, ' '); // 9 7 5 3 1
    if p^.next = nil then last := p;
    p := p^.next
  end;
  
  Write(NewLine, 'Count = ', Count, // 5
        NewLine, 'Last Node address: ', last)
end.

program Dynamic02; //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, last: PNode;

p1 := nil;

for var i := 1 to Random(10) + 1 do

p1 := NewNode(2 * i - 1, p1);

var Count := 0;

var p := p1;

while p <> nil do

begin

Count += 1;

Write(p^.data, ' '); // 9 7 5 3 1

if p^.next = nil then last := p;

p := p^.next

end;

Write(NewLine, 'Count = ', Count, // 5

NewLine, 'Last Node address: ', last)

end.

Решение, проверенное в электронном задачнике (PT4):

program dynamic02;//pabc.net

uses PT4;

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

var p1, last, p: PNode;
  Count: integer;

begin
  Task('Dynamic2');
  Read(p1);//нельзя считывать данные этого типа, но в тесте можно
  p := p1;
  
  while p <> nil do
  begin
    Count += 1;
    Print(p^.data);
    if p^.next = nil then last := p;
    p := p^.next
  end;
  
  Writeln;
  Write(Count, last);
end.

program dynamic02;//pabc.net

uses PT4;

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

var p1, last, p: PNode;

Count: integer;

begin

Task('Dynamic2');

Read(p1);//нельзя считывать данные этого типа, но в тесте можно

p := p1;

while p <> nil do

begin

Count += 1;

Print(p^.data);

if p^.next = nil then last := p;

p := p^.next

end;

Writeln;

Write(Count, last);

end.

Ответить

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

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

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

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