DO JC WITH A1,I DO MC WITH A2,I S=S+A2/A1 ENDFOR ___2___
PROC JC PARA P,R P=1
FOR J=1 TO R P=P*J ENDFOR
PROC MC ___3___ P=1
FOR J=1 TO R P=P*X ENDFOR
第六题答案:
1.、答案一:FOR I=1 TO 100
答案二:FOR I=1 TO 100 STEP 1 2、 答案一:?\ 答案二:??E^?+str(x,5)+?=?,s 答案三:? s
3、PARA P,R
7、题目:
****在考生目录中,已有文件Modify.prg,请调试程序,完成以下功能。 程序中“______N_____”是需要填充的地方,请填空,使程序完整。 ****功能:编写求某正整数是否为完数。(该数等于其不重复因子相加,因子包括1。例如6=1+2+3是完数,但是8?1+2+4,所以不是完数。)
SET TALK OFF CLEAR
INPUT \s=1 ___1___ ___2__ s=s+i ENDIF ENDFOR ___3___
5
?M,\是完数!\ELSE
?M,\不是完数!\ENDIF
SET TALK ON
第七题答案:
1. 答案一:for i=2 to m-1
答案二:for i=2 to m-1 step 1 2. 答案一:IF M%I=0 答案二:IF 0=M%I
答案三:IF MOD(M,I)=0 答案四:IF 0=MOD(M,I) 答案五:IF M-INT(M/I)*I=0 答案六:IF 0=M-INT(M/I)*I 3. 答案一:if s=m 答案二:if m=s
8、题目:
****在考生目录中,已有文件Modify.prg,请调试程序,完成以下功能。 程序中“______N_____”是需要填充的地方,请填空,使程序完整。 ****功能:求X^1+X^2+...+X^n,n,X从键盘输入。
SET TALK OFF CLEAR
INPUT \___1___ S=0
T=1 FOR I=1 TO N ___2___ S=S+T ENDFOR
___3___ SET TALK ON
第八题答案:
1. 答案一:INPUT \ 答案二:INPUT TO X
答案三: INPUT ?X=? TO X 2. 答案一:T=T*X 答案二:T=X*T 3. 答案一:?\ 答案二:??S=?,S
6
答案三:?S
9、题目:
****在考生目录中,已有文件Modify.prg,请调试程序,完成以下功能。 程序中“______N_____”是需要填充的地方,请填空,使程序完整。 ****功能:利用参数传递和过程文件求:(m!+n!)((m-n)!+m^n+m^m)的值。
SET TALK OFF CLEAR
INPUT \INPUT \SM=M
DO JC WITH SM SN=N
DO JC WITH SN SMN=M-N
DO JC WITH SMN CMN=N
DO MC WITH M,CMN ___1___
?(SM+SN)/(SMN+CMN+M) SET TALK ON
PROC JC ___2___ T=1
FOR I=1 TO X T=T*I ENDFOR ___3___ RETURN
PROC MC
PARA X,Y T=1
FOR J=1 TO Y T=T*X ENDFOR Y=T RETURN
第九题答案:
1. DO MC WITH M,M 2.para x
7
3.X=T
10、题目:
****在考生目录中,已有文件Modify.prg,请调试程序,完成以下功能。 程序中“______N_____”是需要填充的地方,请填空,使程序完整。
****功能:显示指定表中的全部字段名,并由输入的条件显示满足条件的记录。
SET TALK OFF CLEAR ___1___
___2___ ?FIELD(N) ENDFOR ___3___
SET TALK ON
第十题答案: 1. USE 学生
2. 答案一:FOR N=1 TO FCOUNT()
答案二:FOR N=1 TO FCOUNT() step 1 3.USE
11、题目:
****在考生目录中,已有文件Modify.prg,请调试程序,完成以下功能。 程序中“______N_____”是需要填充的地方,请填空,使程序完整。 **功能:编写求输入数M内的偶数和偶数之和。
SET TALK OFF CLEAR ___1___ S=0
FOR P=1 TO M
IF INT(P/2)=P/2 ?P S=S+P ___2___ ___3___ ?S
SET TALK ON
第十一题答案:
1. 答案一:INPUT 'M=' TO M 答案二:INPUT TO M 答案三:INPUT “M=” TO M
8
相关推荐: