Calcul factoriel avec des entiers

[Guimauve]

Bonjour,

Une fonction pour faire un calcul factoriel avec des entiers.
Ex. : 5! = 1*2*3*4*5 = 120

N.B. Le maximum est 34!, avec 35! le deboggeur affiche 1.#INF00.
Vivement les variables de type double !

A+
Guimauve

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Fonction Factoriel 

Procedure.f Factoriel(valeur_n.l)
     
     total.f = 1
     indice.l = 2 
     
     While (indice <= valeur_n)
          total = total * indice 
          indice + 1
     Wend
     
     ProcedureReturn total
     
EndProcedure

[novicenpure]

Salut,

Tu peux aussi la définir de manière récursive :

Code : Tout sélectionner

Procedure.l Fact(n.l) 
  If n=1
    ProcedureReturn 1
  Else
    ProcedureReturn n*Fact(n-1)
  EndIf
EndProcedure 

Debug Fact(10)

Cordialement

[Le Soldat Inconnu]

Code : Tout sélectionner

Procedure.l Factoriel(valeur.l) 
  Resultat.f = 1
  For n = 2 To valeur
    Resultat * n
  Next
  ProcedureReturn Resultat 
EndProcedure

For n = 1 To 12
  Debug Str(n) + "! = " + Str(Factoriel(n))
Next

plus simple comme ceci

[Guimauve]

Oui je sais, j'ai pas eu le temps de poster les deux codes.

Cette procédure est la traduction d'un script Matlab qu'on m'a demandé de faire à l'université.

Le professeur nous a contraint d'utiliser un While. Par la suite de reprendre le script avec un For.

Je l'ai mis ici parce que cette fonction n'est pas parmis les fonctions de maths standard de PB.

Voilà.

A+
Guimauve

PS. Ceux qui ne connaisent pas MatLab, c'est pas grave vous ne manquez pas grand chose.

[Le Soldat Inconnu]

Je l'ai mis ici parce que cette fonction n'est pas parmis les fonctions de maths standard de PB.

oui, c'est dommage d'ailleurs.

[Frenchy Pilou]

Ici la liste des 999 premiers factoriels détaillés !!!
999 factoriels
Comme cela rien à calculer
Plus qu'à espérer qu'il n'y ait pas d'erreur