Autorisation : Membre
Nb de messages : 148
Inscrit le : Jeu 13 Oct 2011, 15:48
Posté le : Ven 26 Oct 2012, 17:51
Bonjour. Voila alors en fait je veux faire un programme qui calcule la moyenne mais il ne marche pas :
Code
:EffEcr
:EffVar AEffVar B
:Disp "DONNER LA NOTE
:Disp "ET LE COEFF
:Repeat K=45
:Input "NOTE:?",D
:Input "COEFF:?",E
:codeTouche->K
:(D*E)+A->A
:E+B->B
:End
:A/B->M
:Disp "MOYENNE=",M
Je tiens aussi à préciser que les codes suivants ne marchent pas non plus :
Code
:EffEcr
:EffVar AEffVar B
:Disp "DONNER LA NOTE
:Disp "ET LE COEFF
[b]:Lbl 1[/b]
:Input "NOTE:?",D
:Input "COEFF:?",E
:(D*E)+A->A
:E+B->B
[b]:While codeTouche=45
:Goto 2
:End
:Lbl 2[/b]
:A/B->M
:Disp "MOYENNE=",M
Code
:EffEcr
:EffVar AEffVar B
:Disp "DONNER LA NOTE
:Disp "ET LE COEFF
[b]:Lbl 1[/b]
:Input "NOTE:?",D
:Input "COEFF:?",E
:(D*E)+A->A
:E+B->B
[b]:If codeTouche=/=45
:Goto 1
[/b]
:A/B->M
:Disp "MOYENNE=",M
Code
:EffEcr
:EffVar AEffVar B
:Disp "DONNER LA NOTE
:Disp "ET LE COEFF
[b]:Repeat codeTouche[/b]
:Input "NOTE:?",D
:Input "COEFF:?",E
:(D*E)+A->A
:E+B->B
:End
:A/B->M
:Disp "MOYENNE=",M
Apparemment les codes touches et les inputs ne marchent pas ensembles... Sinon j'avais fait une autre version mais c'était très lourd (à utiliser pas en octets)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 26 Oct 2012, 18:22
2e code) il manque goto_1 avant Lbl_2
codes 1, 3 et 4) tu n'as pas le temps d'appuyer sur une quelconque touche entre la fin de saisie (Enter) et la prochaine saisie.
J'ai trois solutions en tête :
Code
EffVar MEffVar N
Input "COMBIEN?",C
For(W,1,C
Input "COEFF?",K
Input "NOTE?",X
M+KX->M
N+K->N
End
M/N
Code
EffVar MEffVar N
Lbl 1
Input "COEFF?",K
Input "NOTE?",X
M+KX->M
N+K->N
Repeat Rép=45
codeTouche
If Rép
Goto 1
End
M/N
Code
EffVar MEffVar N
Repeat Rép=45
Input "COEFF?",K
Input "NOTE?",X
M+KX->M
N+K->N
Repeat Rép
codeTouche
End
End
M/N
La première solution est la plus simple mais la plus contraignante.
La deuxième fait une pause pour avoir le temps de saisir Annul ou autre chose de quelconque.
(attention cela perturbe les boucles) C'est proche de mon premier programme de saisie. *nostalgie*
La troisième est probablement la meilleure en rigueur et souplesse.
(mais l'optimisation avec Rép est assez instable si on modifie le programme sans faire attention)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 148
Inscrit le : Jeu 13 Oct 2011, 15:48
Posté le : Sam 27 Oct 2012, 16:37
Ah bon! Oh mon dieu quelle révélation...! Tu sais en général quand on peut faire un programme on peut faire la même chose mais sans...(surtout pour les maths). Je sais mais c'est juste pour allez plus vite! (les notes sur 10 sont fatigantes!)
C'est proche de mon premier programme de saisie. *nostalgie*