Tableaux, boucles help SvP

Version imprimable

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:

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

07/11/2006, 20h04
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é..
07/11/2006, 21h01
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 ! :?

Une autre solution :

Code:

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"

inspire toi du code suivant pour modifier le tiens :

Code:

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
(...)

08/11/2006, 10h46
ced600

Citation:

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.
08/11/2006, 17h23
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 :D !