Nombres d occurrences

bonjour,
j'ai un devoir a rendre, mais je suis bloqué sur un exercice et j'aurai besoin de votre aide !
voici l'énoncé:
écrivez un programme qui:
-demande a l'utilisateur de combien de valeurs (de type entier) il veut saisir
-saisit ces valeurs en les stockant dans un tableau
-recherche et affiche le nombre d'occurrences des valeurs maximales et minimales du tableau
par ex si l'utilisateur saisit les valeurs suivantes:
3 9 5 3 4 6 9 3 7 3
le programme affichera:
le minimum est 3 (4 occurrences), et le maximum est 9 (2 occurrences)

j'ai deja fais tout le programme je bloque juste sur le nombre d'occurrences, je sais que je dois faire une boucle et non pas une fonction pour trouver celle ci voici le code de mon programme:

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 26 27 28 29 30

Module Module1 Function minimumtab(ByVal tab() As Integer, ByVal nombres As Integer) As Integer Dim minimum = tab(0), i As Integer For i = 1 To nombres - 1 If tab(i) < minimum Then minimum = tab(i) Next minimumtab = minimum   End Function   Function maximumtab(ByVal tab() As Integer, ByVal nombres As Integer) As Integer Dim maximum = tab(0), i As Integer For i = 1 To nombres - 1 If tab(i) > maximum Then maximum = tab(i) Next maximumtab = maximum End Function   Sub Main() Dim tab(20), nbvaleurs, i As Integer nbvaleurs = InputBox("saisissez le nombres de valeurs à traiter(< 20):") For i = 0 To nbvaleurs - 1 tab(i) = InputBox("saisissez la valeur n°" & i) Console.WriteLine(tab(i)) Next Console.WriteLine("le minimum est :" & minimumtab(tab, nbvaleurs)) Console.WriteLine("le maximum est :" & maximumtab(tab, nbvaleurs)) Console.Read() End Sub End Module

---

jattends vos reponses avec impatience !!!! merci beaucoup

Bonjour,

:tagcode:

Et il est ou le problème donc ?
Tu as le min et le max, il manque plus qu'a compter le nombre d’occurrence dans ta liste... pas compris le blocage.

J@ck.

ben justement c le nombres de d occurrences que je veux trouver mais je ne sais pas comment faire !
j'avais essaye ca mais ca fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9

Do i = minimumtab(tab, nbvaleurs) occ = i + 1   Console.WriteLine("le minimum est :" & minimumtab(tab, nbvaleurs)) Console.WriteLine("le nombre d'occurence est :" & occ) Console.Read()   Loop Until i = minimumtab(tab, nbvaleurs)

---

Un grand principe quand on débute en algorithmie comme toi, c'est de résoudre ton problème sur un papier avec un stylo ( ouai je sais c'est old school !) en détaillant les étapes une à une que tu aurais faites pour répondre à la question ...

Tu as une liste d'entier, et tu veux le nombre d’occurrence d'un entier donné dans la liste, qu'elle serait l'algo que tu ferais dans ta tête pour répondre à la question ? En gros reprend ton exemple, analyse ce que ton cerveau fais pour trouver le nombre d’occurrence d'une valeur, tu pose tout ça sur une feuille de papier ... tu auras ton algo.

J@ck.

PS => :tagcode: <=

bon alors j 'ai essayé de faire sur papier voila ce que ca donne:
pour occurrences minimum est egal a zero et occurrences maximum est egal a zero
si le nombre des valeurs du tableau est egal au plus petit de ces nombres alors
l'occurrence minimum est egal a l'occurence minimum +1
sinon si le nombre des valeurs du tableau est egal au plus grand de ces nombres alors
l'occurrence maximum est egal a l'occurence maximum +1
voila ma traduction en code

Code:

---

1 2 3 4 5 6 7

for occmini = 0 and occmaxi = 0 If tab(i) = minimumtab(tab, nbvaleurs) Then occmini = occmini + 1 ElseIf tab(i) = maximumtab(tab, nbvaleurs) Then occmaxi = occmaxi + 1 End If Next

---

mais ca me dit erreur de syntaxe pour 0
je comprend pas trop

ca y est je crois que j'ai trouvé! en tout cas ca a l 'air de fonctionner

Code:

---

1 2 3 4 5 6 7 8

occmini = 0 And occmaxi = 0 For i = 0 To tab.Length - 1 If tab(i) = minimumtab(tab, nbvaleurs) Then occmini = occmini + 1 ElseIf tab(i) = maximumtab(tab, nbvaleurs) Then occmaxi = occmaxi + 1 End If Next

---

merci encore pour ton aide!

Bonjour,

En effet tu avance :king:, et c'est bien plus efficace que si je t'avais donné l'algo tout fait ;)

Je ne comprends pas cette ligne =>

Code:

---

for occmini = 0 and occmaxi = 0

---

De plus, pour optimiser ton algo tu pourrais sauvegarder les valeurs min et max dans une variable et les utiliser pour les tests dans les if. Là, pour le moment tu vas appeler minimumTab et maximumTab autant de fois que tu as d'élément dans le tableau, en sauvegardant dans une variable tu ne les appellera qu'une fois.

Bon code,
J@ck.

Bonjour,

Ton code a l'air fonctionnel, mais il pourrait être optimisé ! :D En effet, tu as créer une fonction pour chaque "énoncé" du besoin : recherche du min, recherche du max, recherche du nombre de min, recherche du nombre de max. C'est un bon début, mais imagine faire tourner ton code avec un tableau de plusieurs milliers/millions de valeurs. Ça risque d'être long car tu effectues une lecture complète du tableau à chaque fonction.

Donc si tu as un peu de temps, je te conseille d'essayer de répondre à tous les besoin avec la contrainte suivant : une seule lecture du tableau.

Bon code :)

Citation:

---

Envoyé par J@ckHerror

Je ne comprends pas cette ligne =>

Code:

---

for occmini = 0 and occmaxi = 0

---

---

C'est les instructions d'initialisation, nop ? J'y connais pas grand chose en VB.NET mais en C/C# j'interprèterais ça comme ça :

Code:

---

for (occmini = 0, occmaxi = 0;;)

---

Bonjour,

Citation:

---

Envoyé par J@ckHerror

Bonjour,


Je ne comprends pas cette ligne =>

Code:

---

for occmini = 0 and occmaxi = 0

---

---

Cela n'existe juste pas en VB.

Bonjour,

Citation:

---

Envoyé par minimoix

ca y est je crois que j'ai trouvé! en tout cas ca a l 'air de fonctionner

Code:

---

occmini = 0 And occmaxi = 0

---

merci encore pour ton aide!

---

Cela, en supposant que VB l'avale, n'est pas l'affectation de la valeur 0 à tes deux variables, mais au mieux, une instruction logique qui retourne TRUE si tes deux variables valent 0 et FALSE, autrement.

Mais la mon VS est planté et je ne peux pas tester.