荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Chengal (浩气冲天), 信区: Visual
标 题: delphi实现10!
发信站: 荔园晨风BBS站 (Mon Jul 14 14:56:23 2003), 站内信件
方法一:
s:=10*9*8*7*6*5*4*3*2*1;
咔咔,很笨但是能用!!
方法二:
procedure TForm1.Button1Click(Sender: TObject);
var s,number:integer;
begin
//10!
s:=1;
for number:=1 to 10 do
begin
s:=s*number;
end;
ShowMessage(IntToStr(s));
end;
end.
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.36.4]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店