Автор: Bronislav

Bronislav — Sun, 17 Feb 2019 22:24:15 +0000

program Dynamic16; //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 Sq := Range(1, 10); // числа, которые даны, здесь от 1 до 10
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  
  foreach var num in Sq do
    if num.IsOdd then
      Enqueue(Q1, num)
    else
      Enqueue(Q2, num);
  
  Writeln(Q1.head,' ',Q1.tail, NewLine,
          Q2.head,' ',Q2.tail)
end.

program Dynamic16; //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 Sq := Range(1, 10); // числа, которые даны, здесь от 1 до 10

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

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

foreach var num in Sq do

if num.IsOdd then

Enqueue(Q1, num)

else

Enqueue(Q2, num);

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

Q2.head,' ',Q2.tail)

end.

Автор: Anton

Anton — Sat, 09 Dec 2017 12:50:40 +0000

В ответ на Анна. Нет ничего страшного. Вы же знаете особенности своего компилятора и можете поправить этот пример под него. :) Ну или вы можете заняться жуткой не интересной работой... написать то в чём вы компилируете, написать какую ошибку выдаёт ваш компилятор... и прочии не интересные весчи :)

Автор: Анна

Анна — Sat, 09 Dec 2017 12:35:35 +0000

А ничего, что она не работает?!?!

Комментарии: Решаем задачи Абрамян на Паскале. Pointer16

Автор: Bronislav

Автор: Anton

Автор: Анна