void HeapAdjust ( S_TBL *h，int s，int m )
{/*r[s…m]中的记录关键码除r[s]外均满足堆的定义，本函数将对第s 个结点为根的子树筛选，使其成为大顶堆*/
rc=h->r[s];
for ( j=2*s; j<=m; j=j*2 ) /* 沿关键码较大的子女结点向下筛选*/
{
if ( j<m&&h->r[j].key<h->r[j+1].key )
j=j+1; /* 为关键码较大的元素下标*/
if ( rc.key<h->r[j].key ) break; /* rc 应插入在位置s 上*/
h->r[s]=h->r[j];
s=j; /* 使s 结点满足堆定义*/
}
h->r[s]=rc; /* 插入*/
}
void HeapSort ( S_TBL *h )
{
for ( i=h->length/2; i>0; i-- ) /* 将r[1..length]建成堆*/
HeapAdjust ( h，i，h->length );
for ( i=h->length; i>1; i-- )
{
h->r[1]<-->h->r[i]; /* 堆顶与堆低元素交换*/
HeapAdjust ( h，1，i-1 ); /*将r[1..i-1]重新调整为堆*/
}
}