c

来自「喜欢数学建模的朋友可以看看哦！！这里面的算法还是比较先进的！」· 代码 · 共 11 行

function Binary_Search(L,a,b,x);
begin
  if a>b then return(-1)
            else begin
                   m:=(a+b) div 2;
                   if x=L[m] then return(m)
                             else if x>L[m] 
                                    then return(Binary_Search(L,m+1,b,x));
                                    else return(Binary_Search(L,a,m-1,x));
                  end; 
end;