四、程序阅读(本大题共2小题,每小题5分,共10分)
阅读下列各题的程序,写出运行结果。
1.SET TALK OFF
A=‘ABCDEFGHIJKL’
K=1
DO WHILE K<12
?SUBSTR(A,12-K,2)
K=K+2
ENDDO
SET TALK ON
2.注:字符”A”的ASCII码为65。
SET TALK OFF
CLEAR
C="一二三四五六七八九十"
B="ABCD"
R=0
L=LEN(B)
FOR I=1 TO L
W=SUBSTR(B,I,1)
D=ASC(W)+R-65
S=""
IF D<10
S=SUBSTR(C,2*D+1,2)
ELSE
S=SUBSTR(C,2*MOD(D,10)+1,2)
ENDIF
?W+"----->"+S
R=R+11
ENDFOR
SET TALK ON五、程序填空题(本大题共2小题,每小题5分,共10分)
说明:阅读下列程序说明和程序,将程序代码缺少的内容填入_______中,每空1分(选择填空)。
1.本程序的功能是:从键盘输入N个无序数(N由键盘输入确定),去掉最大数和最小数,然后求平均值。
SET TALK OFF
CLEAR
INPUT“N=”TO N
INPUT“A=”TO A
STORE A TO X,Y
(1)
P=N-2
(2)
INPUT“B=”TO B
S=S+B
(3)
X=B
ENDIF
(4)
Y=B
ENDIF
ENDFOR
(5)
?R/P
SET TALK ON
(1)A.S=A B.S=0 C.S=N D.I=1
(2)A.FOR I=1 TO N B.FOR I=2 TO N
C.DO WHILE I<=N D.FOR I=1 TO A
(3)A.IF XB D.IF Y(4)A.IF XB D.IF Y(5)A.R=S B.R=S-A-B C.R=S-N-A D.R=S-X-Y
2.本程序的功能是:对数据库成绩.DBF(其中包含“学号”字段,并且以其为关键字建立了索引文件CJXH.IDX)中学号相同的一些重复记录进行删除。
SET TALK OFF
(6)
DO WHILE NOT EOF()
XH=学号
(7)
(8)
DELE
(9)
ENDDO
ENDDO
(10)
USE
SET TALK ON
(6)A.USE 成绩 B.USE 成绩 INDEX CJXH
C.USE CJXH D.SET INDEX TO CJXH
(7)A.LOCATE FOR 学号=XH B.SEEK 学号
C.SKIP D.FIND 学号
(8)A.DO WHILE NOT EOF() B.DO WHILE NOT BOF()
C.DO WHILE 学号=XH OR NOT EOF() D.DO WHILE 学号=XH AND NOT EOF()
(9)A.SKIP B.CONTINUE C.USE D.SET INDEX TO
(10)A.ZAP B.SET INDEX TO C.PACK D.RECALL
六、综合编程题(本大题共3小题,每小题7分,共21分)
1.求S=1+1/2!+1/3!+…+1/N!,其中N值从键盘输入。
2.编程输出2~1000之间的质数。
3.编程输出下列图形:
*
***
*****
*******
*********