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]<x then
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.
Delphi Pascal实现二分查找算法

相关推荐

评论
