中科新闻网热血沙巴克安卓版:下面给出的二分查找函数中有一个错误，试用调试方法找出错误并给出排错后的程序？
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 18:38:04
2、下面给出的二分查找函数中有一个错误，试用调试方法找出错误并给出排错后的程序。
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}
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}
你说的是脚本调试器，可在INTERNET选项--高级中将禁止脚本调试选中。
或者在添加删除程序中找WINDOWS组件中JS调试器关闭。