Pointer27. Даны указатели P_1 и P_2 на начало и конец очереди, содержащей не менее пяти элементов. Используя тип TQueue (см. задание Pointer26), описать функцию Dequeue(Q) целого типа, которая извлекает из очереди первый (начальный) элемент, возвращает его значение и освобождает память, занимаемую извлеченным элементом (Q — входной и выходной параметр типа TQueue). С помощью функции Dequeue извлечь из исходной очереди пять начальных элементов и вывести их значения. Вывести также адреса начала и конца результирующей очереди (если очередь окажется пустой, то эти адреса должны быть равны nil).
Решение:
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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
program Pointer27; type PNode=^TNode; TNode=record Data: Integer; Next: PNode; // Prev: PNode; end; TQueue=record Head,Tail: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 Dequeue(var Q:TQueue):integer; var head: PNode; begin if Q.Head<>nil then begin if Q.Head=Q.Tail then begin Result:=Q.Head^.Data; Q.Head:=nil; Q.Tail:=nil; end else begin Result:=Q.Head^.Data; head:=Q.Head^.Next; Dispose(Q.Head); Q.Head:=head; end; end else Result:=0; end; var Q:TQueue; D,i:integer; a:^Word; begin CreateQueue(Q.Head,Q.Tail); For i:=1 to 5 do Writeln(Dequeue(Q)); if Q.Head=nil then Writeln('Q.Head: nil') else begin a:=Addr(Q.Head); Writeln('Q.Head: ',a^); end; if Q.Tail=nil then Writeln('Q.Tail: nil') else begin a:=Addr(Q.Tail); Writeln('Q.Tail: ',a^); end; end. |
Другие задачи из раздела Pointer можно посмотреть здесь.
Комментарии: