Discussion :

[minimoix]

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 :

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
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

[J@ckHerror]

Bonjour,



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.

[minimoix]

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 :

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

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)

[J@ckHerror]

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 => <=

[minimoix]

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 :

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

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

[minimoix]

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

Code :

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

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!