2012年水集办事处小学程序设计竞赛试题

2012年水集办事处小学程序设计竞赛试题

说明：请将答案填在答题卡上，只交答题卡，时间 9：00—10：30

一、选择题（每题1分，共5分）

1、WINDOWS是一种（ ）．

A．字处理系统 B．操作系统 C．数据库系统 D．图文处理系统

2、计算机存储器的存储容量单位KB和MB的关系是

A、1MB=1000KB B、1MB=100KB C、1MB=1024KB D、1MB=2048KB

3、下列哪个文件是文本文件

A、ABC.TXT B、http://wendang.chazidian.com C、ABC.EXE D、ABC.XLS

4、计算机要处理磁盘上的文件时，应将文件内容读到 中。

A、CPU B、硬盘 C、内存储器 D、控制器

5、在WINDOWS系统中，目录结构采用 结构。

A、网状结构 B、星形结构 C、环形结构 D、树形结构

二、填空题（第1至3每题2分，第4题4分，共10分）

1、在计算机中，一个汉字占 个字节的位置。

2、十进制数21对应的二进制数为 。

3、从0，1，2，3四个数中任取两个数字构成一个两位数（0不能放在开头），共可构成 个不同的两位数。

4、有红、黄、黑、白四色球各一个，放置在一个内存编号为1、2、3、4四个格子的盒中，每个格子放置一只球，它们的顺序不知。甲、乙、丙三人猜测放置顺序如下：

甲：黑编号1，黄编号2；

乙：黑编号2，白编号3；

丙：红编号2，白编号4 。

结果证明甲乙丙三人各猜中了一半。

写出四色球在盒子中放置情况。

三、写出下列程序的运行结果（共40分，每题5分）

1. T=0: A=0 2. S=0

DO WHILE A<20 FOR I=1 TO 8

A=A+1 READ A(I)

T=T+A IF ((A(I)>0) AND (A(I) MOD 2=1) THEN

LOOP S=S+A(I)

PRINT "T=";T ENDIF

END NEXT I

PRINT "S=";S

DATA 21,20,-30,-15,13,24,10,-5

END

X1=3

X2=8

FOR I=1 TO 5

X=(X1+X2)*2

X1=X2

X2=X

NEXT I

PRINT "X=";x

END

3. X=15 4.

DO

R=X MOD 2

PRINT R;

X=INT(X/2)

LOOP UNTIL X=0

END

5. DIM A(11) 6. S=0

A(1)=1: A(2)=1 FOR K=1 TO 4

FOR K=2 TO 10 J=1

A(K+1)=1 FOR H=1 TO K

FOR I=K TO 2 STEP –1 J=J*H

A(I)=A(I)+A(I-1) NEXT H

NEXT I S=S+J

NEXT K NEXT K

FOR K=1 TO 10 PRINT "S=";S

PRINT A(K), END

NEXT K

END

7. FOR I=1 TO 10 8. N=15

READ A(I) K=0

NEXT I DO

MAX=A(1):S=A(1) K=K+1

FOR I=2 TO 10 N=N-K

IF S<0 THEN S=0 LOOP UNTIL N<=0

S=S+A(I) IF K MOD 2=0 THEN

IF S>MAX THEN MAX=S PRINT K-N;"/";1+N

NEXT I ELSE

PRINT”MAX=”;MAX PRINT 1+N;"/";K-N

DATA -2 ,13 ,-1,4,7,8,-1,-18,24,6 ENDIF

END END

四、程序填空（每空3分，共45分）

1. 从键盘输入15个整数，要求统计出其中正数的个数，并将这15个整数从小到大排序，输出排序后的结果。

[程序清单如下：]

VAR A：ARRAY[1..15] OF INTEGER；

BEGIN

S：=0；

FOR K：=1 TO 15 DO

BEGIN

READ（A[K]）；

IF (1) THEN S：=S+1；

END；

FOR K：=1 TO 14 DO

FOR J：=K+1 TO 15 DO

IF (2) THEN BEGIN TEMP：=A[K]；A[K]：=A[J]；A[J]：=TEMP；END； FOR K：=1 TO 15 DO WRITE（A[K]）；

END.

2. 求出1000以内的整数，使其数字之和为13，每行输出8个数。

算法说明：1000以内符合条件的数既有二位数，也有三位数，采用构造法来造出满足条件的二位数和三位数，程序中当I=0时，造出的数是二位数。

[程序清单如下：]

S=0

FOR I=0 TO 9

FOR J=0 TO 9

K= (3)

IF (K>=0) AND (K<10) THEN

PRINT I*100+J*10+K;

S=S+1

IF (4) THEN PRINT

ENDIF

NEXT J

NEXT I

PRINT

END

3. 输入一个正整数，然后与它倒过来的数相加。

例如：输入328，与它倒过来的数相加后的结果为：

328+823=1151

[程序清单]

5 DIM A（10）

10 INPUT X

15 X1=X

20 J=10

30 IF X=0 THEN 70

40 J=J-1

50 A（J）=X MOD 10

55 (5)

60 GOTO 30

70 Y=0

80 FOR I= 10 TO J STEP -1

90 Y=Y*10+A（I）

100 NEXT I

110 X= (6)

120 PRINT X

130 END

4．下面是一个求：1/1+1/2+2/3+3/5+5/8+8/13+13/21+21/34……前20项之和的程序段，试将程序补充完整：

10 S=0 ：A=1 ：B=1

20 FOR K=1 TO 10

30 S= S+A/B

40 A= (7)

50 S= (8)

60 B= B+A

70 NEXT K

80 PRINT S

5、验证哥德巴赫猜想：任一大于4的偶数，都可以分解为两个素数之和。例如： 8=3+5 14=7+7 20=3+17

现在从键盘输入一个大于4的偶数N，输出其中一种分解式（因为分解式可能有多种，只输出其中一种即可）。

分析：首先在1至N之间找出一个素数A，然后判断N-A是否也为素数，如果也是素数，则输出分解式为N=A+（N-A），否则，继续找下一个素数A。

INPUT "N=";N

A=2

DO

A=A+1

B=N-A

P=1

FOR J=2 TO A-1

IF (9) THEN P=0

NEXT J

Q= (10)

FOR J=2 TO B-1

IF B MOD J=0 THEN Q=0

NEXT J

LOOP UNTIL (P=1) AND (Q=1)

PRINT N;"=";A;"+";B

END

6．求出1至N（10<N<10000）之间，不能被2,3,5,7除尽的整数的个数。

[算法描述] 定义一个数组A，其中A（I）存放I，然后进行筛选：将凡是能被2，3，5，7除尽的数，全部变为0，最后统计出剩下的不为0的数，即为所求。

[程序] 10 INPUT "N=";N

20 DIM A(N)

31 FOR I=1 TO N

40 (11)

50 NEXT I

60 FOR I=1 TO N

70 IF (A(I) MOD 2=0) OR (A(I) MOD 3=0) OR

(A(I) MOD 5=0) OR (A(I) MOD 7=0)

THEN A(I)=0

80 NEXT I

90 (12)

100 FOR I=1 TO N

110 IF A(I)<>0 THEN S=S+1

120 NEXT I

130 PRINT "S=";S

140 END

7. [问题描述]：下面程序的功能是从键盘读取A，B数组的元素，A，B数组均已从小到大排好序（无相同元素），现将A，B合并为数组C，同样要求数组C也是从小到大排好序（有相同元素时只保留一个）。

程序中N表示数组A，B的长度，i，j，k分别表示数组A，B，C的取数或存数的指针。

[程序清单]：

10 n=8: m=2* n

20 DIM a(n),b(n),c(m)

30 FOR i=1 TO n

40 INPUT a(i)

50 NEXT i

60 FOR j=1 TO n

70 INPUT b(j)

80 NEXT j

85 i=1: (13) : K=0

90 IF (J>N) OR (I>N) THEN 150

100 IF a（i）>=b(j) THEN 125

110 k=k+1:c(k)=a(i):i=i+1

120 GOTO 140

125 if a(i)=b(j) THEN 135

130 k=k+1:c(k)=b(j):J=j+1

132 GOTO 140

135 k=k+1:c(k)=a(i):i=i+1: (14)

140 GOTO 90

150 IF I>N THEN 180

160 k=k+1：c（k）=a（i）：i=i+1

170 GOTO 150

180 IF (15) THEN 210

190 k=k+1

195 c（k）=b（j）

200 j=j+1

205 GOTO 180