[讨论]N！的和急急急！！！！！！！

沙发

phile [专家分：2310] 发布于 2009-08-07 17:51:00

我用高精度做的！
CLS
INPUT N
DIM A(1001),D(1001)
A(1)=1
FOR I=1 TO N
  G=0
  FOR J=1 TO 1000
    X=A(J)*I+G
    G=X\10
    A(J)=X MOD 10
  NEXT J
  G=0
  FOR J=1 TO 1001
    X=A(J)+D(J)+G
    G=X\10
    A(J)=X MOD 10
  NEXT J
NEXT I
K=1000
DO WHILE D(K)=0
  K=K-1
LOOP
FOR I=K TO 1 STEP -1
  ?USING"#";D(I);
NEXT I
END

板凳

gewenbo [专家分：450] 发布于 2009-08-08 18:29:00

超普通：
dim s as double
dim t as integer
t=1
For i=1 to n
t=t*i
s=s+t
next i
print s
end

3 楼

Saitor@love.com [专家分：30] 发布于 2009-08-10 10:48:00

高精度的老师没讲。

4 楼

1054122 [专家分：750] 发布于 2009-08-10 11:57:00

CLS
INPUT n
FOR i = 1 TO n
he& = he& + fact(i)
NEXT i
PRINT he&
END

FUNCTION fact (n)
s = 1
FOR i = 1 TO n
s = s * i
NEXT i
fact = s
END FUNCTION

5 楼

phile [专家分：2310] 发布于 2009-08-10 17:26:00

楼上用递归的吧！
还有LZ连高精度都没学？？！！不至于吧！

6 楼

gewenbo [专家分：450] 发布于 2009-08-11 18:03:00

LZ啊

7 楼

phile [专家分：2310] 发布于 2009-08-17 13:47:00

LZ， I 服了 you

8 楼

天天和和 [专家分：1420] 发布于 2009-08-19 09:48:00

若此题的N较大，只可以使用高精度，楼主你们老师没交你可以去自学啊

9 楼

phile [专家分：2310] 发布于 2009-08-19 12:47:00

书上有！

10 楼

天天和和 [专家分：1420] 发布于 2009-08-23 17:50:00

对啊

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]N！的和急急急！！！！！！！

回复列表（共10个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖