不是VIP会员,不能显示答案

题目解答

题目:
program test4;
var i,x1:integer;
a:array[1..8] of integer;
procedure pro (x,left rignt:integer);
var mid integer;
begin
mid:=trunc(left+right)/2);
if a[mid]=x then begin writeln(mid);halt;end;
if ((x<a[mid]) and (left>mid-1)) or ((x>a[mid] )and (mid+1>rignt))then
begin 5
writeln( ‘not find ’);halt;end;
if x<a[mid]then pro(x,left,mid-1) else pro(x,mid+1,right);
end;
begin
readln(x1);
for i:=1 to 8 do read(a[i]);
pro(x1,1,8);
end.
输入 1:
10
1 4 6 9 10 11 12 32
输入 2:
13
1 4 6 9 10 11 12 32
输出:5|not found
考点:
分析:
解答:
评论:
老师: