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

Pointer15. Дан набор из $$10$$ чисел. Создать две очереди: первая должна содержать числа из исходного набора с нечетными номерами $$(1, 3,…, 9)$$, а вторая — с четными $$(2, 4,…, 10)$$; порядок чисел в каждой очереди должен совпадать с порядком чисел в исходном наборе. Вывести указатели на начало и конец первой, а затем второй очереди.

Решение:

program Pointer16;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  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
 Even1,Even2,Odd1,Odd2:PNode;
 a:^Word;
 i,D:integer;
begin
 new(Even1);
 new(Even2);
 new(Odd1);
 new(Odd2);
 Even1:=nil;
 Even2:=nil;
 Odd1:=nil;
 Odd2:=nil;

 for i:=1 to 10 do
  begin
   Write('num:');
   Readln(D);
   if odd(i) then Add(Odd1, Odd2,D)
   else Add(Even1,Even2,D);
  end;

 a:=Addr(Odd1);
 Writeln('odd_begin',a^);

 a:=Addr(Odd2);
 Writeln('odd_end',a^);

 a:=Addr(Even1);
 Writeln('Even_begin',a^);

 a:=Addr(Even2);
 Writeln('Even_end',a^);
end.

program Pointer16;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

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

Even1,Even2,Odd1,Odd2:PNode;

a:^Word;

i,D:integer;

begin

new(Even1);

new(Even2);

new(Odd1);

new(Odd2);

Even1:=nil;

Even2:=nil;

Odd1:=nil;

Odd2:=nil;

for i:=1 to 10 do

begin

Write('num:');

Readln(D);

if odd(i) then Add(Odd1, Odd2,D)

else Add(Even1,Even2,D);

end;

a:=Addr(Odd1);

Writeln('odd_begin',a^);

a:=Addr(Odd2);

Writeln('odd_end',a^);

a:=Addr(Even1);

Writeln('Even_begin',a^);

a:=Addr(Even2);

Writeln('Even_end',a^);

end.

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

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

program Dynamic15; //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;

begin
  var a := Range(1, 10).ToArray; // числа, которые даны, здесь от 1 до 10
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  
  for var i := 0 to a.High do
    if (i + 1).IsOdd then
      Enqueue(Q1, a[i])
    else
      Enqueue(Q2, a[i]);
  
  Writeln(Q1.head, ' ', Q1.tail, NewLine,
          Q2.head, ' ', Q2.tail)
end.

program Dynamic15; //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;

begin

var a := Range(1, 10).ToArray; // числа, которые даны, здесь от 1 до 10

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

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

for var i := 0 to a.High do

if (i + 1).IsOdd then

Enqueue(Q1, a[i])

else

Enqueue(Q2, a[i]);

Writeln(Q1.head, ' ', Q1.tail, NewLine,

Q2.head, ' ', Q2.tail)

end.

Ответить

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

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

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

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