Programme sur les déterminants pas si simple

[seb1039]

Bonjour tout le monde,
Suite à la perte d'une magnifique TI-89 presque neuve dans laquelle il y avait tous mes programmes, je m'en suis rachetée une autre où, malheureusement il n'y a rien. Donc me revoilà en train de refaire tout en commençant par le basique : les déterminants! J'ai essayé et fait ça.

Code: Select all

colineai ()
Prgm
Input "Xa=",a
Input "Ya=",b
Input "Xb=",c
Input "Yb=",d
a*d-b*c -> e
Disp "Le déterminant vaut",e
Pause
If e=0 Then
Disp "Les vecteurs sont colinéaires"
Else
Disp"Les vecteurs ne sont pas colinéaires"
EndIf
EndPrgm


Lorsque je lance le programme, elle m'indique deux choses:
- Le déterminant vaut a*d-b*c
- Un message me dit :"a test did not resolve to true or false" et m'indique que ça coince au niveau de la condition que j'ai refaite de nombreuses fois.

Pouvez-vous m'indiquer ce qu'il ne va pas?

[Bisam]

Si une des valeurs a,b,c,d n'est pas un nombre mais par exemple un paramètre "t", la calculatrice ne peut pas savoir si a*d-b*c est nul ou non, et c'est pourquoi elle te renvoie l'erreur "A test did not resolve to true or false".

Si tu réessaies en donnant 4 valeurs numériques à a,b,c,d, cela devrait fonctionner sans problème.

Si tu veux gérer le cas où la calculette hésite, tu peux procéder ainsi :

Code: Select all

colineai ()
Prgm
Input "Xa=",a
Input "Ya=",b
Input "Xb=",c
Input "Yb=",d
a*d-b*c -> e
Disp "Le déterminant vaut",e
Pause
Disp "Les vecteurs sont", when(e=0, "colinéaires","non colinéaires","colinéaires ssi "&string(e)&"=0")
EndPrgm

Pour l'explication, la fonction "when" prend 4 arguments (les 2 derniers étant optionnels): le premier est un test, les 3 suivants sont les résultats à renvoyer suivant que le test est vrai, faux ou indéterminé.

[seb1039]

Merci beaucoup pour l'aide et les explications! Je fais les modifications et je te tiens au courant.