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

• program Dynamic17; //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 Q: TQueue := (head: nil; tail: nil); //создаем очередь из N элементов, N может быть равным 0 for var i := 1 to ReadInteger('N:') do Enqueue(Q, i); // здесь числа от 1 до N var D := ReadInteger('D:'); Enqueue(Q, D); Writeln(Q.head, ' ', Q.tail); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

  program Dynamic17; //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 Q: TQueue := (head: nil; tail: nil);      //создаем очередь из N элементов, N может быть равным 0   for var i := 1 to ReadInteger('N:') do     Enqueue(Q, i); // здесь числа от 1 до N      var D := ReadInteger('D:');      Enqueue(Q, D);      Writeln(Q.head, ' ', Q.tail); end.

  Ответить