主题：1*2*3*4*~~*100
qq779314496
[专家分：0] 发布于 2009-05-29 21:30:00
谁帮我写出来，谢谢了。
回复列表 （共10个回复）
沙发
DYF213 [专家分：90] 发布于 2009-05-30 07:08:00
这么简单，书上有，（不好好看书的孩子）
板凳
1054122 [专家分：750] 发布于 2009-06-01 08:53:00
CLS
s = 1
FOR i = 1 TO 100
s = s * i
NEXT i
PRINT s
3 楼
oqoq [专家分：130] 发布于 2009-06-23 17:43:00
p=1
for i=1 to 100
p=p*i
next i
print p
上面那位，累乘器用p
4 楼
1054122 [专家分：750] 发布于 2009-06-23 20:32:00
CLS
he = 1
FOR i = 2 TO 100: he = he * i: NEXT i
PRINT he
END
5 楼
phile [专家分：2310] 发布于 2009-07-26 10:51:00
受不了楼上，100！会溢出！！！！！
高精度
CLS
INPUT N
DIM A(3000)
A(1)=1
FOR I=1 TO N
G=0
FOR J=1 TO 3000
X=A(J)*I+G
G=X\10
A(J)=X MOD 10
NEXT J
NEXT I
L=3000
DO WHILE A(L)=0
L=L-1
LOOP
FOR J=L TO 1 STEP -1
? USING"#";A(I);
NEXT J
END
6 楼
FFKK [专家分：1610] 发布于 2009-07-26 13:10:00
cls
s=1
for i=2 to 100
s=s*i
? s
next i
end
7 楼
天天和和 [专家分：1420] 发布于 2009-07-29 15:06:00
cls
k = 1
for i = 2 to 100
k = k * i
next i
print he
end
8 楼
phile [专家分：2310] 发布于 2009-07-31 08:41:00
[quote]cls
k = 1
for i = 2 to 100
k = k * i
next i
print he
end[/quote]
你错了！！！！
哪来的he变量！！！
9 楼
梦幻小樱 [专家分：140] 发布于 2009-08-06 12:48:00
cls
s=1
for i=1 to 100
s=s*i
next
?s;
end
10 楼
phile [专家分：2310] 发布于 2009-08-06 17:59:00
[quote]cls
s=1
for i=1 to 100
s=s*i
next
?s;
end
[/quote]
运行结果：溢出！！！！！
我来回复
您所在位置：