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
:Disp "DISTANCE",D
:Pause
:tan-1(X,Y)/0,9->G
:Disp "Gisement",G

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

**Mic**

Tu veux faire quoi exactement ?

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

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.

**Mic**

Etrange. Mais ça veux dire quoi ce arctan x virgule y ?

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

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
:Disp "DISTANCE",D
:Pause
:tan-1(X,Y)/0,9->G
:Disp "Gisement",G
:

la condition serait un truc du genre

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

Je la met ou ?

**Mic**

Ba tu le mets avant d'afficher ton G :

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

A la ligne if Y, il faut bien sur une condition sur Y que tu n'as pas mise, du genre if Y>200.

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

**tama**

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

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

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

**Mic**

euh oui bien sûr, j'avais pas fait gaffe.

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

**tama**

Sinon, tu peux optimiser les lignes
:Disp "DISTANCE",D
:Pause

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

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

Skymant

Donc voilà je pense que c'est bon.

ClrHome
:Input "X:",X
:Input "Y:",Y
:[racine](X²+Y²)->D
:Disp "DISTANCE",D
:Pause
:tan-1(X/Y)/0,9->G
:if Y<0
:Then
:G+200->G
:Else
:G
:End
:Disp "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
:Disp "DISTANCE",D
:Pause
:tan-1(X/Y)/0,9->G
:if Y<0
:Then
:G+200->G
:Else
:G
:End
:Disp "Gisement",G
:Outpu(1,1,"

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

**Xywez**