Автор: Bronislav

Bronislav — Mon, 18 Feb 2019 00:58:19 +0000

Пора создавать модуль, длинные программы получаются.

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

/// Добавляет элемент P в конец очереди Q
procedure EnqueueNode(var Q: TQueue; p: PNode);
begin
  if p = nil then exit;
  if Q.tail = nil then
  begin
    Q.tail := p;
    Q.head := p
  end
  else
  begin
    Q.tail^.next := p;
    Q.tail := p;
  end;
end;

/// Извлекает первый элемент из очереди и возвращает его адрес
function DequeueNode(var Q: TQueue): PNode;
begin
  if Q.head = nil then exit;
  Result := Q.head;
  Q.head := Q.head^.next;
  if Q.head = nil then
    Q.tail := nil;
  Result^.next := nil;
end;

begin
  var Q1: TQueue := (head: nil; tail: nil);
  var Q2: TQueue := (head: nil; tail: nil);
  
  // создаем первую очередь
  foreach var data in Range(1, 5) do
    Enqueue(Q1, data);
  
  // создаем вторую очередь
  foreach var data in Range(6, 9) do
    Enqueue(Q2, data);
  
  var N := ReadInteger('N:');
  
  while (N > 0) and (Q1.head <> nil) do
  begin
    EnqueueNode(Q2, DequeueNode(Q1));
    N -= 1
  end;
  
  Writeln(Q1.head, ' ', Q1.tail);
  Writeln(Q2.head, ' ', Q2.tail)
end.

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

/// Добавляет элемент P в конец очереди Q

procedure EnqueueNode(var Q: TQueue; p: PNode);

begin

if p = nil then exit;

if Q.tail = nil then

begin

Q.tail := p;

Q.head := p

end

else

begin

Q.tail^.next := p;

Q.tail := p;

end;

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

function DequeueNode(var Q: TQueue): PNode;

begin

if Q.head = nil then exit;

Result := Q.head;

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

if Q.head = nil then

Q.tail := nil;

Result^.next := nil;

end;

begin

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

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

// создаем первую очередь

foreach var data in Range(1, 5) do

Enqueue(Q1, data);

// создаем вторую очередь

foreach var data in Range(6, 9) do

Enqueue(Q2, data);

var N := ReadInteger('N:');

while (N > 0) and (Q1.head <> nil) do

begin

EnqueueNode(Q2, DequeueNode(Q1));

N -= 1

end;

Writeln(Q1.head, ' ', Q1.tail);

Writeln(Q2.head, ' ', Q2.tail)

end.

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

Автор: Bronislav