Fonction MAX et MIN

Question

salut

jai une serie de chiffre qui se presente comme cela 
: 
data(1) = 1568
data(é) = 145
data(3) = 1236

je voudrais savoir si il existait une fonction qui me permette dafficher le chiffre MAX et MIN a partir de cette série ?

juvamine · Answer

non il fo mouliner:
max=0
for i=1 to ubound(data)
if data(i)>max then max=data(i)
next i
msgbox max

voila
A+
juva

BTS IG, développeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

foliop · Answer

et pour MIN ?

jrivet · Answer

Salut, ben pour min tu fais presque la meme chose mais apres avoir trouve le MAX

max=0
for i=1 to ubound(data)
if data(i)>max then max=data(i)
next i
msgbox max

Min=Max
for i=1 to ubound(data)
if data(i)<min then min=data(i)
next i
msgbox min


Je pense que ca devrait marcher 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

foliop · Answer

Merci beaucoup les gars :)

Renfield · Answer

Je suis pas d'accord !!!! ~~max=0~~ max=data(1) for i=2 to ubound(data) if data(i)>max then max=data(i) next i msgbox max et le min : ~~Min=Max~~ min=data(1) for i=2 to ubound(data) if data(i) Values(i) Then Min = Values(i) Next i End Sub Private Sub Form_Load() Dim Values(4) As Long Values(0) = 5 Values(1) = 7 Values(2) = 3 Values(3) = 8 Values(4) = 2 Dim Min As Long Dim Max As Long MinMax Min, Max, Values MsgBox "MIN : " & Min & vbNewLine & "MAX : " & Max End Sub Amusez-vous ! ;) Renfield - thomas_reynald@msn.com Admin CodeS-SourceS

Gobillot · Answer

Pour éviter de faire 2 boucles, il faut donner à min au départ une valeur la plus grande possible, de même max doit être initialisé à la valeur la plus petite.

max=-32768
min=32767

for i=1 to ubound(data)
if data(i)>max then max=data(i)
if data(i)<min then min=data(i)
next i

msgbox max & " " & min

jrivet · Answer

-> Renfield:
Bien Vu, effectivement on prenait pas en compte les negatifs... 
Quelle erreur  ;) 
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Renfield · Answer

Je n'ai pas compris ton commentaire, Gobilot...

pourquoi attribuer 32768, ce qui oblige a changer ces valeurs selon le type de donnée considéré....

en faisant max=Values(1)

et en commencant la boucle en regardant la seconde valeur, tu ne fais pas de boucle inutile... et tu fais même moins de comparaison...

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Gobillot · Answer

>>Renfield

En effet j'ai pris Integer en exemple ce qui oblige à changer de valeur en fonction du type.
Je reconnais ta méthode est mieux, en prenant une valeur existante, pourquoi pas la première, ce qui permet de commencer la boucle à la deuxième position.
mais quand j'ai posté mon post, j'ai du te croiser et j'avais pas vu ta méthode.

Mea Culpa  :)

Renfield · Answer

ok ok

"pourquoi pas la première, ce qui permet de commencer la boucle à la deuxième position."

euh..... c'est bien ce que je fait....

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Gobillot · Answer

On va pas chicaner, la dernière valeur convient aussi, une valeur intermédiaire serait moins pratique.


Max = Values(UBound(Values))
Min = Values(UBound(Values))

Dim i As Integer
For i = LBound(Values) To UBound(Values)-1
If Max < Values(i) Then Max = Values(i)
If Min > Values(i) Then Min = Values(i)
Next i
End Sub

Renfield · Answer

oui, tant qu'on ne donne pas de valeur arbitraire, c'est ce qui compte....

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Fonction MAX et MIN

12 réponses

Discussions similaires