Question

计算机vfp,使用子程序编程，计算1！+2！+……+10！

Answer 1

input "输入一个 自然数，计算此数内各自然数的阶乘和:" to gy

jch=0

jcs=0

FOR l=1 TO gy

 DO jc WITH l,jcs  &&调用子程序，并通过传递参数实现计算阶乘

 jch=jch+jcs

?l,"的阶乘为：",jcs,l,"以内各自然数的阶乘和为：",jch

ENDFOR

**以下为子程序

PROCEDURE jc

PARAMETERS n,jcs      &&接收主程序传递来的参数

jcs=1

FOR m=1 TO n

 jcs=jcs*m

ENDFOR 

RETURN jcs

 

**以上全部代码可以保存在一个程序内。如果将子程序单独保存，可以将“PROCPROCEDURE jc" 删除，并将子程序保存为jc.prg。

Answer 2

Clear &&清屏
T=0 &&给t赋初值
s=1 &&赋初值给s
n=10 &&自定义值
For i=1 To n &&循环
s=s*i &&s=i！
T=s+T &&t为1到i的阶乘和
Endfor &&循环终点
?"T=1!+2!+3!+…+10!=",T &&输出结果
Return

追问

这不是使用子程序啊？您用的是循环吧？

能告诉我用子程序的方法吗？

追答

&&不好意思 没仔细看题

Clear &&清屏
?"T=1!+2!+3!+…+10!=",求阶乘(10) &&输出结果

PROCEDURE 求阶乘 &&这个是子程序
PARAMETERS n
T=0 &&给t赋初值
s=1 &&赋初值给s
For i=1 To n &&循环
s=s*i &&s=i！
T=s+T &&t为1到i的阶乘和
Endfor &&循环终点
RETURN t &&输出结果
ENDPROC

Answer 3

主程序:Xa.prg
Xa=0
FOR j=1 to 10
Xa=Xa+Xi(j)
ENDFOR
? Xa

子程序:Xi.prg
PARAMETERS N
X=1
FOR i=1 to N
X=X*i
ENDFOR
RETURN X

命令窗口输入 do Xa
计算1！+2！+……+10！的值为 4037913