搜索
编程论坛
→
开发语言
→
『 Delphi论坛 』
→ pascal 求5个数的阶乘
标题:
pascal 求5个数的阶乘
只看楼主
wangguyu
等 级:
新手上路
帖 子:15
专家分:0
注 册:2008-5-24
楼主
问题点数:0 回复次数:4
pascal 求5个数的阶乘
谁会求5个数的阶乘
搜索更多相关主题的帖子:
pascal
阶乘
2008-05-24 16:47
wangguyu
等 级:
新手上路
帖 子:15
专家分:0
注 册:2008-5-24
第
2
楼
得分:0
0
2008-05-24 16:48
wangguyu
等 级:
新手上路
帖 子:15
专家分:0
注 册:2008-5-24
第
3
楼
得分:0
求5个数的阶乘?
2008-05-24 16:48
lili123
等 级:
新手上路
帖 子:4
专家分:0
注 册:2008-5-24
第
4
楼
得分:0
哎 我以为是用DELPHI写呢
2008-05-24 23:02
lili123
等 级:
新手上路
帖 子:4
专家分:0
注 册:2008-5-24
第
5
楼
得分:0
你用函数去写 或者用过程去写 也是可以啊
function fact(x:integer):int64
var p:int64;
i:integer;
begin
p:=1;
for i:=1 to x do p:=p*i
fact:=p;
end;
然后你在写按狃的代码
begin
sum:=0;
for i:=1 to 5 do sum:=sum+fact(i);
panel1.caption:=format('1!+2!+3!+4!+5!=%d',[sum]);
end;
2008-05-24 23:11
5
1/1页
1
参与讨论请移步原网站贴子:
https://bbs.bccn.net/thread-215713-1-1.html
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.251613 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved