Question

有十五个数按由大到小顺序存在一个数组之中,输入一个数,要求用折半查找法找出该数是数组中第几个元素的

Answer 1

只给函数行么 用P的 自己翻译下

function find(k:longint):longint;

var

left,right,mid:longint;

begin

left:=1;right:=n;

while leftright do

begin

mid:=(left+right) div 2;

if a[mid]>k then left:=mid+1 else right:=mid;

end;

exit(left);

end;