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...).
AccueilPortailCalendrierFAQRechercherS’enregistrerConnexion
Poster un nouveau sujet   Répondre au sujet
 Besion pour la création d'un programmeVoir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Skymant
Débutant



Sexe:MasculinVerseauCheval
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil

MessageSujet: Besion pour la création d'un programme   Sam 19 Avr - 13: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
Mic
Administrateur
Administrateur


Sexe:MasculinGémeauxRat
Age : 24
Inscrit le : 07 Sep 2004
Messages : 9752
Localisation : Talence
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prépa Oral CAPES Maths


Impureté:
56/450  (56/450)
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 14: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
Skymant
Débutant



Sexe:MasculinVerseauCheval
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 14: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
Mic
Administrateur
Administrateur


Sexe:MasculinGémeauxRat
Age : 24
Inscrit le : 07 Sep 2004
Messages : 9752
Localisation : Talence
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prépa Oral CAPES Maths


Impureté:
56/450  (56/450)
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 14: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
Skymant
Débutant



Sexe:MasculinVerseauCheval
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 15: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
Mic
Administrateur
Administrateur


Sexe:MasculinGémeauxRat
Age : 24
Inscrit le : 07 Sep 2004
Messages : 9752
Localisation : Talence
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prépa Oral CAPES Maths


Impureté:
56/450  (56/450)
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 15: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 - 19:28, édité 1 fois
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 16
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 16: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
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
Mic
Administrateur
Administrateur


Sexe:MasculinGémeauxRat
Age : 24
Inscrit le : 07 Sep 2004
Messages : 9752
Localisation : Talence
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prépa Oral CAPES Maths


Impureté:
56/450  (56/450)
Dernière note en maths: -/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 19: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
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 16
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Sam 19 Avr - 20: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
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
Skymant
Débutant



Sexe:MasculinVerseauCheval
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil

MessageSujet: Re: Besion pour la création d'un programme   Dim 20 Avr - 19: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
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 16
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20

MessageSujet: Re: Besion pour la création d'un programme   Dim 20 Avr - 20: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,"
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
Xywez
Animateur
Animateur


Sexe:MasculinBalanceSerpent
Age : 18
Inscrit le : 11 Mai 2006
Messages : 3021
Localisation : Paris
Calculatrice : Ti 84 + SE
Classe : 1ère année ISEP (après une PCEM1)


Impureté:
32/450  (32/450)
Dernière note en maths: 18/20 au bac (et en spé maths bien sur!!)

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


_________________


Je met ici à dispo MA sélection pour le bac : ici
Revenir en haut Aller en bas
Besion pour la création d'un programmeVoir 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