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

Pointer64. Дан непустой двусвязный список, первый, последний и текущий элементы которого имеют адреса $$P_1$$, $$P_2$$ и $$P_3$$. Используя тип TList (см. задание Pointer59), описать процедуры ToLast($$L$$) (делает текущим последний элемент списка $$L$$), ToPrev($$L$$) (делает текущим в списке $$L$$ предыдущий элемент, если он существует) и функции GetData($$L$$) целого типа (возвращает значение текущего элемента списка $$L$$), IsFirst($$L$$) логического типа (возвращает True, если текущий элемент списка $$L$$ является его первым элементом, и False в противном случае). Параметр $$L$$ имеет тип TList; в процедурах ToLast и ToPrev он является входным и выходным. С помощью этих процедур и функций вывести все четные значения элементов исходного списка, просматривая список с конца. Вывести также количество элементов в списке.

Решение:

program Pointer64;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
    Prev: PNode;
  end;
  TList=record
    First,Last,Current: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 ToLast(var L:TList);
begin
 L.Current:=L.Last;
end;


Procedure ToPrev(var L:TList);
begin
 if L.Current.Prev<>nil then L.Current:=L.Current.Prev;
end;

Function GetData(L:TList):integer;
begin
 GetData:=L.Current.Data;
end;

function IsFirst(L:TList):boolean;
begin
 if L.Current=L.First then IsFirst:=True
 else IsFirst:=False;
end;

var
 P1,P2,P3:PNode;
 L:TList;
 len:integer;
begin
 P1:=nil;
 P2:=nil;
 P3:=nil;

 CreateList(P1,P2);
 P3:=P1;

 L.First:=P1;
 L.Last:=P2;
 L.Current:=P3;

 ToLast(L);
 len:=1;
 if not(odd(GetData(L))) then Writeln('D: ',GetData(L));
 while not(IsFirst(L)) do
  begin
   ToPrev(L);
   if not(odd(GetData(L))) then Writeln('D: ',GetData(L));
   inc(len);
  end;

 Writeln('len: ',len);
end.

program Pointer64;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

Prev: PNode;

end;

TList=record

First,Last,Current: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 ToLast(var L:TList);

begin

L.Current:=L.Last;

end;

Procedure ToPrev(var L:TList);

begin

if L.Current.Prev<>nil then L.Current:=L.Current.Prev;

end;

Function GetData(L:TList):integer;

begin

GetData:=L.Current.Data;

end;

function IsFirst(L:TList):boolean;

begin

if L.Current=L.First then IsFirst:=True

else IsFirst:=False;

end;

var

P1,P2,P3:PNode;

L:TList;

len:integer;

begin

P1:=nil;

P2:=nil;

P3:=nil;

CreateList(P1,P2);

P3:=P1;

L.First:=P1;

L.Last:=P2;

L.Current:=P3;

ToLast(L);

len:=1;

if not(odd(GetData(L))) then Writeln('D: ',GetData(L));

while not(IsFirst(L)) do

begin

ToPrev(L);

if not(odd(GetData(L))) then Writeln('D: ',GetData(L));

inc(len);

end;

Writeln('len: ',len);

end.

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

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

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

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