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

Pointer60. Даны указатели $P_1$ , $P_2$ и $P_3$ на первый, последний и текущий элементы двусвязного списка (если список является пустым, то $P_1=P_2=P_3=nil$ ). Также дано число $N$ $(>0)$ и набор из $N$ чисел. Используя тип TList (см. задание Pointer59), описать процедуру InsertFirst( $L$ , $D$ ), которая добавляет новый элемент со значением $D$ в начало списка $L$ ( $L$ — входной и выходной параметр типа TList, $D$ — входной параметр целого типа). Добавленный элемент становится текущим. С помощью этой процедуры добавить в начало исходного списка данный набор чисел (добавленные числа будут располагаться в списке в обратном порядке) и вывести новые адреса его первого, последнего и текущего элементов.

Решение:

program Pointer60;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: PNode;
  end;
  TList=record
    First,Last,Current:PNode;
  end;

Procedure InsertFirst(var L:TList;D:integer);
var
 temp:PNode;
begin
 New(temp);
 temp.Data:=d;
 temp.Prev:=nil;
 if L.First<>nil then
  begin
   temp.Next:=L.First;
   L.First.Prev:=temp;
  end
 else
  begin
   temp.Next:=nil;
   L.Last:=temp;
  end;
 L.First:=temp;
 L.Current:=temp;
end;


var
 P1,P2,P3:PNode;
 L:TList;

 a:^Word;
 N,D,i:integer;
begin
 P1:=nil;
 P2:=nil;
 P3:=nil;

 L.First:=P1;
 L.Last:=P2;
 L.Current:=P3;


 Write('N: ');
 Readln(N);

 for i:=1 to N do
  begin
   Write('D: ');
   Readln(D);
   InsertFirst(L,D);
  end;

 a:=Addr(L.First);
 Writeln('First: ',a^);

 a:=Addr(L.Last);
 Writeln('Last: ',a^);

 a:=Addr(L.Current);
 Writeln('Current: ',a^);
end.

program Pointer60;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TList=record

First,Last,Current:PNode;

end;

Procedure InsertFirst(var L:TList;D:integer);

var

temp:PNode;

begin

New(temp);

temp.Data:=d;

temp.Prev:=nil;

if L.First<>nil then

begin

temp.Next:=L.First;

L.First.Prev:=temp;

end

else

begin

temp.Next:=nil;

L.Last:=temp;

end;

L.First:=temp;

L.Current:=temp;

end;

var

P1,P2,P3:PNode;

L:TList;

a:^Word;

N,D,i:integer;

begin

P1:=nil;

P2:=nil;

P3:=nil;

L.First:=P1;

L.Last:=P2;

L.Current:=P3;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

Write('D: ');

Readln(D);

InsertFirst(L,D);

end;

a:=Addr(L.First);

Writeln('First: ',a^);

a:=Addr(L.Last);

Writeln('Last: ',a^);

a:=Addr(L.Current);

Writeln('Current: ',a^);

end.

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

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

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

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