二分法查找函数的PASCAL语言程序找错

[thesheep]

下面给出的二分查找函数中有一个错误，试用调试方法找出错误并给出排错后的程序？

Function BINARY(Key:integer;List:lists)
Var Y,Z:real;{下标}
begin
if (List[1] <=Key) and (Key <=List[N]) then
begin
Z:=N;
Y:=-N;
while(Y <-1) and (List[trunc(Z)] <>Key) do
begin
Y:=Y/Z;
if Key <= List[trunc(Z+Y)] then Z:=Z+Y;
end; {while}
BINARY :=trunc(Z)*ord(List[trunc(Z)]=Key); {0或1乘以trunc(Z)}
end {if-then}
end BINARY:=0 {不在表中}
end;{ BINARY}

[xuedaoli]

如果不清楚二分如何查找的话，可以看下它的实现原理。简单的说就是每次折半找
采用递归的形式查找。

注意下：二分查找只是适合有序的数组

当然递归函数自然有个终结的条件。可以注意在这个。
当然递归是比较难调的，自己记录慢慢调吧。

[BLUE__OCEAN]

3个变量；nLow,nHigh,nMid
nMid索引的数组值比较，不但的修改nHigh或者是nLow
if Array[nMid] > Array[nLow]:
nLow = nMid + 1
else if Array[nMid] < Array[nHigh]:
nHigh = nMid - 1
else:
nMid is correct