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

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

Решение:

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

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

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

 AddList(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^);
end.

program Pointer67;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TList=record

First,Last,Current:PNode;

end;

procedure AddList(var L1,L2:TList);

begin

if L2.First<>nil then

begin

if L1.First<>nil then

begin

L1.Current:=L2.First;

L1.Last.Next:=L2.First;

L2.First.Prev:=L1.Last;

L1.Last:=L2.Last;

end

else

begin

L1.First:=L2.First;

L1.Last:=L2.Last;

L1.Current:=L1.First;

end;

L2.First:=nil;

L2.Last:=nil;

L2.Current:=nil;

end;

var

L1,L2:TList;

a:^Word;

begin

CreateList(L1.First,L1.Last);

CreateList(L2.First,L2.Last);

L1.Current:=L1.First;

L2.Current:=L2.First;

AddList(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^);

end.

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

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

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

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