Programme sur les déterminants pas si simple

→ **MyCalcs** profile · de **seb1039** » 29 Aoû 2013, 14:18

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: Tout sélectionner: 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?

→ **MyCalcs** profile · de **Bisam** » 30 Aoû 2013, 09:52

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: Tout sélectionner: 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é.