Trouver X en connaissant Y?
Trouver Y en connaissant X?
Trouver A et B?? ... !!!
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
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
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!
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
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)
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
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 21 Mai 2011, 0:13
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)
...
!!!
