小学生计算机程序设计竞赛决赛试题

小学生计算机程序设计竞赛决赛试题
（改编为PASCAL 语言）
说明：请将答案填在答题卡上，只交答题卡，时间 9：00—11：00 一、选择题（每题1分，共5分） 1、在PC 机中，pentium 指（ ）
A 、生产厂家名称
B 、硬盘型号
C 、CPU 的型号
D 、显示器的型号 2、运行程序最小化后，该程序处于（ ）状态。

A 、后台运行
B 、挂起状态
C 、前台运行
D 、不改变运行状态 3、Windows 操作的特点是（ ）
A 、同时选择操作项和操作对象
B 、先选择操作项，后选择操作对象
C 、将操作对象拖到操作项处
D 、先选择操作对象，后选择操作项 4、在计算机中，ASC11码是（ ）位二进制代码 A.8 B. 7 C ． 12 D ． 16 5、E-MAIL 邮件本质上一个（ ）
A 、电报
B 、文件
C 、电话
D 、传真 二、填空题（每空2分，共10分） 1、运算18 mod 4= (1)
2、2KB 的内存能存储 (2) 个汉字的机内码。

3、式子3
2
2)12(b x x b -+--的pascal 表达式是 (3)
4、公安局拘留审查了四个有盗窃嫌凝的人：甲、乙、丙、丁。

已知其中一人是罪犯，在警察审讯他们时，他们每人都说了两句话：
甲说：“乙没有偷，是丁偷的”；乙说：“我没有偷，是丁偷的”； 丙说：“甲没有偷，是乙偷的”；丁说：“我没有偷”。

事实表明，他们的话不是全对，就是全错，真正的罪犯是 (4) 。

5、二进制数11010转化为五进制数对应的值是 (5) 。

三、写出下列程序的运行结果（共40分，每题5分）
1、编程求95、45、25,15四个数的最大公约数。

程序如下：
var x1,n,I,x2,r,gcd:integer;
begin
READ(X1);N:=4;
FOR I:=1 TO N-1 do begin
Read(X2);
R:=X1 MOD X2;
WHILE R<>0 do begin
X1:= (1) ;
X2:= (2) ;
R:=X1 MOD X2;
End;
GCD:=X2;
IF (3) THEN break;
End;
Writeln(‘GCD=’,GCD);
输入：95 45 25 15
END
2、我们将左右对称的自然数称为回文数，例如：121，4114等；
将只能被1与其本身整除的自然数称之为素数，例如：7，353等。

输入N，M，求出N至M（含N与M）之间既是回文数又是素数的自然数共有多少个？
程序如下：
var n,m,I,j,q,s,k,t:integer;
a:array[1..100]of integer;
begin
write(‘N,M=’);readln(N,M);
S:=0;
FOR I:=N TO M do
Begin
Q:=0;J:=0;T:=I;
Repeat
J:=J+1;A[J]=T MOD 10;
T:= (4) ;
UNTIL T=0;
FOR K:=1 TO trunc(J div 2) do
IF (5) THEN Q:=1;
IF Q=0 THEN
FOR K:=2 TO I-1 do
IF (6) THEN Q:=1;
IF I=1 THEN Q:=1;
IF (7) THEN S:=S+1;
End; {for I}
Writeln(S);
END.
3、有六个箱子货物，重量分别是5吨、2吨、3.5吨、1.7吨、1吨、5.1吨。

现有一台货车，载重量10吨，设计一个程序，使一次车运走的货物最多。

程序如下：
var d:array[1..6] of real;
I, k:integer;
s,m:real;
Begin
FOR I:=1 TO 6 do
Begin
READ(D[I]);
End;
M:=0;
FOR I:=1 TO 6 do
Begin
S:= (8) ;
FOR K:=1 TO 6 do
IF (9) THEN
Begin
S:=S+D(K);
IF S>10 THEN (10) ;
end;
IF (11) THEN M:=S;
End;
Writeln(‘S=’,m:0:2);
End.
输入：5 2 3.5 1.7 1 5.1
输出：9.800
4、从键盘读入一个三位数，对其各位数字的3次方求和，然后再对这个和中各位数字的3次方求和，如此一直继续下去，判断最后能否得到一个固定值。

如能得到一个固定值则列出这个三位数经过上述运算后达到固定值的过程；如不能，请输出提示信息。

输入输出格式如下：
N＝111
输出：
1 × 1×1 + 1×1×1 + 1×1×1=3
0×0×0 + 0×0×0 + 3×3×3=27
0×0×0 + 2×2×2 + 7×7×7=351
3×3×3 + 5×5×5 + 1×1×1=153
1×1×1 + 5×5×5 + 3×3×3=153
程序如下：
var a:array[1..20]of integer;
b:array[1..10]of integer;
bj,n,k,t,I,j,w,s:integer;
begin
write(‘INPUT N=’);readln(n);
BJ:=0;A[1]:=N; K:=1;
Repeat
K:=K+1; W:=0;
J:=0; T:=N;
Repeat
J:=J+1;
B[J]:=T MOD 10;
T:=T div 10;
UNTIL T=0;
S:=0;
FOR I:= (12) do ;
Begin
S:=S+B[I]*B[I]*B[I];
Write(B[i],’×’,B[I];’×’,B[I]);
IF I=J THEN write(‘=’,S) ELSE write(‘+’);
End;
(13)
FOR I=1 TO K-1 do
IF A[I]=S THEN W:=I;
Writeln;
IF (14) THEN
Begin Writeln( ‘CAN NOT!’); halt;end;
IF W=K-1 THEN
Begin writeln(‘STEP=’,K-1);BJ:=1;halt; end;
(15)
UNTIL BJ=1;
END.
试题答题卡
镇区学校姓名年级辅导老师
试室座位号
------------○-------○--------○----------封装线----------○-----------○----------○---------------- 评卷者统分人总分
一、选择题（每题1分，共5分）
(1) (2) (3) (4) (5)
二、填空题（每空2分，共10分）
(1) (2) (3)
(4) (5)
三、写出下列程序的运行结果（共40分，每题5分）
1. 2. 3. 4.
5. 6.
7. 8.
四、程序填空（每空3分，共45分）
(1) (2)
(3) (4)
(5) (6)
(7) (8)
(9) (10)
(11) (12)
(13) (14)
(15)
试题参考答案
一、选择题（每题1分，共5分）
(1) C (2) A (3) D (4) A (5) B
二、填空题（每空2分，共10分）
(1) 2 (2) 1024 (3) （-b-(x*x-2*x-1)）/(2*b*b*b) (4) 乙(5) 101
三、写出下列程序的运行结果（共40分，每题5分）
(1) 7 (2) S=25 (3) (5,1) (4,2) (3,3) (2,4) (1,5) （4）S=-19 (5) 4^3=13+15+17+19=64 (6) 3 1 5 2 4
(7) 10->5->16->8->4->2->1 (8) 1: he 2:come 3: from 4:guandong 4.50
四、程序填空（每空3分，共45分）
(1) X2 (2) R
(3) GCD=1 (4) T:=T div 10
(5) A[K]<>A[J-K+1] (6) I MOD K=0 ( I-trunc(I/K)*K=0 ) (7) Q=0 (8) S:=D[I]
(9) I<>K (10) S:=S-D[K]
(11) S>M (12) 1 TO J
(13) A[K]:=S ; (14) (W<>K-1) AND (W<>0) (15) N:=S;。