程序填空[1]

*题目：从键盘输入一个汉字字符串，将它逆向、纵向输出。 * 存入变量S中

* 如：输入\计算机考试\输出如下： * 试考机算计

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON S=\

A=\计算机考试\?FUN(A) YZJ() RETURN

FUNCTIO FUN(S) Y=\

**********Program**********

********** End ********** RETURN Y FUNCTI YZJ() S=\我是中国人\Y=FUN(S)

DO YZJ16 WITH Y SET TALK ON RETURN

----------------------

FOR N=1 TO LEN(S)-1 STEP 2 Y=Y+SUBS(S,LEN(S)-N,2)

ENDFOR

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：用循环程序求出1~15之间能被3整除的整数的阶乘和

* 存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON OUT=-1

**********Program**********

********** End ********** SET TALK ON

DO YZJ17 WITH OUT RETURN

--------------------- T=1 s=0

FOR N=1 TO 15 T=T*N IF N%3=0 s=s+T ENDIF ENDFOR OUT=S ? O

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：从键盘输入一个整数，输出所有能整除该数并且本身 * 也能被3整除的数的和。（例如：输入6，6的因子为3、6，则输出9） * 结果存于变量x中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON Y=-1

INPUT TO N ?FUN(N) YZJ()

SET TALK ON RETURN

FUNCTI FUN(A) X=0

**********Program**********

********** End ********** RETURN X

FUNC YZJ()

DO YZJ18 WITH FUN(18)

RETURN

---------------------- FOR N=1 TO A

IF A%N=0.AND.N%3=0 ? N x=x+N ENDIF ENDFOR

------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：判断整数是否为质数 (只能被1和本身整除的数) 。 * 是质数则函数返回1，否则函数返回0

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

SET LOGERRORS ON O=-1

?FUN(79) YZJ()

SET TALK ON RETURN

FUNCTION FUN(N) OUT=-1

**********Program**********

********* End ********** RETURN OUT

FUNCTIO YZJ() USE IN

LOCA FOR TIHAO=21 IF FOUND() O=FUN(N1) DO YZJ21 WITH O ELSE

?\试题输入文件已损坏，请重新配置考试环境\ENDIF

RETURN

---------------------- f=1

for i= 2 to n-1 if n%i=0 f=0 exit endif endfor out=f

------------------------------------------------------- *【程序设计】

*-------------------------------------------------------

*题目：把输入一个三位数，各个数位按个、十、百位顺序拆开 * 别输出存入变量Ｓ中，用加号分隔。 * 如输入345分开后为3+4+5