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

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

Решение:

program Pointer78;
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 LBToFirst(var L:TListB);
begin
 L.Current:=L.Barrier.Next;
end;

procedure LBToNext(var L:TListB);
begin
 L.Current:=L.Current.Next;
end;

procedure LBSetData (L:TListB; D:integer);
begin
 if L.Current<>L.Barrier then L.Current^.Data:=D;
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;

 LBToFirst(L);
 Len:=0;

 While not(IsBarrier(L)) do
  begin
   inc(Len);
   if odd(len) then  LBSetData(L,0);
   LBToNext(L);
  end;

 Writeln('Len:',Len);

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

program Pointer78;

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 LBToFirst(var L:TListB);

begin

L.Current:=L.Barrier.Next;

end;

procedure LBToNext(var L:TListB);

begin

L.Current:=L.Current.Next;

end;

procedure LBSetData (L:TListB; D:integer);

begin

if L.Current<>L.Barrier then L.Current^.Data:=D;

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;

LBToFirst(L);

Len:=0;

While not(IsBarrier(L)) do

begin

inc(Len);

if odd(len) then LBSetData(L,0);

LBToNext(L);

end;

Writeln('Len:',Len);

a:=Addr(L.Current);

Writeln('current: ',a^);

end.

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

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

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

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