Maximum

lonely -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -
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


1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0