|
四、阅读下列各题的程序，写出运行结果(每小题5分，共10分)
1. SET TALK OFF
M=3
DO WHILE M＜10
N=2
DO WHILE N＜M
IF INT(M/N)=M/N
EXIT
ENDIF
N=N+1
ENDDO
IF N=M
?M
ENDIF
M=M+1
ENDDO
SET TALK ON
2.设输入的数值N为5。
SET TALK OFF
CLEAR
INPUT “N=” TO N
P=N
I=1
DO WHILE N＞0
?SPACE(I)
P=N+I
DO WHILE P＞0
??”*”
P=P-1
ENDDO
I=I+1
N=N-1
ENDDO
SET TALK ON
五、程序填空(每空2分，共20分)
说明：阅读下列程序说明和程序，将程序代码缺少的内容填入_______中。
1.本程序的功能是：计算下列算式的值。其中m、ai为正整数，从键盘输入。
其中Σai=1+2+……+ai， ai!=1×2×……×ai（i=1,2,……m）。
SET TALK OFF
CLEAR
INPUT “M=” TO M
STORE 0 TO S1,S2
FOR I=1 TO M
(1)_______
DO SUB1
DO SUB2
ENDFOR
?”所求算式的值为：” +ALLTRIM(STR(S1/S2，19，4))
SET TALK ON
PROC SUB1
(2)_______
FOR R=1 TO A
K=K+R
ENDFOR
(3)_______
RETURN
PROC SUB2
(4)_______
FOR P=1 TO A
T=T*P
ENDFOR
(5)_______
RETURN
2.本程序的功能是：对数据库成绩.DBF(其中包含“学号”字段，并且以其为关键字建立了索引文件 CJXH.IDX)中学号相同的一些重复记录进行删除。
SET TALK OFF
(6)_______
DO WHILE NOT EOF()
XH=学号
(7)_______
DO WHILE (8)_______
DELE
(9)_______
ENDDO
ENDDO
(10)_______
USE
SET TALK ON六、综合编程题(第1小题9分，第2小题12分，共21分)
1.从键盘输入20个数，去掉最大值和最小值，求平均值。
2.打印矩形方阵。(对角线元素为1，非对角线元素为0)。
1 0 0 0
0 1 0 0
0 0 1 0
0 0 0 1
|
考试问吧
