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

Pointer79. Даны указатели $$P_1$$ и $$P_2$$ на барьерный и текущий элементы двусвязного списка. Используя тип TListB (см. задание Pointer74), описать процедуры LBToLast($$L$$) (делает текущим последний элемент списка $$L$$), LBToPrev($$L$$) (делает текущим в списке $$L$$ предыдущий элемент) и функцию LBGetData($$L$$) целого типа (возвращает значение текущего элемента списка $$L$$). Параметр $$L$$ имеет тип TListB; в процедурах LBToLast и LBToPrev он является входным и выходным. С помощью этих процедур и функций, а также с использованием функции IsBarrier из задания Pointer78, вывести все четные значения элементов исходного списка, просматривая список с конца. Вывести также количество элементов в списке. Барьерный элемент при подсчете элементов не учитывать.

Решение:

program Pointer79;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: PNode;
  end;
  TListB=record
    Barrier,Current:PNode;
  end;

function CycleList():PNode;
var
 P1,pt1,pt2,temp: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;

 new(temp);
 temp.Data:=0;
 temp.Next:=P1;
 temp.Prev:=Pt2;
 P1.Prev:=temp;
 Pt2.Next:=temp;
 CycleList:=temp;
end;

procedure LBToLast(var L:TListB);
begin
 L.Current:=L.Barrier.Prev;
end;

procedure LBToPrev(var L:TListB);
begin
 L.Current:=L.Current.Prev;
end;

function LBGetData (L:TListB):integer;
begin
 LBGetData:=L.Current.Data;
end;

function IsBarrier(L:TListB):boolean;
begin
 if L.Current=L.Barrier then IsBarrier:=True
 else IsBarrier:=False;
end;

var
 P1,P2:PNode;
 a:^Word;
 L:TListB;
 len:integer;

begin
 P1:=CycleList();
 P2:=P1.Next.Next;

 L.Barrier:=P1;
 L.Current:=P2;

 LBToLast(L);
 Len:=0;

 While not(IsBarrier(L)) do
  begin
   inc(Len);
   if not(odd(LBGetData(L))) then Writeln(LBGetData(L));
   LBToPrev(L);
  end;

 Writeln('Len:',Len);

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

program Pointer79;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TListB=record

Barrier,Current:PNode;

end;

function CycleList():PNode;

var

P1,pt1,pt2,temp: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;

new(temp);

temp.Data:=0;

temp.Next:=P1;

temp.Prev:=Pt2;

P1.Prev:=temp;

Pt2.Next:=temp;

CycleList:=temp;

end;

procedure LBToLast(var L:TListB);

begin

L.Current:=L.Barrier.Prev;

end;

procedure LBToPrev(var L:TListB);

begin

L.Current:=L.Current.Prev;

end;

function LBGetData (L:TListB):integer;

begin

LBGetData:=L.Current.Data;

end;

function IsBarrier(L:TListB):boolean;

begin

if L.Current=L.Barrier then IsBarrier:=True

else IsBarrier:=False;

end;

var

P1,P2:PNode;

a:^Word;

L:TListB;

len:integer;

begin

P1:=CycleList();

P2:=P1.Next.Next;

L.Barrier:=P1;

L.Current:=P2;

LBToLast(L);

Len:=0;

While not(IsBarrier(L)) do

begin

inc(Len);

if not(odd(LBGetData(L))) then Writeln(LBGetData(L));

LBToPrev(L);

end;

Writeln('Len:',Len);

a:=Addr(L.Current);

Writeln('current: ',a^);

end.

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

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

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

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