西店中学计算机信息学竞赛测试试卷、答题卷和答案(一).doc
《西店中学计算机信息学竞赛测试试卷、答题卷和答案(一).doc》由会员分享，可在线阅读，更多相关《西店中学计算机信息学竞赛测试试卷、答题卷和答案(一).doc（13页珍藏版）》请在冰豆网上搜索。
西店中学计算机信息学竞赛测试卷
（一）
班级：
姓名：
得分：
一、基础题（13X2+4+4=34分）
1、与二进制数101.01011等值的十六进制数为（）
A）A.B B）5.51 C）A.51 D）5.58
2、下面四个不同进制的数，最小的一个数是（）。
（A）（11011001）2（B）（75）10（C）（37）8（D）（A7）16
3、运算式（2008）10－（3723）8的结果是（）。
A、（-1715）10B、（5）10C、（-5）16D、（111）2E、（3263）8
4、（2004）10+（32）16的结果是（）。
A.（2036）10B.（2054）16 C.（4006）10D.（100000000110）2E.（2036）16
5、小张用十六进制、八进制和十进制写了如下一个等式：
52-19=33
式中三个数是各不相同进位制的数，试问52、19、33，分别为（）.
（A）八进制，十进制，十六进制（B）十进制，十六进制，八进制
（C）八进制，十六进制，十进制（D）十进制，八进制，十六进制
6、在Pascal语言中，判断a不等于0且b不等于0的正确的条件表达式是（）
A.nota=0ornotb=0B.not（（a=0）and（b=0））
C.not（a=0andb=0）D.（a<>0）and（b<>0）
7、表达式round（sqr（11/3））>sqr（11div3）的值是：
（）
A、T B、F C、FALSED、TRUE
8、下列中错误的PASCAL表达式是
A、10e6*3.7B、17DIV3C、18DIV3*4.0D、4.018DIV3
9、设a=6，b=3，c=42.15，d=-8，则表达式（a*trunc（c）－b）modsucc（d）的值为：
（）
A、12B、-4C、7D、4
10、表达式sqrt（abs（－100）*sqr（round（4.2）））的值是：
（）
A、30B、40 C、30.0 D、40.0
11、表达式（4MOD（-3））与（-4MOD3）的值为：
。
（A）-1，-1（B）1，-1（C）-1，1（D）1，1
12、下列IF语句中，ENDIF表示相应IF的结束：
y=0
ifx<0
thenY=5
elseifx<10
theny=10
ifx<100
theny=100
endif
elsey=200
endif
endif
试指出：
当X=80时，运行的结果是______；
当X=5时，运行结果为_________。
（A）Y=9（B）Y=5（C）Y=10（D）Y=100（E）Y=200
13、判别闰年的条件（年份能被4整除，并且不能被100整除；或者能被400整除的整数年份）：
14、任给自然数n，k，1≤K≤9，按如下计算步骤求序列XJXJ-1……X0的步骤：
{8%}
（1）j=0
（2）如果N>=K则转第3步，否则转第7步
（3）Xj=NMODK{div表示整数除法，结果取整数；
（4）N=NDIVKmod表示整除取余数}
（5）j=j+1
（6）回第2步
（7）Xj=N
（8）结束
试求当：
N=1998，K=3时，XJXJ-1……X0之值为。
二、问题求解（5+5+5+7=22分）
15、已知:
1到10中有两个数1、7不能被2，3，5整除，那么1到1000中有多少个数不能被2，3，5整除？
16、某班有50名学生，每位学生发一张调查卡，上写a，b，c三本书的书名，将读过的书打ü，结果统计数字如下：
只读a者8人；只读b者4人；只读c者3人；全部读过的有2人；读过a，b两本书的有4人；读过a，c两本书的有2人；读过b，c两本书的有3人；
（1）读过a的人数是
（2）一本书也没有读过的人数是
17、根据Nocomachns定理，任何一个正整数n的立方一定可以表示成n个连续的奇数的和。
例如：
13＝1
23＝3＋5
33＝7＋9＋11
43=13+15+17+19
在这里，若将每一个式中的最小奇数称为X，那么当给出n之后，请写出X与n之间的关系表达式：
18、一百个人排成一队，从头到尾报数，报奇数者出列，剩下的人再从头到尾报数，报奇数者仍然出列。
试问这样下去留在队列中的那个人，第一次报数时是多少号？
并用最简洁的语言表达你求解的思路。
那人的第一次报数号是：
_________
分析过程：
（用简单的语言描述分析过程）
三、程序阅读，写出程序运行结果（24分，每题6分）
19、programex19;
vara,b,n:
longint;
begin
readln（n）;a:
=0;b:
=0;
repeat
a:
=a+1;b:
=b+a;
untilb>=n;
writeln（a）;
end.
输入:
20100输出：
20、Programex20（input,output）；
Vara,n,s:
integer；
begin
a:
=1；n:
=2；s:
=0；
whiles<10do
begin
a:
=a*n;s:
=s+a;
end;
writeln（s:
5,a:
5,n:
5）;
end.
输出结果为：
21、Programex21;
Var
i:
integer;
a:
array[1..20]ofinteger;
begin
a[1]:
=1;
a[2]:
=2;
fori:
=3to20do
a[i]:
=a[i-2]*a[i-1];
write（a[6]/a[5]）;
end.
输出结果为：
22、programex22；
VARX，Y1，Y2，Y3：
INTEGER；
BEGIN
READLN（X）；Y1：
=0；Y2：
=1；Y3：
=1；
WHILEY2<=XDO
BEGIN
Y1:
=Y1+1;
Y3:
=Y3+2;
Y2:
=Y2+Y3;
END；
WRITELN（Y1）；
END.
输入：
23420 输出结果为：
四、完善程序（45分，每空3分）
23、读入10个数，计算它们的和、积、平均值。
Programb2（input,output）；
Var
x,s,m,a:
real；
i:
integer；
Begin
s:
=0；
（1）；
Fori:
=1to10do
begin
read（x）；
s:
=
（2）；
m:
=（3）；
end;{For}
a:
=（4）；
writeln（‘sum=’,s,’mul=’,m,’ave=’,a）；
End.
24、计算两个正整数m和n的最大公约数，请将下列程序补充完整。
Programeb4（input，output）；
Var
m,n,r:
integer;
begin
write（‘inputm,n=’）;
readln（
（1））;
repeat
r:
=
（2）;
m:
=n;
n:
=r;
until（3）;
writeln（‘Thegreatestcommondivideis’,m）;
end.
25、输入50个正整数,把这十个数按由小到大的顺序排列，并以每行5个输出。
programex5_2;
var
a:
array[1..10]ofinteger;
i,j,t:
integer;
begin
writeln（'Input10integers:
'）;
fori:
=1to10doread（a[i]）;
readln;
fori:
=1to9do
begin
forj:
=
（1）to10do
if
（2）then
begin
t:
=a[i];
（3）;
a[j]:
=t;
end;
end;
fori:
=1to10do
begin
write（a[i]:
5）;
if（4）thenwriteln;
end;
end.
26、问题描述：
用筛选法求100以内的素数（质数）
Programlx53
Var
a:
array[1..100]of
升级会员 