二分查找算法(预排序数组的查找) 实现 (DELPHI)

最新推荐文章于 2022-07-26 19:09:45 发布

转载最新推荐文章于 2022-07-26 19:09:45 发布 · 226 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/bsoom/archive/2011/08/26/2153942.html

文章标签：

#shell

二分查找可以解决（预排序数组的查找）问题：只要数组中包含T（即要查找的值），那么通过不断缩小包含T的范围，最终就可以找到它。一开始，范围覆盖整个数组。将数组的中间项与T进行比较，可以排除一半元素，范围缩小一半。就这样反复比较，反复缩小范围，最终就会在数组中找到T，或者确定原以为T所在的范围实际为空。对于包含N个元素的表，整个查找过程大约要经过log(2)N次比较。

相信大家都知道二分查找算法 , 通过重复的比较将数组元素缩小到最小范围,然后找到要查找的值 . 并且最大化优化了CPU时间 , 是一个很不错的算法.

测试结果 : 我用三个算法进行了测试 , 但是从输出的结果来看 , 二分查找非常有效和迅速.

实现代码如下 :

program Bs;

{$APPTYPE CONSOLE}

{/* Coded by HYrz 2011-8-25 18:32:25 */}

uses
  SysUtils ,
  Windows;

var
  arr1 : array[0..99999999] of Integer;

function bsearch(Value : Integer):Integer;
var
  i : Integer;
  c : Integer;
begin
  c := 0; // Coded by HYrz 2011-8-25 18:32:25
  i := High(arr1);
  while arr1[c] <> Value do
    begin
      i :=i div 2;
      if i=0 then Inc(i);
      if arr1[c] < Value then
       c :=c + i
       else
        c :=c - i
    end;
  Result := c;
end;

var
  i : Cardinal;
  t : Cardinal;
  s : Cardinal;
label
Trys ;
begin
Randomize;
s := Random(99999999);
  Trys:
for i :=0 to 99999999 do
  begin
    arr1[i] :=i;
  end;

  t := GetTickCount;
  i := bsearch(s);
  Writeln('Result 3: ' + IntToStr(i));
  t := GetTickCount -t;
  Writeln('执行经过时间 :' + IntToStr(t));
  Sleep(300);
  goto Trys;
  Readln;

end.

转载于:https://www.cnblogs.com/bsoom/archive/2011/08/26/2153942.html