Erreur Saut Casio 35+E

Fermé
smilke Messages postés 9 Date d'inscription dimanche 25 mai 2014 Statut Membre Dernière intervention 5 avril 2016 - 10 oct. 2015 à 17:19
quent217 Messages postés 421 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 1 mars 2024 - 15 août 2016 à 21:41
Bonjour à tous programmeur,
J'ai rentrer un programme pour calculer le discriminant delta.
Je rentre le programme je le teste plusieurs fois, il marche quand delta=0 mais autrement le programme ne marche pas et il met : "Erreur Saut"
Pourquoi ?
Voici le programme que j'ai copié :
tu peut faire ce programme pour les discriminants et delta

¤=triangle pour affiché (Shit+Vars+F5)
=>=Shift+Vars+F3+F3
:=Shift+Vars+F6+F5
Lbl=Shift+Vars+F3+F1
Goto=Shift+Vars+F3+F2
Stop=Shift+Vars+F2+F4

"entrer a"?->A
"entrer b"?->B
"entrer c"?->C
"delta=":b²-4*A*C->D¤
D=0=>Goto 1
D<0=>Goto 2
D>0=>Goto 3
lbl1
"une solution"
-B/(2*A)¤
Stop
Lbl 2
"aucune solution"
Stop
Lbl 3
"2 solutions"
"x1=":(-b-?D)/(2*A)¤
"x2=":(-b+?D)/(2*A)

pourquoi le programme ne marche pas.



1 réponse

quent217 Messages postés 421 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 1 mars 2024 344
10 oct. 2015 à 23:29
Bonjour
Vérifie que tu as bien mis les B en majuscule car ce n'est pas le cas dans le programme que tu as donner. Le point d'interrogation dans les 2 dernieres lignes doivent être des racines carrés mais c'est peut etre un problème d'affichage. Sinon ce programme marche parfaitement sur ma calculatrice.
L'erreur "Erreur Saut" est une erreur qui survient à cause des Goto et il faut aussi savoir que les Goto sont à éviter car ils rendent le code illisible et incomprehensible dans des programmes plus complexe. Pour résoudre une équation du second degré je te propose donc le programme suivant :

"entrer a"?->A
"entrer b"?->B
"entrer c"?->C
B²-4AC->D
ClrText
Locate 1,1,"delta="
Locate 7,1,D
If D<0
Then Locate 1,2,"aucune solution"
Else If D=0
Then Locate 1,2,"x="
Locate 3,2,(-B)/(2A)
Else Locate 1,2,"x1="
Locate 4,2,(-B-&D)/(2A)
Locate 1,3,"x2="
Locate 4,3,(-B+&D)/(2A)
IfEnd
IfEnd

J'ai remplacer la racine carré par le symbole &.

J'éspère avoir pu t'aider.
0
Le problème viens du fait que le Goto doit se placer après le label correspondant pour que la calculatrice puisse suivre le lbl
0
quent217 Messages postés 421 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 1 mars 2024 344
15 août 2016 à 21:41
Non ce n'est pas obligatoire il peut être avant ou après

--
0