2,5,7,10,14,15,18,23,35,41,52 二分法 找12

来源:百度知道 编辑:UC知道 时间:2024/09/22 20:30:00

program erfenfa;
type zu=array[0..20000] of longint;
var a,b:zu;
i,k:longint;
procedure erfen(c,d:longint);
var x:longint;
begin
if c=d-1 then begin k:=c;exit; end;
x:=(c+d) div 2;
if a[x]>b[i] then erfen(c,x)
else erfen(x,d);
end;

begin
readln(a[0]);
for i:=1 to a[0] do
read(a[i]);
readln(b[0]);
for i:=1 to b[0] do
read(b[i]);
for i:=1 to b[0] do
begin
erfen(1,a[0]);
if a[k]=b[i] then writeln('YES')
else writeln('NO');
end;
end.

先输入多少个数,
逐个输入
再输入要找几个数,
逐个输入

按顺序可输出是否在其中

如果是要结构图,那你自己归纳一下吧

编程的?用什么语言写?

用专用数学软件大概可以