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
Partager