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