1998年北京市青少年计算机程序设计竞赛
丰台区小学组初赛试题

1. 键盘输入N（2〈=N〈=9 )，打印出下面的数字图形。
(1) (2)
例：Ｎ＝４　　　　　　　　　　　　Ｎ＝４
1 2 3 4 1
8 7 6 5 2 2 2
9 10 11 12 3 3 3 3 3
16 15 14 13 4 4 4 4 4 4 4
3 3 3 3 3
2 2 2
1
(1)
CLS
10 INPUT "N="; n: IF n < 2 OR n > 9 OR n <> n \ 1 THEN 10
DIM a(n, n): k = 0
FOR y = 1 TO n
FOR x = 1 TO n
k = k + 1
IF y / 2 <> y \ 2 THEN a(y, x) = k ELSE a(y, n + 1 - x) = k
NEXT x, y
FOR I = 1 TO n
FOR J = 1 TO n
PRINT TAB(5 * J); a(I, J);
NEXT J, I
END
(2)
CLS
10 INPUT "N="; n
IF n < 2 OR n > 9 THEN 10
FOR I = 1 TO 2 * n - 1
A = I: IF I > n THEN A = 2 * n - I
PRINT TAB(40 - A);
FOR J = 1 TO A * 2 - 1
PRINT CHR$(48 + A);
NEXT J, I
END

2 编程求各位数字之和等于12的三位数。
CLS
FOR a = 1 TO 9
FOR b = 0 TO 9
FOR c = 0 TO 9
IF a + b + c = 12 THEN PRINT 100 * a + 10 * b + c; : S = S + 1
NEXT c, b, a
PRINT : PRINT "S="; S
END

3. 随机产生长度1- 3 位的两个自然数，在屏幕上做竖式乘法。
例：随机产生了两个数分别为：18 、35
屏幕显示： 18
* 35
————
90
54
——————
630
CLS
RANDOMIZE
a = INT(RND * 999 + 1): k = 0: x = a: GOSUB 100
b = INT(RND * 999 + 1): k = 0: x = b
PRINT TAB(33); "*"; : GOSUB 100
PRINT TAB(31); "------------"
y = b: k = 0: IF b < 10 THEN 20
10 q = y MOD 10: y = y \ 10: x = a * q
IF x > 0 THEN GOSUB 100
IF y > 0 THEN k = k + 1: GOTO 10
PRINT TAB(31); "------------"
20 x = a * b: k = 0: GOSUB 100
END
100 x$ = STR$(x): L = LEN(x$)
PRINT TAB(40 - L - k); x$
RETURN

4.逻辑判断：
小东、小兰、小英读书的学校是一中、二中、三中，他们各自的爱好游泳、篮球、排球中的一项体育运动。但究竟谁爱哪一项运动，在哪个学校读书还不清楚。只知道：
（1）小东不在一中； （2）小兰不在二中；
（3）爱好排球的不在二中； （4）爱好游泳的在一中；
（5）爱好游泳的不是小兰；
试编程说出各自的读书的学校和爱好的运动。
CLS
DIM n$(3), x$(3), y$(3)
FOR I = 1 TO 3
READ n$(I), x$(I), y$(I): n$(I) = "Xiao " + n$(I)
NEXT I
DATA Dong,1 zhong,youyong,Lan,2 zhong,lanqiu,Ying,3 zhong,paiqiu
FOR a = 1 TO 3: a(1) = a
FOR b = 1 TO 3: a(2) = b
c = 6 - a - b: a(3) = c
IF a * b * c <> 6 THEN 20
FOR x = 1 TO 3: b(1) = x
FOR y = 1 TO 3: b(2) = y
z = 6 - x - y: b(3) = z
IF x * y * z <> 6 THEN 10
IF a = 1 OR b = 2 OR y = 1 THEN 10
IF a = 2 AND x = 3 OR c = 2 AND z = 3 THEN 10
IF a <> 1 AND x = 1 OR c <> 1 AND z = 1 THEN 10
FOR I = 1 TO 3
PRINT n$(I); "-- "; x$(a(I)); "-- "; y$(b(I))
NEXT I
10 NEXT y, x
20 NEXT b, a
END

5. 某书的页码从1开始，小朋友算了算总共出现了202个数字1，问这本书一共有多少页。
CLS
10 X = X + 1: Y = X
20 P = Y MOD 10: Y = Y \ 10
IF P = 1 THEN S = S + 1
IF Y > 0 THEN 20
IF S < 202 THEN 10
PRINT X
END

6. 从键盘输入两个数N1、N2，求N1/N2是否为循环小数，如果是循环小数，请打印出他们的循环节。
例如：N1=13
N2=7
N1/N2=1.857142857142
循环节：857142
CLS
10 INPUT "N1="; a: IF a < 0 OR a <> a \ 1 THEN 10
20 INPUT "N2="; b: IF b < 0 OR b <> b \ 1 THEN 20
DIM a(b), b(b): k = 0
PRINT a; "/"; b; "=";
30 k = k + 1: a(k) = a \ b: b(k) = a MOD b
PRINT CHR$(48 + a(k));
IF k = 1 THEN PRINT ".";
FOR i = 1 TO k - 1
IF b(k) = b(i) THEN 40
NEXT i
a = b(k) * 10
IF a > 0 THEN 30 ELSE PRINT "---NO!": END
40 FOR p = i + 1 TO k
PRINT CHR$(48 + a(p));
y$ = y$ + CHR$(48 + a(p))
NEXT p
PRINT
PRINT "xunhuanjie:"; y$
END