ChronoMath, une chronologie des MATHÉMATIQUES
à l'usage des professeurs de mathématiques, des étudiants et des élèves des lycées & collèges

Calcul "multiprécision" de n!       version Basic         »  version JavaScript "Online"

 ➔   Ce programme peut calculer exactement factorielle n jusqu'à n = 212.

CLS : b = 10000 : DIM T(100)
INPUT "n=", n
T(100) = n

FOR m = n - 1 TO 2 STEP -1
    q = 0
     FOR i = 100 TO 1 STEP -1
        p = T(i) * m + q
        q = INT(p / b)
        T(i) = p - q * b
    NEXT i
    T(0) = T(0) * m + q
     IF T(0) > 9999 THEN BEEP: PRINT "Dépassement": END
NEXT m

j = 0 : WHILE T(j) = 0 : j = j + 1 :WEND

FOR i = j TO 100
  T$ = STR$(T(i))
  T$ = MID$(T$, 2, LEN(T$))
  WHILE LEN(T$) < 4
     T$ = "0" + T$
  WEND
  T$ = " " + T$
  PRINT T$;
NEXT

WHILE INKEY$ = "": WEND
END

---

© Serge Mehl - www.chronomath.com