| Besion pour la création d'un programme |    |
|
|
| Auteur | Message |
|---|
Skymant
Débutant
  
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil
|  Sujet: 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. |
|
 | |
Mic
Administrateur
 
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)
Dernière note en maths: -/20
| |
| | |
Skymant
Débutant
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil
| | Sujet: 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. |
|
| | |
Mic
Administrateur
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)
Dernière note en maths: -/20
| |
| | |
Skymant
Débutant
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil
| | Sujet: 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 ? |
|
| | |
Mic
Administrateur
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)
Dernière note en maths: -/20
| | Sujet: 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 |
|
| | |
tama
Animateur
 
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)
Dernière note en maths: 13/20
| | Sujet: 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) |
|
| | |
Mic
Administrateur
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)
Dernière note en maths: -/20
| |
| | |
tama
Animateur
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)
Dernière note en maths: 13/20
| | Sujet: 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) |
|
| | |
Skymant
Débutant
Age : 18
Inscrit le : 19 Avr 2008
Messages : 4
Calculatrice : Ti 83 plus
Classe : Term STI Génie Civil
| | Sujet: 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. |
|
| | |
tama
Animateur
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)
Dernière note en maths: 13/20
| | Sujet: 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) |
|
| | |
Xywez
Animateur
 
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)
Dernière note en maths: 18/20 au bac (et en spé maths bien sur!!)
| | Sujet: 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 |
|
| | |
| Besion pour la création d'un programme | |
|
