delphi中输入代码怎么写?

 我来答
火篱笆
2015-03-06 · TA获得超过1796个赞
知道大有可为答主
回答量:1797
采纳率:76%
帮助的人:901万
展开全部
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里面二分查找的代码怎么写,求帮忙。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式