500 فاکتوریل

بدست آوردن فاکتوریل های بزرگ تا 500 فاکتوریل

CLS
DIM k(1 TO 2000) AS INTEGER
DIM p(1 TO 2000) AS INTEGER
INPUT n
k(1) = 1

FOR a = 1 TO n
  b = a
  FOR i = 1 TO 2000
    p(i) = k(i): k(i) = 0
  NEXT i
 
        w = 0
        DO

        m = b MOD 10: b = b 10
        FOR u = 1 TO 1990
                s = k(u + w) + (m * p(u))
                k(u + w) = s MOD 10
                k(u + w + 1) = k(u + w + 1) + s 10
        NEXT
        w = w + 1
        LOOP UNTIL b = 0
NEXT a
 
  f = 0: h = 2000
 
 
  DO
        IF k(h) <> 0 THEN f = 1
        IF f = 1 THEN PRINT USING "#"; k(h);
        h = h - 1
  LOOP UNTIL h = 0