算法 6.15  
void HeapSort ( HeapType &H ) {
      // 對順序表H進行堆排序。
      for ( i=H.length/2; i>0; --i )          // 把H.r[1..H.length]建成大頂堆
          HeapAdjust ( H, i, H.length );
      w=H.r[1] ; H.r[1]= H.r[H.length]; H.r[H.length]=w;
                                              //交換"堆頂"和"堆底"的記錄
      for ( i=H.length-1; i>1; --i ) {
        HeapAdjust(H, 1, i);                  // 從根開始調整，將H.r[1..i] 重新調整為大頂堆
        w=H.r[1]; H.r[1]=H.r[i]; H.r[i]=w;    // 將堆頂記錄和當前的"堆底"記錄相互交換
                                              // 使已有序的記錄堆積到底部
      }
} // HeapSort