//折半查找法 二分查找
int binsrch(List l,Type k){
//在有序表l中查找关键字为k的元素,若找到则返回k所在的位置
low=1;
high=l.length;
while(low<=high){
mid=(low+high)/2;
if(k==l.r[mid].key) return mid;
else if(k<l.r[mid].key) high=mid-1;//前半区查找
else low=mid+1;//后半区查找
}
retur(0);
}