Question

delphi中输入代码怎么写?

Answer 1

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;

网上找的 你看看

Answer 2

没有明白你的意思

追问

我的意思是在Delphi里面二分查找的代码怎么写，求帮忙。