Maximum

Question

Bonjour, 
Je veux écrire une fonction pour trouver le maximum entre un nombre indéterminé de nombres.  En fait, je fais la conjecture de Collatz (Syracuse) et je dois trouvé la valeur la plus élevé lorsque je rentre un nombre. J'ai fait le programme  pour trouver les nombres et pour trouver combien il y a de nombres, mais je ne trouve pas comment faire celui pour trouver le maximum.
Il ne doit pas y avoir de référence à une colonne en particulier. Je dois pouvoir l'utiliser dans n'importe quelle cellule. De plus, je ne dois pas avoir besoin d'écrire les nombres de la suite. Par exemple, si je marque =CollatzMax (7) ça doit me donner 52 (sans aucune référence aux cellules) 

Merci 


Configuration: Windows 7 / Mozilla 11.0

via55 · Answer

Bonsoir lonely

Tout simplement ainsi :
Function CollatzMax(v)
m = 0
Do While v > 1
If v Mod 2 <> 0 Then v = v * 3 + 1 Else v = v / 2
If v > m Then m = v
Loop
CollatzMax = m
End Function

Cdlmnt
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

Maximum

1 réponse

Discussions similaires

Newsletters