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

Pointer20. Даны указатели $$P_1$$ и $$P_2$$ на начало и конец непустой очереди. Извлекать из очереди элементы, пока значение начального элемента очереди не станет четным, и выводить значения извлеченных элементов (если очередь не содержит элементов с четными значениями, то извлечь все ее элементы). Вывести также новые адреса начала и конца очереди (для пустой очереди дважды вывести $$nil$$). После извлечения элементов из очереди освобождать память, которую они занимали.

Решение:

program Pointer20;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;

procedure CreateQueue(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);
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;

function pop(var P1,P2:PNode):integer;
var
 head: PNode;
begin
 if P1<>nil then
  begin
   if P1=P2 then
    begin
     Result:=P1.Data;
     P1:=nil;
     P2:=nil;
    end
   else
    begin
     Result:=P1^.Data;
     head:=P1^.Next;
     Dispose(P1);
     P1:=head;
    end;
  end
  else Result:=0;
end;

procedure Add(var P1,P2:PNode;D:integer);
var
 p :PNode;
begin
 new(p);
 p^.data:=D;
 p^.next:=nil;
 if P2<>nil then
  begin
   P2^.Next:=P;
   P2:=P2^.Next;
  end
 else
  begin
   P1:=p;
   P2:=p;
  end;
end;

var
 P1,P2:PNode;
 a:^Word;
 i,N:integer;
begin
 CreateQueue(P1,P2);

 While not(P1=nil) do
  if not(odd(P1^.Data)) then break
  else Writeln(pop(P1,P2));

 if p1=nil then Writeln('nil')
 else
  begin
   a:=Addr(P1);
   Writeln('odd_begin',a^);
  end;

 if p2=nil then Writeln('nil')
 else
  begin
   a:=Addr(P2);
   Writeln('odd_end',a^);
  end;
end.

program Pointer20;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

procedure CreateQueue(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);

pt2.Next:=pt1;

pt2:=pt2.Next;

end;

pt2.Next:=nil;

p2:=pt2;

end;

function pop(var P1,P2:PNode):integer;

var

head: PNode;

begin

if P1<>nil then

begin

if P1=P2 then

begin

Result:=P1.Data;

P1:=nil;

P2:=nil;

end

else

begin

Result:=P1^.Data;

head:=P1^.Next;

Dispose(P1);

P1:=head;

end;

end

else Result:=0;

end;

procedure Add(var P1,P2:PNode;D:integer);

var

p :PNode;

begin

new(p);

p^.data:=D;

p^.next:=nil;

if P2<>nil then

begin

P2^.Next:=P;

P2:=P2^.Next;

end

else

begin

P1:=p;

P2:=p;

end;

var

P1,P2:PNode;

a:^Word;

i,N:integer;

begin

CreateQueue(P1,P2);

While not(P1=nil) do

if not(odd(P1^.Data)) then break

else Writeln(pop(P1,P2));

if p1=nil then Writeln('nil')

else

begin

a:=Addr(P1);

Writeln('odd_begin',a^);

end;

if p2=nil then Writeln('nil')

else

begin

a:=Addr(P2);

Writeln('odd_end',a^);

end;

end.

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

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

program Dynamic20; //pabc.net

type
  PNode = ^TNode;
  TNode = record
    data: integer;
    next: PNode;
  end;
  TQueue = record
    head, tail: PNode;
  end;

/// Создает элемент типа TNode и возвращает его адрес
function NewNode(data: integer; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next
end;

/// Создает и добавляет элемент со значением Data в конец очереди Q
procedure Enqueue(var Q: TQueue; data: integer);
begin
  var p := NewNode(data, nil);
  if Q.tail = nil then
  begin
    Q.tail := p;
    Q.head := p
  end
  else
  begin
    Q.tail^.next := p;
    Q.tail := p;
  end
end;

/// Извлекает из очереди первый элемент и возвращает значение его поля Data,
/// освобождает память занимаемую этим элементом
function Dequeue(var Q: TQueue): integer;
begin
  if Q.head = nil then exit;
  Result := Q.head^.data;
  var p := Q.head;
  Q.head := Q.head^.next;
  if Q.head = nil then
    Q.tail := nil;
  Dispose(p)
end;

begin
  var Q: TQueue := (head: nil; tail: nil);
  
  // создаем очередь
  foreach var data in Seq(1, 3, 5, 7, 9, 10, 11, 12) do
    Enqueue(Q, data);
  
  while (Q.head <> nil) and 
        Q.head^.data.isOdd do
    Print(Dequeue(Q)); // 1 3 5 7 9
  
  Writeln(NewLine, Q.head, ' ', Q.tail)
end.

program Dynamic20; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

TQueue = record

head, tail: PNode;

end;

/// Создает элемент типа TNode и возвращает его адрес

function NewNode(data: integer; next: PNode): PNode;

begin

New(Result);

Result^.data := data;

Result^.next := next

end;

/// Создает и добавляет элемент со значением Data в конец очереди Q

procedure Enqueue(var Q: TQueue; data: integer);

begin

var p := NewNode(data, nil);

if Q.tail = nil then

begin

Q.tail := p;

Q.head := p

end

else

begin

Q.tail^.next := p;

Q.tail := p;

end

end;

/// Извлекает из очереди первый элемент и возвращает значение его поля Data,

/// освобождает память занимаемую этим элементом

function Dequeue(var Q: TQueue): integer;

begin

if Q.head = nil then exit;

Result := Q.head^.data;

var p := Q.head;

Q.head := Q.head^.next;

if Q.head = nil then

Q.tail := nil;

Dispose(p)

end;

begin

var Q: TQueue := (head: nil; tail: nil);

// создаем очередь

foreach var data in Seq(1, 3, 5, 7, 9, 10, 11, 12) do

Enqueue(Q, data);

while (Q.head <> nil) and

Q.head^.data.isOdd do

Print(Dequeue(Q)); // 1 3 5 7 9

Writeln(NewLine, Q.head, ' ', Q.tail)

end.

Ответить

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

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

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

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