Автор: Bronislav

Bronislav — Sat, 23 Feb 2019 14:32:43 +0000

Решение проверенное в электронном задачнике 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

Автор: Bronislav