
delphi中输入代码怎么写?
2个回答
展开全部
function TForm1.binarySearch(a: array of Integer;n:Integer): Integer;
var
istart, iend, middle: Integer; //定义数组开始下标 和结束下标 中间下标
begin
istart :=Low(a);
iend :=High(a);
while (istart<=iend) do
begin
middle:=Trunc((istart+iend)/2);
if a[middle]=n then //如果中间位置数为该数则返回该数位置,退出循环
begin
Result:=middle;
Exit;
end
else if a[middle]>n then iend:=middle-1 //中间位置数大于该数,则去掉后一子表 继续查询
else if a[middle]<n then istart:=middle+1; //中间位置数小于该数,则去掉前一子表 继续查询
end;
Result:=-1;
end;
procedure TForm1.buttonClick(Sender: TObject);
const
myarray:array[1..10] of Integer=(1,3,5,6,7,9,10,11,14,16);
begin
ShowMessage(IntToStr(binarySearch(myarray,14)));
end;
网上找的 你看看
2015-03-06
展开全部
没有明白你的意思
追问
我的意思是在Delphi里面二分查找的代码怎么写,求帮忙。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询