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

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

Решение:

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

procedure InserTList (var L1,L2:TList);
begin
 if L1.Current<>nil then
  begin
   L2.First.Prev:=L1.Current.Prev;
   L2.Last.Next:=L1.Current;
   if L1.Current.Prev<>nil then L1.Current.Prev.Next:=L2.First;
   L1.Current.Prev:=L2.Last;
   L1.Current:=L2.First;
  end
 else
  begin
   L1.First:=L2.First;
   L1.Last:=L2.Last;
   L1.Current:=L2.Current;
  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.Next.Next;
 L2.Current:=L2.First;

 InserTList(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 Pointer68;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TList=record

First,Last,Current:PNode;

end;

procedure InserTList (var L1,L2:TList);

begin

if L1.Current<>nil then

begin

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

L2.Last.Next:=L1.Current;

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

L1.Current.Prev:=L2.Last;

L1.Current:=L2.First;

end

else

begin

L1.First:=L2.First;

L1.Last:=L2.Last;

L1.Current:=L2.Current;

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.Next.Next;

L2.Current:=L2.First;

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

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

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

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