Besion pour la création d'un programme

[Skymant]

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.

[Skymant]

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.

[Skymant]

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 ?

[tama]

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

[tama]

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

[Skymant]

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.

[tama]

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,"

[ced78fr]