PQ {H.elem[0] a sentinel} Procedure Insert(X: elemtipus; var H: PQ); Var i: integer; Begin If Telt(H) then Error(' PQ tele van') Else Begin H.meret := H.meret + 1; i := H.meret; while H.elem[i div 2] > X do {bit shifttel} Begin H.elem[i] := H.elem[ i div 2 ]; i := i div 2; End; H.elem[i] := X; End; Maximum O(log N) művelet, ha az elem az új minimum, átlagban 2,607 összehasonlítás; így az új elem 1,607 szintet emelkedik átlagosan.
{}