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

Pointer43. Дан указатель $P_1$ на первый элемент непустого двусвязного списка. Удалить из списка все элементы с нечетными значениями и вывести указатель на первый элемент преобразованного списка (если в результате удаления элементов список окажется пустым, то вывести $nil$ ). После удаления элементов из списка освобождать память, которую они занимали.

Решение:

program Pointer43;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: 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 DelNode(var P0,PPrev,PNext:PNode);
begin
 PNext:=P0.Next;
 PPrev:=P0.Prev;
 if PNext<>nil then PNext.Prev:=PPrev;
 if PPrev<>nil then PPrev.Next:=PNext;
 Dispose(P0);
 P0:=nil;
end;

procedure DelOdd(var P1,P2:PNode);
var
 p,pp,pn:PNode;
begin
 if P1<>nil then
  begin
   p := p1;
   repeat
    if odd(P.Data) then
     begin
      if p=p1 then
       begin
        DelNode(p,pp,pn);
        p1:=pn
       end
      else DelNode(p,pp,pn);
      P:=pn;
     end
    else
     begin
      P2:=p;
      p := p^.next;
     end;
   until (p = nil);
  end
  else Writeln('nil');
end;

var
 P1,P2:PNode;
 a:^Word;
begin
 CreateList(P1,P2);
 P2:=nil;
 DelOdd(P1,P2);

 if p1<> nil then
  begin
   a:=Addr(P1);
   Writeln('P1: ',a^);
  end
 else Writeln('P1: nil');
end.

program Pointer43;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: 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 DelNode(var P0,PPrev,PNext:PNode);

begin

PNext:=P0.Next;

PPrev:=P0.Prev;

if PNext<>nil then PNext.Prev:=PPrev;

if PPrev<>nil then PPrev.Next:=PNext;

Dispose(P0);

P0:=nil;

end;

procedure DelOdd(var P1,P2:PNode);

var

p,pp,pn:PNode;

begin

if P1<>nil then

begin

p := p1;

repeat

if odd(P.Data) then

begin

if p=p1 then

begin

DelNode(p,pp,pn);

p1:=pn

end

else DelNode(p,pp,pn);

P:=pn;

end

else

begin

P2:=p;

p := p^.next;

end;

until (p = nil);

end

else Writeln('nil');

end;

var

P1,P2:PNode;

a:^Word;

begin

CreateList(P1,P2);

P2:=nil;

DelOdd(P1,P2);

if p1<> nil then

begin

a:=Addr(P1);

Writeln('P1: ',a^);

end

else Writeln('P1: nil');

end.

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

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

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

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