1、信息学竞赛普及组初赛模拟试题(三) 一、选择一个正确答案代码（A/B/C/D） ，填入每题的括号内（每题 1.5 分，多选无分，共 30 分）1、MAN 英文缩写的含义是（ ）A.局域网 B.城域网 C.广域网 D.增值网2、小张用十六进制，八进制和十进制写了如下一个等式：6413=33式中三个数是各不相同进位制的数，试问 64，13，33，分别为_。A八进制，十进制，十六进制 B十进制，十六进制，八进制C八进制，十六进制，十进制 D十进制，八进制，十六进制3、表达式(4 MOD (3)与(4 MOD 3)的值为：_。A1，1 B1，1 C1，1 D1，14、试指出：下列 if 语句中，当 x
2、=80 时, 运行的结果为_。beginy:=0;readln(x);if xrj) and (j0) dobegin rj+1:=rj;j:=j-1;end;rj+1:=k;end;for I:=1 to n dowrite(rI,);writelnend.键盘输入: 8 4 9 3 5屏幕输出：program exp2;var a,b,f:integer;function gd(m,n:integer):integer;beginif n=0 then gd:=melse gd:=gd(n,m mod n);end;beginreadln(a,b);write(,a,b,)=);f:=gd
3、(a,b);writeln(f)end.键盘输入: 172 16屏幕输出：3、Program exp3(input,output); VAR I,J,S:INTEGER;B :ARRAY05 OF INTEGER;BEGINS:=1;FOR I:=1 TO 5 DO BI:=I;J:=1;WHILE J0 DOBEGINJ:=5;WHILE (J0) AND (BJ=10+J-5) DO J:=J-1;IF J0 THENBEGINS:=S+1; BJ:=BJ+1;FOR i:=J+1 TO 5 DO Bi:=BJ+i-JEND;END;WRITELN(S=,S);END.4、program
4、exp4(input,output);var m,n,g:integer;function gcd(m,n:integer):integer;beginif n=0 then gcd:=melse gcd:=gcd(n,m mod n)end;beginread(m,n);g:=gcd(m,n);writeln(m=,m,n=,n,gcd=,g)end.输入：48 9输出：三、问题解答（第 1 题每空 4 分，第 2 题 8 分）1、数据结构中，下面是一个树结构图，这个树的“先序遍历“ 结果是_，中序遍历结果是：_。24 8 +3 *4 10 7 -*/2、给出一个后缀算术表达式为写出对应的中
5、缀算术表达式：_四、完善程序（第一题每空 3 分，第二题每空 2 分，第三题每空 4 分，共 32 分 ）1、连续整数平台问题已知一个含有多个整数的数组，其中相同的元素集中在一起形成一个平台。以下程序用于对输入的数组求出其中最大平台长度。例如，中元素个数为 20，它们依次为2 2 2 2 3 3 3 3 3 1 1 1 1 1 1 1 1 1 4 4则它的最大平台长度为 9。const maxlength=100;vara:array1maxlength of integer;i,maxi,n,s,t:integer;beginwrite(n=);readln(n);for i:=1 to n
6、 do read(ai);readln;maxi:=0;t:= 1 s:=1;for i:=2 to n doif ai=t then 2 elsebeginif smaxi then maxi:=s;t:=ai;3 end;4 writeln(maxi=,maxi);end.2、1000！尾 0 问题以下程序用于统计 1000！末尾有多少个 0。其中 1000！=1231000。实际上我们只要统计 1000！有多少个因子 10。由于 10=52，因而只需统计有多少个因子 5 和 2。显然在 11000 的所有数中，5 的因子个数比 2 的因子个数少。因此，只要统计 11000 的所有数中共有
7、多少个因子 5 就行了。var i,j,n:integer;beginn:=0;for i:=1 to 200 dobeginj:=i*5;while 5 =0 dobeginn:=n+1;j:= 6 end;end;writeln(n:4);end.3、问题描述找数问题: 以下程序用在 n 个不同元素中找出第 k 个最小元素。程序中用分治策略来设计算法。把这 n 个元素放在一个数组中,然后取出第 k 个元素为标准 m,把 n 个元素重新排列: 小于标准 m 的元素放在数组前面,大于该标准的放在数组的后面。把该元素 m 放在两者之间。设小于标准的元素个数为 j-1,如果 j=k,则 A(k)即
8、为所求元素。如果 jk,则第 k 个元素必在区间1,j,因此取 A1,Aj为新的元素集合,然后重复上述的”部分排序” 的过程。如果 j=j;If I=k then exit;If 9 then search(b,j) else search(j+1,e)End;procedure 10 var I:integer;beginfor I:=1 to n do write(aI,);writeln;writeln(a,k,=,ak);end;beginwrite(n=);readln(n);write(a1,n,=);for k:=1 to n do read(ak);readln;write(k=);readln(k);search( 11 ;pr(n);readlnend.
