Discussion :

[juninho]

Bonjour,

je me forme petit à petit et à mon rythme à la programmation.
J'ai choisi VB.net il parait que c'est plus simple.

Là je me heurte à un souci.
Voici le code avec en commentaire l'énoncé que je me suis fait.

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
 
Module Module1
    Sub Main()
        ' Enoncé:
        ' Créé un tableau avec 5 cases.
        ' Chacune de ces case de contenir un nombre.
        ' Faire la moyenne des 5 nombres
        ' Afficher le résultat à l'écran
 
        Dim Montableau(4) As Double
        Dim Moyenne As Double = 0
        Dim NombreTrouve As Double = 0
 
 
        Montableau(0) = 2
        Montableau(1) = 3
        Montableau(2) = 9
        Montableau(3) = 12
        Montableau(4) = 230
 
        Moyenne = (Montableau(0) + Montableau(1) + Montableau(2) + Montableau(3) + Montableau(4)) / 5
        Console.WriteLine(" La moyenne est de " & Moyenne)
 
        Console.Read()
 
    End Sub
 
End Module

Ce code fonctionne bien, RAS.

Je tente de faire la même chose avec une boucle for, mais là ça ne marche pas.
Ai je le bon résonnement ?

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
 
Module Module1
    Sub Main()
        ' Enoncé:
        ' Créé un tableau avec 5 cases.
        ' Chacune de ces case de contenir un nombre.
        ' Faire la moyenne des 5 nombres
        ' Afficher le résultat à l'écran
 
        Dim Montableau(4) As Double
        Dim Moyenne As Double = 0
        Dim NombreTrouve As Double = 0
        Dim NombreContenu As Double = 0
 
        Montableau(0) = 2
        Montableau(1) = 3
        Montableau(2) = 9
        Montableau(3) = 12
        Montableau(4) = 230
 
        For i = 0 To Montableau.Length - 1
            NombreTrouve(NombreContenu) = NombreTrouve(NombreContenu) + 1
        Next
        Moyenne = NombreContenu / 5
        Console.Read()
 
    End Sub
 
End Module

J'ai par exemple une erreur sur NombreTrouvé ( La structure "Double" ne peut pas être indexé, car elle n’a pas de propriété par défaut).
Merci pour votre aide

[emixam16]

Bonjour,
Ton erreur est assez claire, Tu essaye d'utiliser un double (nombre à virgules comme un tableau à virgule).

La solution est pourtant simple, il faut que tu penses à ce que tu ferais à la main.

Pour chaque valeur du tableau (for ou foreach en vb.net)
Tu ajoute cette case (nombretrouvé += tableau(i) , ou nombretrouvé = nombretrouvé + tableau(i))
Et tu fais ta division par le nombre d'élements (ici 5)

[juninho]

Bonjour,
effectivement c'est bon.
J'aurai dû m’arrêter au lieu de m'entêter pour finir ce truc.
Merci en tout cas