标题:求大神指教使用循环语句编写阶乘程序,谢谢!
只看楼主
流浪飞飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2019-8-1
结帖率:0
已结贴  问题点数:20 回复次数:9 
求大神指教使用循环语句编写阶乘程序,谢谢!
编写一个计算1!+2!+….+5!=?(1至5的阶乘累加),提示:请使用循环语句编写些程序,do while 或者 for。
搜索更多相关主题的帖子: 循环 语句 编写 阶乘 while 
2019-08-01 09:24
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
得分:7 
以下是引用流浪飞飞在2019-8-1 09:24:20的发言:

编写一个计算1!+2!+….+5!=?(1至5的阶乘累加),提示:请使用循环语句编写些程序,do while 或者 for。


bb=1
FOR aa =2 TO 10

bb = bb*aa
ENDFOR

?bb

这样可以吗?
2019-08-01 09:40
流浪飞飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2019-8-1
得分:0 
回复 2楼 radiofan
谢谢帮助,但是好像还差点意思!不太对哦
2019-08-01 09:48
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
得分:0 
以下是引用流浪飞飞在2019-8-1 09:48:44的发言:

谢谢帮助,但是好像还差点意思!不太对哦

2019-08-01 09:56
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
得分:0 
以下是引用流浪飞飞在2019-8-1 09:48:44的发言:

谢谢帮助,但是好像还差点意思!不太对哦

CLEAR
cc = 0   
dd  = 1
For bb = 1 To 10
    For aa = 2 To bb
        dd = dd * aa
    ENDFOR
    ?dd
    cc = cc + dd
    ?cc
        WAIT WINDOW STR(bb)
    dd = 1
Endfor
?cc

我可不是大神!!!
2019-08-01 10:15
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:7 
CLEAR
s = 0
FOR i = 1 TO 5
    p = 1
    FOR ii = 1 TO i
        p = p *ii
    ENDFOR
    s = s + p
ENDFOR
?s

坚守VFP最后的阵地
2019-08-01 12:32
流浪飞飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2019-8-1
得分:0 
回复 6楼 sdta
哈哈哈哈,谢主隆恩高手在internet
2019-08-01 13:48
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:7 
∑A = 0
An = 1
FOR n=1 TO 10
    An = An*n
    ∑A = ∑A + An
ENDFOR
?∑A
2019-08-01 14:27
流浪飞飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2019-8-1
得分:0 
回复 8楼 吹水佬
可以可以,这个更精简些!
2019-08-01 15:01
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
得分:0 
以下是引用吹水佬在2019-8-1 14:27:16的发言:

∑A = 0
An = 1
FOR n=1 TO 10
    An = An*n
    ∑A = ∑A + An
ENDFOR
?∑A



版主不易!
2019-08-01 15:10



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-496126-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.775119 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved