【程序说明】 计算1~30之间能够被3整除的奇数的阶乘和。 【程序】 **
主程序 SET TALK OFF S=0 FOR I=1 TO 30 STEP 2 IF{{U}}
(4) {{/U}} {{U}} (5)
{{/U}} S=S+N
ENDIF ENDFOR ?“1到30之间能被3整除的奇数阶乘和为:”+{{U}} (6) {{/U}} SET
TALK ON RETURN ** 过程 P1.PRG PARAMETERS M {{U}}(7)
{{/U}} N=1 FOR J=1 TO M
N=N*J ENDFOR {{U}}(8) {{/U}}