void SelectSort(RecordType r[], int length)
/*對記錄數(shù)組r做簡單選擇排序，length為數(shù)組的長度*/
{
	int i,j,k;	int n;	RecordType x;    n=length;
	for ( i=1 ; i<= n-1; ++i)  
	{
		k=i;
		for (j=i+1 ; j<= n ; ++j) 
			if (r[j].key < r[k].key ) k=j;
		if ( k!=i) 
		 { 
		     x= r[i];   r[i]= r[k];   r[k]=x;
		}
	}	
} /* SelectSort  */ 

void crt_heap(RecordType r[], int length )
/*對記錄數(shù)組r建堆，length為數(shù)組的長度*/
{
	int i,n;
    n= length;
	for ( i=n/2; i >= 1; --i) /* 自第[n/2]個記錄開始進行篩選建堆 */ 
		sift(r,i,n);
}

void  sift(RecordType  r[],  int k, int m)
/* 假設(shè)ｒ[k..m]是以ｒ[k]為根的完全二叉樹，且分別以ｒ[2k]和ｒ[2k+1]為根的左、右子樹為大根堆，調(diào)整r[k]，使整個序列r[k..m]滿足堆的性質(zhì) */
{	RecordType t;	int i,j;	int x;	int finished;
	t= r[k];          /* 暫存"根"記錄r[k] */ 	
     x=r[k].key;	i=k;	j=2*i;
	finished=FALSE;
	while( j<=m && !finished  ) 
		{     
		     if (j<m  && r[j].key< r[j+1].key )  j=j+1;   /* 若存在右子樹，
                                                     且右子樹 根的關(guān)鍵字大，則沿右分支"篩選" */
		     if ( x>= r[j].key)	finished=TRUE;            /*  篩選完畢  */ 
		     else 
		     {   r[i] = r[j];  i=j;  j=2*i;	}    /* 繼續(xù)篩選 */ 
		}
		r[i] =t;          /* r[k]填入到恰當?shù)奈恢?*/ 
} 

void  HeapSort(RecordType  r[],int length)
/* 對r[1..n]進行堆排序，執(zhí)行本算法后，r中記錄按關(guān)鍵字由大到小有序排列 */ 
{
	int i,n;	RecordType b;
	crt_heap(r, length);	n= length;
	for (  i=n ; i>= 2; --i) 
	{
		b=r[1];     /* 將堆頂記錄和堆中的最后一個記錄互換 */ 
		r[1]= r[i];
		r[i]=b; 
		sift(r,1,i-1);  /* 進行調(diào)整，使r[1..i-1]變成堆 */ 
	}
} /* HeapSort */ 

void MergeSort ( RecordType  r[], int n) /* 對記錄數(shù)組r[1..n]做歸并排序 */ 
{
	MSort ( r, 1, n, r);
}
void   MSort(RecordType  r1[],  int  low,  int  high,  RecordType  r3[])
/* r1[low..high]經(jīng)過排序后放在r3[low..high]中，r2[low..high]為輔助空間 */ 
{
	int mid;   RecordType  r2[20];
	if (low==high)   r3[low]=r1[low];
	else
	{
		mid=(low+high)/2;
        MSort(r1,low, mid, r2);
        MSort(r1,mid+1,high, r2);
        Merge (r2,low,mid,high, r3);
     }
} /*   MSort  */