delphi Pascal实现二分查找算法  
官方Delphi 学习QQ群: 682628230(三千人)
频道

delphi Pascal实现二分查找算法


Pascal实现二分查找算法 
二分查找又称折半查找,优点是比较次数少,查找速度快,平均性能好;其缺点是要求待查表为有序表,且插入删除困难。因此,折半查找方法适用于不经常变动而查找频繁的有序列表。首先,假设表中元素是按升序排列,将表中间位置记录的关键字与查找关键字比较,如果两者相等,则查找成功;否则利用中间位置记录将表分成前、后两个子表,如果中间位置记录的关键字大于查找关键字,则进一步查找前一子表,否则进一步查找后一子表。重复以上过程,直到找到满足条件的记录,使查找成功,或直到子表不存在为止,此时查找不成功。

program jjzx(input,output);
var 
    a:array[1..10] of integer;
    i,j,n,x:integer;
begin
    writeln('输入10个从小到大的数:');
    for i:=1 to 10 do read(a[i]);
        writeln('输入要查找的数:');
    readln(x);
    i:=1; n:=10; j:=trunc((i+n)/2);
    repeat
     if a[j]>x then
begin
  n:=j-1; j:=trunc((i+n)/2)
end
else if a[j]
begin
  i:=j+1; j:=trunc((j+n)/2)
end;
until (a[j]=x) or (i>=n) ;{为什么是这个结束循环条件}
if a[j]=x then
  writeln('查找成功!位置是:',j:3)
else
  writeln('查找失败,数组中无此元素!')
end.


推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.14330410957336 seconds