Le Forum de TI-BANK.fr

Le forum de la banque de programmes pour calculatrices graphiques Texas Instruments (aide débutants, résolution problèmes...).
Accueil­Portail­Calendrier­FAQ­Rechercher­S'enregistrer­Membres­Groupes­Connexion
Poster un nouveau sujet   Répondre au sujetPartager | 
 

 Besion pour la création d'un programme

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Skymant
Débutant
Débutant


Masculin Age: 19
Classe: Term STI Génie Civil
Calculatrice(s): Ti 83 plus
Messages: 4
Efficacité: 0
Date d'inscription: 19/04/2008

MessageSujet: Besion pour la création d'un programme   Sam 19 Avr - 12:13

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mic
Administrateur
Administrateur


Masculin Age: 25
Classe: Prof de Maths
Calculatrice(s): Voyage 200 & TI-Nspire CAS
Messages: 11452
Efficacité: 13
Localisation: Orléans
Date d'inscription: 07/09/2004

Divers
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 13:35

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%)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.ti-bank.fr
Skymant
Débutant
Débutant


Masculin Age: 19
Classe: Term STI Génie Civil
Calculatrice(s): Ti 83 plus
Messages: 4
Efficacité: 0
Date d'inscription: 19/04/2008

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 13:43

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mic
Administrateur
Administrateur


Masculin Age: 25
Classe: Prof de Maths
Calculatrice(s): Voyage 200 & TI-Nspire CAS
Messages: 11452
Efficacité: 13
Localisation: Orléans
Date d'inscription: 07/09/2004

Divers
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 13:49

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%)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.ti-bank.fr
Skymant
Débutant
Débutant


Masculin Age: 19
Classe: Term STI Génie Civil
Calculatrice(s): Ti 83 plus
Messages: 4
Efficacité: 0
Date d'inscription: 19/04/2008

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 14:02

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Mic
Administrateur
Administrateur


Masculin Age: 25
Classe: Prof de Maths
Calculatrice(s): Voyage 200 & TI-Nspire CAS
Messages: 11452
Efficacité: 13
Localisation: Orléans
Date d'inscription: 07/09/2004

Divers
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 14:36

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%)


Dernière édition par Mic le Sam 19 Avr - 18:28, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.ti-bank.fr
tama
Animateur
Animateur


Masculin Age: 18
Classe: oui. (2ème année à l'Epita, sinon)
Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Messages: 10280
Efficacité: 29
Localisation: Paris ... dans un rayon de 15 km
Date d'inscription: 19/12/2005

Divers
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 15:55

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tamast.actifforum.com/index.htm
Mic
Administrateur
Administrateur


Masculin Age: 25
Classe: Prof de Maths
Calculatrice(s): Voyage 200 & TI-Nspire CAS
Messages: 11452
Efficacité: 13
Localisation: Orléans
Date d'inscription: 07/09/2004

Divers
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 18:28

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%)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.ti-bank.fr
tama
Animateur
Animateur


Masculin Age: 18
Classe: oui. (2ème année à l'Epita, sinon)
Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Messages: 10280
Efficacité: 29
Localisation: Paris ... dans un rayon de 15 km
Date d'inscription: 19/12/2005

Divers
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 19:44

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tamast.actifforum.com/index.htm
Skymant
Débutant
Débutant


Masculin Age: 19
Classe: Term STI Génie Civil
Calculatrice(s): Ti 83 plus
Messages: 4
Efficacité: 0
Date d'inscription: 19/04/2008

MessageSujet: Re: Besion pour la création d'un programme   Dim 20 Avr - 18:53

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Animateur
Animateur


Masculin Age: 18
Classe: oui. (2ème année à l'Epita, sinon)
Calculatrice(s): TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Messages: 10280
Efficacité: 29
Localisation: Paris ... dans un rayon de 15 km
Date d'inscription: 19/12/2005

Divers
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Dim 20 Avr - 19:52

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tamast.actifforum.com/index.htm
Xywez
Animateur
Animateur


Masculin Age: 20
Classe: PSI
Calculatrice(s): Ti 84 + SE
Messages: 3877
Efficacité: 8
Localisation: Uranus
Date d'inscription: 11/05/2006

Divers
Dernière note en maths: ** biiiip **

MessageSujet: Re: Besion pour la création d'un programme   Mar 22 Avr - 9:43

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 

Besion pour la création d'un programme

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Le Forum de TI-BANK.fr :: Forum TIz80 :: Programmation-
Poster un nouveau sujet   Répondre au sujet