mon code pour calculer une moyenne ne marche pas!Résolu

Question

bonjour &#224; tous! 

voil&#224; je d&#233;bute en prog et j'ai un petit probl&#232;me sur un exercice d'entrainement:

le but est de calculer la moyenne d'un nombre indetermin&#233; de notes, puis  pour terminer la saisie l'utilisateur doit entrer la valeur 0 qui ne dvra pas &#234;tre compt&#233; dans la moyenne.(sachant que les notes seront forc&#233;ments positives)

voici mon code, je ne sais pas pourquoi il ne marche pas bien (quand on rentre les valeurs 8 et 12 il me met 1), et j'aimerais bien savoir ce qui ne vas pas!



Dim saisienotes 
As 
String



Dim totalnotes 
As 
Double



Dim moyenne 
As 
Double



Dim msg 
As 
String



Dim saisieok 
As 
Boolean



Dim I 
As 
Integer



Dim nombrenotes 
As 
Double



Sub main()


I = 0


totalnotes = 0



Do


saisienotes = InputBox("tape ta notes mec!", , "Note N&#176;" & nombrenotes + 1)


I = I + 1


nombrenotes = nombrenotes + 1


totalnotes = saisienotes + I


moyenne = totalnotes / nombrenotes



Loop 
Until saisienotes = 0


MessageBox.Show(moyenne)



End 
Sub

Merci de m'avoir lu

cs_EBArtSoft · Accepted Answer

dim i as single
dim n as integer
dim s as string 
do
s=inputbox("Tape la note:")
if len(s) then
i=i+s
n=n+1
else
exit do
endif
loop
msgbox "moyenne : " & i/n

@+


E.B.

cs_casy · Answer

Euhhh, es-tu sur que ton calcul te donne une moyenne, moi non, ou alors j'ai rien compris &#224; ton code.





Dim saisienotes As String

Dim totalnotes As Double

Dim moyenne As Double

Dim nombrenotes As Double



Sub main()



nombrenotes = 0

totalnotes = 0



Do



saisienotes = InputBox("tape ta notes mec!", , "Note N&#176;" & nombrenotes + 1)



nombrenotes = nombrenotes + 1



totalnotes = totalnotes + CDbl(saisienotes)



Loop Until CDbl(saisienotes) = 0



moyenne = totalnotes / nombrenotes



MsgBox moyenne



End Sub





<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

lynophryne1 · Answer

&#224; vrai dire, je suis sur de rien!!!

il y a peut  &#234;tre un probl&#232;me de conception, mais je suis incapable de comprendre ce qui cloche ici!

m&#234;me avec les conversions &#231;a ne marche pas!

lynophryne1 · Answer

je comprend pas bien ton code Erbasoft, qu'est excactement le "len(s)"??

l'utilisateur dand l'exo doit taper "0" pour arr&#234;ter la saisie

cs_EBArtSoft · Answer

Oula ton exo pronne l'erreur !
car arreter l'execution si un eleve a un zero &#231;a fausse tout !
dans mon exemple la moyenne est calcul&#233; si l'utilisateur clique ok sans rien taper
ou clique sur annuler

@+


E.B.

lynophryne1 · Answer

oui , merci beaucoup je viens de comprendre.

 en fait l'exercice pr&#233;cise bien que les notes doivent &#234;tre positives ce qui exclu donc le 0, mais bon c vrai que c'est un peu tordu!

comme toujours, pourquoi faire simple quand.....

Merci encore!

@+

Lyno

Mon code pour calculer une moyenne ne marche pas!

6 réponses

Discussions similaires