delphi 里的二分法查找

最新推荐文章于 2022-07-13 22:05:26 发布

原创最新推荐文章于 2022-07-13 22:05:26 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #Pascal #二分法查找顺序查询

delphi 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一种使用Delphi实现的二分查找算法。该算法首先初始化一个包含0到100的整数数组，然后根据用户输入的目标值进行查找。通过不断缩小搜索范围直至找到目标值或确定目标值不存在于数组中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button3Click(Sender: TObject);
var
a :array[0..100] of Integer;
chazhao :Integer;
l,h,m :Integer;
found :Boolean;

begin
chazhao :=StrToInt(Edit1.Text);
for i :=0 to 100 do
begin
    a[i] :=i;
end;

l :=Low(a);
h :=High(a);

while l<=h do
begin
    m := (l + h) div 2;
    if chazhao < a[m] then
    begin
      h :=m -1;
      found :=False;
    end else if chazhao > a[m] then
    begin
      l :=m+1 ;
      found :=False;
    end else if chazhao =a[m] then
    begin
      ShowMessage('found number !');
      found :=True;
      Break;
    end;
    Application.ProcessMessages;
end;
if not found then ShowMessage('not found number !');
end;