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

答案:3 悬赏:70 手机版

解决时间 2021-03-24 23:29

提问者网友：难遇难求
2021-03-24 03:56

最佳答案

五星知识达人网友：拜訪者
2021-03-24 04:27

主程序: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

全部回答

1楼网友：往事埋风中
2021-03-24 06:40

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

2楼网友：深街酒徒
2021-03-24 05:49

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。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息