int   QKPass(RecordType r[],int left,int right)
/*對記錄數組r 中的r[left]至r[right]部分進行一趟排序，并得到基準的位置，使得排序后的結果滿足其之后（前）的記錄的關鍵字均不小于（大于）于基準記錄*/
{ 
	RecordType x;
	int low,high;
	x= r[left];             /* 選擇基準記錄*/ 
	low=left;  
	high=right;
	while ( low<high )
	{
		while (low< high && r[high].key>=x.key ) 
			/* high從右到左找小于x.key的記錄 */
			high--;
		if ( low <high ) 
		{ 
			r[low]= r[high];
			low++;
		}  
		/* 找到小于x.key的記錄，則進行交換*/
		while (low<high && r[low].key<x.key  )    /* low從左到右找大于x.key的記錄 */
			low++; 
		if (  low<high  )
		{ 
			r[high]= r[low];
			high--; 
		} /* 找到大于x.key的記錄，則交換*/
	}
	r[low]=x;                     /*將基準記錄保存到low=high的位置*/
	return low;                     /*返回基準記錄的位置*/
} /* QKPass */