Discussion :

[3xplo]

Bonjour,
voilà, encore un ptit probleme qui se pose à moi :
je dois rechercher et afficher le nombre d'occrurrences des valeurs maximales et minimales d'un tableau, j'ai fais tout le reste du code mais je reste bloqué sur l'occurrence
Par exemple, si on saisit les valeurs suivantes :
523392499
Le programme doit afficher :
Le minimum est 2 (2 occurrences) et le maximum est 9 (3 occurrences)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function MinimumTableau(T() As Integer, NbElements As Integer) As Integer
Dim Minimum As Integer, i As Integer
Minimum = T(0)
For i = 1 To NbElements - 1
If T(i) < Minimum Then Minimum = T(i)
Next i
MinimumTableau = Minimum
End Function
Function MaximumTableau(T() As Integer, NbElements As Integer) As Integer
Dim Maximum As Integer, i As Integer
Maximum = T(0)
For i = 1 To NbElements - 1
If T(i) > Maximum Then Maximum = T(i)
Next i
MaximumTableau = Maximum
End Function
Sub main()
Dim NbValeurs As Integer, T(99) As Integer
Dim i As Integer
NbValeurs = InputBox("Combien de valeurs voulez-vous saisir (<100) ?")
For i = 0 To NbValeurs - 1
T(i) = InputBox("Saisissez la valeur n°" & i)
Next i
MsgBox "Le minimum est " & MinimumTableau(T, NbValeurs) & "et le maximum est " & MaximumTableau(T, NbValeurs)
End Sub

[SfJ5Rpw8]

ben il va falloir faire un effort si tu est arrivé la ... il ne te restee plus grand chose à faire... un compteur pour minimun et un pour le maximun.. compteur que tu initialise à chaque fois que tu change de minimun (ou de maximum..) et que tu incrémente à chaque nouvelle valeur identique au minimun (ou au maximun) trouvé..

[3xplo]

merci, des efforts jen fait pourtant, la function incremente oui ça je connais, mais je n'ai pas encore vu comment faire un compteur !

[avigeilpro]

Une autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim Chaine As String
Dim NbOcc As Integer
 
Chaine = "523392499"
 
'Nombre d'occurence du "2" :
NbOcc = Len(Chaine) - Len(Replace(Chaine, "2", ""))
 
'fait la différence de longueur de la chaine avec le "2" et
' de la chaine sans le "2"

[SfJ5Rpw8]

inspire toi du code suivant pour modifier le tiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(..)
Dim nbMinimun as integer 
(..)
NbMinimun = 0
Minimum = T(0)
For i = 1 To NbElements - 1
  If T(i) < Minimum Then 
            Minimum = T(i)
            NbMinimun = 0 'Raz NbMinmun sur changement de mini..
  End if
  if T(i) = Minimum then NbMinimun =  NbMinimun  +1 'Incrément NbMinimun
Next i
(...)

[ced600]

merci, des efforts jen fait pourtant, la function incremente oui ça je connais, mais je n'ai pas encore vu comment faire un compteur !

Un compteur c'est une simple variable que tu initialises à une valeur, ensuite dans une boucle tu incrementes ta variable de 1, ou de plus de un, cela dépend ce que tu veut faire. Donc au final si tu incrementes de 1 et que tu as initialisé à zéro avant la boucle, ta variable va contenir le nombre de tour qu'à fait ta boucle. C'est pour ça que l'on appelle ça un compteur, parce que ça compte des actions répétitives.
Donc un compteur d'une valeur minimal et une variable qui compte le nombre de fois que tu trouves cette valeur minimale.
Dans le code de bbil, NbMinimun est un compteur.

[3xplo]

ok ok, merci bcp. "Len" je n'ai pas encore vu donc je ne suis pas censé l'utiliser
Merci pour les explications du compteur, ça m'a bien avancé, mais ça m'énerve, ça ne m'affiche pas les bonnes occurrences, ya un soucis. J'insiste, j'y arriverais !