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

Pointer69. Даны указатели на первый, последний и текущий элементы двух двусвязных списков (второй список может быть пустым). Используя тип TList (см. задание Pointer59), описать процедуру MoveCurrent( $L_1$ , $L_2$ ), которая перемещает текущий элемент списка $L_1$ в список $L_2$ (элемент вставляется после текущего элемента списка $L_2$ и сам становится текущим; в списке $L_1$ текущим становится следующий элемент или, если следующего элемента не существует, последний элемент). Оба параметра процедуры имеют тип TList и являются входными и выходными. Операции выделения и освобождения памяти в процедуре не использовать. С помощью этой процедуры переместить текущий элемент первого списка во второй и вывести адреса первого, последнего и текущего элементов полученных спиcков.

Решение:

program Pointer69;
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 MoveCurrent (var L1,L2:TList);
var
 temp:PNode;
begin
 temp:=L1.Current;
 L1.Current.Prev.Next:=L1.Current.Next;
 L1.Current.Next.Prev:=L1.Current.Prev;
 if L1.Current.Next<>nil then L1.Current:=L1.Current.Next
 else L1.Current:=L1.Current.Prev;

 if L2.Current<>nil then
  begin
   temp.Prev:=L2.Current;
   temp.Next:=L2.Current.Next;
   if L2.Current.Next<>nil then L2.Current.Next.Prev:=temp;
   L2.Current.Next:=temp;
  end
 else
  begin
   temp.Prev:=nil;
   temp.Next:=nil;
   L2.First:=temp;
   L2.Last:=temp;
   L2.Current:=temp;
  end;
end;

var
 L1,L2:TList;
 a:^Word;
begin
 CreateList(L1.First,L1.Last);
 CreateList(L2.First,L2.Last);
 L1.Current:=L1.First.Next.Next;
 L2.Current:=L2.First.Next.Next;

 MoveCurrent(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 Pointer69;

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 MoveCurrent (var L1,L2:TList);

var

temp:PNode;

begin

temp:=L1.Current;

L1.Current.Prev.Next:=L1.Current.Next;

L1.Current.Next.Prev:=L1.Current.Prev;

if L1.Current.Next<>nil then L1.Current:=L1.Current.Next

else L1.Current:=L1.Current.Prev;

if L2.Current<>nil then

begin

temp.Prev:=L2.Current;

temp.Next:=L2.Current.Next;

if L2.Current.Next<>nil then L2.Current.Next.Prev:=temp;

L2.Current.Next:=temp;

end

else

begin

temp.Prev:=nil;

temp.Next:=nil;

L2.First:=temp;

L2.Last:=temp;

L2.Current:=temp;

end;

var

L1,L2:TList;

a:^Word;

begin

CreateList(L1.First,L1.Last);

CreateList(L2.First,L2.Last);

L1.Current:=L1.First.Next.Next;

L2.Current:=L2.First.Next.Next;

MoveCurrent(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 можно посмотреть здесь.

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

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

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