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

Pointer63. Дан непустой двусвязный список, первый, последний и текущий элементы которого имеют адреса $P_1$ , $P_2$ и $P_3$ . Используя тип TList (см. задание Pointer59), описать процедуры ToFirst( $L$ ) (делает текущим первый элемент списка $L$ ), ToNext( $L$ ) (делает текущим в списке $L$ следующий элемент, если он существует), SetData( $L$ , $D$ ) (присваивает текущему элементу списка $L$ значение $D$ целого типа) и функцию IsLast( $L$ ) логического типа (возвращает True, если текущий элемент списка $L$ является его последним элементом, и False в противном случае). Параметр $L$ имеет тип TList; в процедурах ToFirst и ToNext он является входным и выходным. С помощью этих процедур и функций присвоить нулевые значения элементам исходного списка с нечетными номерами и вывести количество элементов в списке, а также новый адрес текущего элемента списка.

Решение:

program Pointer63;
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 ToFirst(var L:TList);
begin
 L.Current:=L.First;
end;

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

Procedure SetData(var L:TList;D:integer);
begin
 L.Current.Data:=D;
end;

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

var
 P1,P2,P3:PNode;
 L:TList;

 a:^Word;
 len:integer;
begin
 P1:=nil;
 P2:=nil;
 P3:=nil;

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

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

 len:=0;
 ToFirst(L);

 while not(IsLas(L)) do
  begin
   inc(len);
   if len<>1 then ToNext(L);
   if odd(len) then SetData(L,0);
  end;
 Writeln('len:',len);

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

program Pointer63;

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 ToFirst(var L:TList);

begin

L.Current:=L.First;

end;

Procedure ToNext(var L:TList);

begin

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

end;

Procedure SetData(var L:TList;D:integer);

begin

L.Current.Data:=D;

end;

function IsLas(L:TList):boolean;

begin

if L.Current=L.Last then IsLas:=True

else IsLas:=False;

end;

var

P1,P2,P3:PNode;

L:TList;

a:^Word;

len:integer;

begin

P1:=nil;

P2:=nil;

P3:=nil;

CreateList(P1,P2);

P3:=P1;

L.First:=P1;

L.Last:=P2;

L.Current:=P3;

len:=0;

ToFirst(L);

while not(IsLas(L)) do

begin

inc(len);

if len<>1 then ToNext(L);

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

end;

Writeln('len:',len);

a:=Addr(L.Current);

Writeln('Current: ',a^);

end.

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

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

Решение проверенное в электронном задачнике PT4:

program Dynamic63; //pabc.net

uses PT4;

type
  TList = record
    first, last, cur: PNode;
  end;

/// Устанавливает текущий указатель на 
/// первый элемент списка L
procedure ToFirst(var L: TList);
begin
  L.cur := L.first
end;

/// Делает текущим в списке L следующий элемент, 
/// если он существует
procedure ToNext(var L: TList);
begin
  if L.cur^.next <> nil then
    L.cur := L.cur^.next
end;

/// Присваивает значение D полю data текущего элемента списка L 
procedure SetData(L: TList; D: integer);
begin
  L.cur^.data := D
end;

/// Возвращает True, если текущий элемент списка L является его 
/// последним элементом, и False в противном случае
function IsLast(L: TList) := L.cur = L.last;

begin
  Task('Dynamic63');
  var L: TList := (first: nil; last: nil; cur: nil);
  Read(L.first, L.last, L.cur);
  
  ToFirst(L);
  
  var Count := 1;
  
  while not IsLast(L) do
  begin
    if Count.IsOdd then
      SetData(L, 0);
    ToNext(L);
    Count += 1
  end;
  
  if Count.IsOdd then
    SetData(L, 0);

  Writeln(Count);
  Writeln(L.first, L.last, L.cur);
end.

program Dynamic63; //pabc.net

uses PT4;

type

TList = record

first, last, cur: PNode;

end;

/// Устанавливает текущий указатель на

/// первый элемент списка L

procedure ToFirst(var L: TList);

begin

L.cur := L.first

end;

/// Делает текущим в списке L следующий элемент,

/// если он существует

procedure ToNext(var L: TList);

begin

if L.cur^.next <> nil then

L.cur := L.cur^.next

end;

/// Присваивает значение D полю data текущего элемента списка L

procedure SetData(L: TList; D: integer);

begin

L.cur^.data := D

end;

/// Возвращает True, если текущий элемент списка L является его

/// последним элементом, и False в противном случае

function IsLast(L: TList) := L.cur = L.last;

begin

Task('Dynamic63');

var L: TList := (first: nil; last: nil; cur: nil);

Read(L.first, L.last, L.cur);

ToFirst(L);

var Count := 1;

while not IsLast(L) do

begin

if Count.IsOdd then

SetData(L, 0);

ToNext(L);

Count += 1

end;

if Count.IsOdd then

SetData(L, 0);

Writeln(Count);

Writeln(L.first, L.last, L.cur);

end.

Ответить

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

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

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

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