Rhumkill le 27/04/2013 à 14:40
Salut à tous,
Je vous présente mon nouveau programme permettant de résoudre les équations du second degrés. Il ne pèse
375 octets pour beaucoup de fonctionnalité !
Fonctionnalités :
Détermine à partir de la forme canonique, factorisé ou développé :
- Alpha
- Beta
- A/B/C
- Delta
- Les racines
code :
Code
:Menu("menu","factorise",1,"developpe",2,"canonique",3)
:lbl 1
:prompt a
:input "x1:",u
:input "x2:",v
:-av-au->b
:auv->c
:goto 3
:lbl 2
:Prompt a,b,c
:lbl 3
:(-b)/(2a)->y
:ay²+by+c->z
:goto 5
:lbl 4
:prompt a
:Input "alpha:",y
:input "beta:",z
:-2ya->b
:y²a+z->c
:lbl 5
:Disp "a",a
:Disp "b",b
:Disp "c",c
:b²-4ac->d
:pause
:Disp "alpha",y
:Disp "beta",z
:pause
:Disp "delta:",d
:pause
:disp "Racine(s)"
:if D>0:then
:(-b-V(d))/(2a)->u
:(-b+V(d))/(2a)->v // ici V c'est Racine carré
:Disp "x1:",u
:Disp "x2:",v
:end
:if d=0
:Disp "alpha",y
:if d<0
:Disp "Pas de racine"
Il vous permettra de gagner beaucoup de temps dans les études de fonctions et de vérifier vos réponses. Enjoy it !
linkakro le 27/04/2013 à 16:08
Cela fait plaisir de voir quelqu'un qui élabore ses applications de formulaires tout seul.
En plus ce programme est pratique.
Mais à quoi sert le Lbl 4 qui ne reçoit aucun Goto ni le menu ?
Je crois que le menu doit pointer vers 4 au lieu de 3.
J'aime bien quand le programme rappelle l'équation dont on identifie les paramètres. J'ajoûterai des Disp en conséquence.
Soit plus attentif à la casse du code. Les majuscules/minuscules ne sont pas toutes disponibles sur ti82(stat(fr)), et des copier/coller peuvent être facilités, cela augmente l'intérêt qu'on y porte.
Code
:Menu("DEPART","FACTORISE",1,"DEVELOPPE",2,"CANONIQUE",4
:Lbl 1
:Disp "A(X-U)(X-V)
:Prompt A
:Input "x1:",U
:Input "x2:",V
:-AV-AU->B
:AUV->C
:Goto 3
:Lbl 2
:Disp "AX²+BX+C
:Prompt A,B,C
:Lbl 3
:(-B)/(2A)->Y
:AY²+BY+C->Z
:Goto 5
:Lbl 4
:Disp "A(X-ALPHA)²+BETA
:Prompt A
:Input "ALPHA:",Y
:Input "BETA:",Z
:-2YA->B
:Y²A+Z->C
:Lbl 5
:Disp "A",A
:Disp "B",B
:Disp "C",C
:B²-4AC->D
:Pause
:Disp "ALPHA",Y
:Disp "BETA",Z
:Pause
:Disp "DELTA:",D
:Pause
:Disp "RACINE(S)"
:If D>0:Then
:(-B-V(D))/(2A)->U
:(-B+V(D))/(2A)->V // ici V c'est Racine carré
:Disp "x1:",U
:Disp "x2:",V
:End
:If D=0
:Disp "ALPHA",Y
:If D<0
:Disp "PAS DE RACINE"
Rhumkill le 27/04/2013 à 18:52
Citation
Mais à quoi sert le Lbl 4 qui ne reçoit aucun Goto ni le menu ?
Je crois que le menu doit pointer vers 4 au lieu de 3.
Oui c'est une erreur de frappe.
Citation
Soit plus attentif à la casse du code. Les majuscules/minuscules ne sont pas toutes disponibles sur ti82(stat(fr)), et des copier/coller peuvent être facilités, cela augmente l'intérêt qu'on y porte.
En effet, personnellement je n'ai pas le matériel pour copier/coller donc je n'y ai pas pensé, je ferais attention la prochaine fois.
