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

Pointer66. Даны указатели $P_1$ , $P_2$ и $P_3$ на первый, последний и текущий элементы непустого двусвязного списка. Используя тип TList (см. задание Pointer59), описать процедуру SpliTList( $L_1$ , $L_2$ ), которая переносит элементы списка $L_1$ от текущего до последнего в новый список $L_2$ (таким образом, список $L_1$ делится на две части, причем первая часть может оказаться пустой). Параметры процедуры имеют тип TList; первый параметр является входным и выходным, второй — выходным. Текущими элементами непустых результирующих списков становятся их первые элементы. Операции выделения и освобождения памяти в процедуре не использовать. С помощью этой процедуры разбить исходный список на два и вывести адреса первого, последнего и текущего элементов полученных списков.

Решение:

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

procedure CreateList(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;

 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt1.Prev:=pt2;
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;

procedure SpliTList(var L1,L2:TList);
begin
 if L1.Current<>nil then
  begin
   L2.Last:=L1.Last;
   L1.Last:=L1.Current.Prev;
   L1.Last.Next:=nil;

   L2.First:=L1.Current;
   L2.First.Prev:=nil;

   L1.Current:=L1.First;
   L2.Current:=L2.First;
  end;
end;

var
 P1,P2,P3:PNode;
 L1,L2:TList;
 a:^Word;
begin
 P1:=nil;
 P2:=nil;
 P3:=nil;

 CreateList(P1,P2);
 P3:=P1;

 L1.First:=P1;
 L1.Last:=P2;
 L1.Current:=P1.Next.Next;

 SpliTList(L1,L2);

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

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

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


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

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

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

program Pointer66;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TList=record

First,Last,Current:PNode;

end;

procedure CreateList(var P1,P2:PNode);

var

pt1,pt2:PNode;

i,N:integer;

begin

Write('NumEl:');

Readln(N);

new(p1);

Write('num: ');

Readln(P1^.Data);

pt2:=p1;

for i:=1 to N-1 do

begin

new(pt1);

Write('num: ');

Readln(pt1^.Data);

pt1.Prev:=pt2;

pt2.Next:=pt1;

pt2:=pt2.Next;

end;

pt2.Next:=nil;

p2:=pt2;

end;

procedure SpliTList(var L1,L2:TList);

begin

if L1.Current<>nil then

begin

L2.Last:=L1.Last;

L1.Last:=L1.Current.Prev;

L1.Last.Next:=nil;

L2.First:=L1.Current;

L2.First.Prev:=nil;

L1.Current:=L1.First;

L2.Current:=L2.First;

end;

var

P1,P2,P3:PNode;

L1,L2:TList;

a:^Word;

begin

P1:=nil;

P2:=nil;

P3:=nil;

CreateList(P1,P2);

P3:=P1;

L1.First:=P1;

L1.Last:=P2;

L1.Current:=P1.Next.Next;

SpliTList(L1,L2);

a:=Addr(L1.First);

Writeln('L1 First: ',a^);

a:=Addr(L1.Last);

Writeln('L1 Last: ',a^);

a:=Addr(L1.Current);

Writeln('L1 Current: ',a^);

a:=Addr(L2.First);

Writeln('L2 First: ',a^);

a:=Addr(L2.Last);

Writeln('L2 Last: ',a^);

a:=Addr(L2.Current);

Writeln('L2 Current: ',a^);

end.

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

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

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

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