Forum TI-Planet.org

Bonjour, je suis en train de faire un programme simple pour calculer des gisements et des distances.

Je suis bloqué car je ne sais pas comment reprendre les valeurs précédentes.

:ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)-D
isp "DISTANCE",D
ause
:tan-1(X,Y)/0,9-G
isp "Gisement",G

Si quelqu'un pourrais m'aider ça serais sympas, merci.

Bah enfaite il me manques le lien pour pouvoir réutiliser les valeurs X et Y. Après le pause ça marche plus. Pas très explicite mais bon.

En effet, c'est un divisé normalement, j'ai trouvé l'erreur merci, vraiment trop bête.
Par contre je voudrais mettre une condition du genre.

:ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)-D
isp "DISTANCE",D
ause
:tan-1(X,Y)/0,9-G
isp "Gisement",G
:


la condition serait un truc du genre

:if Y:Then
:G+200
:Else
:G
:End

Je la met ou ?

hmm, ça serait :
ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)-D
isp "DISTANCE",D
ause
:tan-1(X/Y)/0,9-G
:if Y
:Then //inutile
:G+200-G
:Else //inutile
:G //inutile
isp "Gisement",G

et si tu veux utiliser if...then...else, n'oublies pas le End, après la ligne "G" ici

Sinon, tu peux optimiser les lignes
isp "DISTANCE",D
ause

en
isp "DISTANCE //inutile de fermer les guillemets ici, la TI s'en chargera toute seule
ause D //affiche D puis pause

Donc voilà je pense que c'est bon.

ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)-D
isp "DISTANCE",D
ause
:tan-1(X/Y)/0,9-G
:if Y:Then
:G+200-G
:Else
:G
:End
isp "Gisement",G
:Outpu(1,1,"

Merci pour l'aide, je vais essayer de faire d'autres petits programmes maintenant.

certaines lignes sont inutiles (en gras) :

ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)-D
isp "DISTANCE",D
ause
:tan-1(X/Y)/0,9-G
:if Y:Then
:G+200-G
:Else
:G
:End
isp "Gisement",G
:Outpu(1,1,"