Bonjour,
Voila je cherche un programme pour ma calculette pour résoudre des calcul du second degré sans cable. J'ai trouver ça sur tout82.free que je n'arrive pas à déchiffrer (j'ai jamais fait de programmation auparavant):
:ClrHome
:Disp "Ax²+Bx+C=0"
:Input "A ",A
:Input "B ",B
:Input "C ",C
:ClrHome
:If A=0
:Then
:Output(3,3,"CE N EST PAS")
:Output(5,3,"DU 2ND DEGRE")
:Pause
:Goto C
:End
:B²-4AC -> D
:Output(1,1,"DELTA =")
:Output(1,9,D)
:If D>0
:Then
:Output(2,1,"2 SOLUTIONS")
:((-)B+[Racine carrée]D)/2A -> F
:((-)B-[Racine carrée]D)/2A -> G
:Output(4,1,"S1=(")
:Output(4,5,(-)B)
:Output(4,8,"+[Racine carrée]")
:Output(4,10,D)
:Output(4,12,")/")
:Output(4,14,2A)
:Output(6,1,"S2=(")
:Output(6,5,(-)B)
:Output(6,8,"-[Racine carrée]")
:Output(6,10,D)
:Output(6,12,")/)
:Output(6,14,2A)
:Output(8,1,"SOIT...")
:Pause
:ClrHome
:Disp "S1 =",F>Frac,"S2 =",G>Frac
:Pause
:ClrHome
:Disp "X1+X2 = ",(-)(B/A)>Frac,"X1*X2 = ",C/A>Frac
:End
:If D<0
:Then
:Menu("ENSEMBLE","REELS",A,"COMPLEXES",B)
:Lbl A
:Output(2,1,"AUCUNE SOLUTION")
:Goto E
:Lbl B
:Output(2,1,"2 SOLUTIONS")
:Output(4,1,"S1=(")
:Output(4,5,(-)B)
:Output(4,8,"+I[Racine carrée]")
:Output(4,11,(-)D)
:Output(4,13,")/")
:Output(4,15,2A)
:Output(6,1,"S2=(")
:Output(6,5,(-)B)
:Output(6,8,"-I[Racine carrée]")
:Output(6,11,(-)D)
:Output(6,13,")/)
:Output(6,15,2A)
:Pause
:Goto C
:End
:If D=0
:Then
:Output(2,1,"1 SOLUTION")
:(-)(B/(2A)) -> E
:Output(4,1,"S=")
:Output(4,3,(-)B)
:Output(4,6,"/")
:Output(4,7,2A)
:Output(6,1,"SOIT...")
:Pause
:ClrHome
:Disp "S = ",E>Frac
:End
:Lbl E
:Pause
:ClrHome
:Menu("GRAPHIQUE","NON",C,"OUI",D)
:Lbl D
:StoreGDB GDB5 (* pour les TI-82 STATS ":StoreGDB 5" *)
:"Ax²+Bx+C" -> Y1 (* "X" de la touche [X,T,[THETA]] *)
:ZStandard
:DispGraph
:Text(0,0,"SOMMET :")
:Text(6,0,"X = ",(-)(B/2A))
:Text(12,0,"Y = ",Y1((-)(B/2A)))
:Pause
:RecallGDB GDB5 (* pour les TI-82 STATS ":RecallGDB 5" *)
:Lbl C
:ClrHome
Merci de bien vouloir m'aider, et si cette question a déjà été posée, merci de bien vouloir m'indiquer un lien.