Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Equations de droites: devenez un As!
Auteur Message
cam!
Invité
Posté le : Mer 18 Mai 2011, 22:29   Citer 

Trouver X en connaissant Y?
Trouver Y en connaissant X?
Trouver A et B?? ahh.gif...bigmouth.gif !!!

Bonjour,je reviens avec un nouveau programme que j'ai fais cet aprème,Disp" au soleil'. Pas mal? Vous en avez mare chaque fois de faire yb-ya/xb-xa?
Je suis la? Alors même si n'importe qui pourrait le faire, j'aime faire et je vous montre sans tarder ceci!
Existe en version moin soulante (on peut reentrer les valeurs de x et y par exemple sans avoir a re-entrer a et b (dans un exo par exemple), mais la demain ya cours et c'est pas le moment...^^), enfin bref je mettrais sans tarder cette nouvelle version.
Jespere que des membres du forum pourront m'aider a l'aleger,si besoin.

J'en profite pour remercier ceux qui m'ont aidé sur mon generateur de foret.


Code

Disp"Fait par Cam!, éleve de seconde"
For(L,1,100)
Codetouche->K
If K>0:randbin(30,50)
End

"Petite peur si quelqu'un ose essayer quitter le corprigth" (et oui j'ai vraiment pas trouve mieux a mettre x)"

Lbl0
Efferan
Menu("","trouver Y",X,"trouver X",Y,"Trouver AetBenconnaissantXA...etc",D'"Valeur a 0",B,"quitter",9
Lbl9:Stop
LblB:0->X:0->Y:0->A:0->B:Goto0
LblD
Prompt "XA=",A
Prompt "YA=",B
Prompt "XB=",C
Prompt "YB=",D'
If (C-A)//egal-barre//0
(Car la ti de quiconque affiche "division par 0 impossible", essayez et vous verrez, c'est arrive alors que je faisais un exo de maths ^^)
Then
(D-B)/(C-A)->D
Else
(D-B)->D
End
Effercan
Disp"A=",D
Pause
B-(D*A)->E
Disp"B=",E:Pause
Goto0

LblY
Prompt "A",A
Prompt "B"B
Pause
Effecr
Prompt "Y",Y
(Y-B)/A->X
Disp"X=",X
Pause
Goto0

LblX
Pormpt "A=",A
Prompt "B=",B
Pause
Effecran
Prompt "X="X
AX+B->D'
Effecran
Disp X,"->",D
Output(4,4,"Y=
Output(4,7,D
Pause
Goto0



  Haut de page Bas de page 
 
tilo1996



Autorisation : Membre
Nb de messages : 129
Inscrit le : Sam 23 Avr 2011, 10:47
Posté le : Jeu 19 Mai 2011, 12:51   Citer 

A mon avis ta pas du le tester parce que ces quatres ligne la calto ne sais pas quoi en faire:


Code
Prompt "XA=",A
Prompt "YA=",B
Prompt "XB=",C
Prompt "YB=",D'


Il faut remplacer prompt par input pour que ça marche. Jajoute que ça ressemble un peu au prog que jai posté il y a quelques jours.. A part que celui la fait plus de chose bien sur :p

----------------------
http://tchat-tout82.webuda.com/
 Adresse email Haut de page Bas de page 
 
cam!
Invité
Posté le : Jeu 19 Mai 2011, 21:34   Citer 

Yep! Je l'ai fait hier aprem, et quand je suis arrive sur le site, j'ai remarque ton programme...mais j'avais une fole envie de poster celui-ci! bigmouth.gif
Et aufait, c'est imput t'a raison.
Aller, une nouvelle version, une grosse mise a jour.


Code

0->K
Disp"Fait par Cam!, éleve de seconde"
For(L,1,100)
Codetouche->K
If K>0:randbin(30,50)
End
Lbl0
Efferan
Menu("","trouver Y",X,"trouver X",Y,
"Trouver A-ET-B",D,"AappartientaD?",C"quitter",9
Lbl9:Stop
LblD
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D'
If (C-A)!=0
Then
(D-B)/(C-A)->D
Else
(D-B)->D
End
Effercan
Disp"A=",D
Pause
B-(D*A)->E
Disp"B=",E:Pause
Menu("","REFAIRE",D,"RETOUR",0

LblY
Input "A",A
Input "B"B
Pause
LblT
Effecr
Input "Y",Y
(Y-B)/A->X
Disp"X=",X
Pause
Menu("","retaperY",T,"RETOUR",0

LblX
Input "A=",A
Input "B=",B
Pause
LblU
Effecran
Inputt "X="X
AX+B->D'
Effecran
Disp X,"->",D
Output(4,4,"Y=
Output(4,7,D
Pause
Menu("","RETAPER-X",U,"RETOUR",0

LblC
Input"a=",A
Input"b=",B
LblR
Effecr
Input "x(point)=",X
Input "Y(point)=",Y
Effecran
AX+B->C
If C=Y
Then
Disp"A appartient bien a la droite d"
Else
Disp"A n'appartient pas a la droite d"
End
Pause
Menu("","essayer un autre point",R,"RETOUR",0)




  Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 20 Mai 2011, 15:19   Citer 

tu pourrait l'obtimiser:
Code

EffVar KDisp"Fait par Cam!,","éleve de seconde       //ici
For(L,1,100                         //ici
Codetouche->K
If K>0:randbin(30,50                     //ici
End
Lbl0
Efferan
Menu("","trouver Y",X,"trouver X",Y,
"Trouver A-ET-B",D,"AappartientaD?",C"quitter",9
Lbl9:Stop
LblD
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D
If (C-A !=0        //ici
Then
(D-B)/(C-A->D         //ici
Else
D-B ->D            //ici
End
Effercan
Disp"A=",D
Pause
B-DA ->E            //ici
Disp"B=",E:Pause
Menu("","REFAIRE",D,"RETOUR",0

LblY
Input "A",A
Input "B",B         //il manquait la virgule entre "B" et B
Pause
LblT
Effecr
Input "Y",Y
A[x puissance -1](Y-B->X    //ici
Disp"X=",X
Pause
Menu("","retaperY",T,"RETOUR",0

LblX
Input "A=",A
Input "B=",B
Pause
LblU
Effecran
Inputt "X=",X
AX+B->D
Effecran
Disp X,"->",D
Output(4,4,"Y=
Output(4,7,D
Pause
Menu("","RETAPER-X",U,"RETOUR",0

LblC
Input"a=",A
Input"b=",B
LblR
Effecr
Input "x(point)=",X
Input "Y(point)=",Y
Effecran
AX+B->C
If C=Y
Then
Disp"A appartient bien a la droite d"
Else
Disp"A n'appartient pas a la droite d"
End
Pause
Menu("","essayer un autre point",R,"RETOUR",0)



Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 21 Mai 2011, 0:13   Citer 

Remplacez tous les Input par des Prompt

Code
Input "A",A

Prompt A



Les suppressions de parenthèses sont faciles.
Il y a un truc pour lequel c'est "insuffisant" :
Code
If (C-A !=0

If C-A



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa