Bonjour,
Je travaille sur un programme qui résout une équation de second degré, qui donne sa forme canonique, sa forme factorisée et son signe. J'ai un petit problème, la calculette m'affiche une forme décimal au lieu d'une forme de fraction.
Lbl P
EffÉcran
0->T
Lbl N
EffÉcran
Prompt A
If A=0
Then
Disp "A doit être différent de 0"
Pause
Goto N
End
Prompt B
Prompt C
prgmCAN
prgmCANB
prgmCANC
(B²)-4*A*C->D
If D>0
Then
(B-rac(D))/(2*A)->E
prgmCANE
(B+rac(D))/(2*A)->F
prgmCANF
Disp "Les racines sont:",E>Frac Ici il donne forme décimal
Pause F>Frac Ici aussi
End
If D=0
Then
(B)/(2*A)->O
prgmCANO
Disp "La racine est:",O>Frac Ici aussi
Pause
End
If D<0
Then
Pause "Il n'y a pas de solution."
Goto 0 avec barre au milieu(Alpha-3);
End
Menu("Forme canonique?","Oui",R,"Non",W
Lbl R
Pause Chn1+"(X+("+Chn2+"(2*"+Chn1+")))²-("+Chn2+"²-4*"+Chn1+"*"+Chn3+"(4*"+Chn1+"))"
Goto W
Lbl W
Menu("Forme factorisée?","Oui",G,"Non",MO
Lbl G
Menu("Entrer X?","Oui",K,"Non",L
Lbl K
1→T
Prompt X
prgmCANX
Disp X
If D=0
Then
Pause Chn1+"("+Chn0+"-"+Chn7+")²"
Goto M
End
If D>0
Then
Pause Chn1+"("+Chn0+"-"+Chn5+")("+Chn0+"-"+Chn6+")"
Goto M
Lbl L
If D=0
Then
Pause Chn1+"(X-"+Chn7+")²"
Goto M
End
If D>0
Then
Pause Chn1+"(X-"+Chn5+")(X-"+Chn6+")"
Lbl M
Menu("Calculer le signe?","Oui",Y,"Non",Z
Lbl Y
If T=1
Then
Goto I
End
If T=0
Then
Goto J
End
Lbl I
If D<0 et (A-(√((A)²)))=0
Then
Pause "La fonction est strictement positive "
Goto Z
End
If D<0 et (A-(√((A)²)))≠0
Then
Pause "La fonction est strictement négative"
Goto Z
End
If D=0 et X=(B(2*A))
Then
Pause "La fonction est nul pour tout réel de X"
Goto Z
End
If D=0 et (A-(√((A)²)))=0
Then
Pause "La fonction est strictement positive"
Goto Z
End
If D=0 et (A-(√((A)²)))≠0
Then
Pause "La fonction est strictement négative"
Goto Z
End
If D>0 et (A-√((A)²))=0
Then
Pause "Fonction positive pour X appartient à: ]OO;"+Chn5+"[U]"+Chn6+";+OO["
Goto Z
End
If D>0 et (A-(√((A)²))≠0
Then
Pause "Fonction négative pour X appartient à: ]oo;"+Chn5+"[U]"+Chn6+";+oo["
Goto Z
End
Lbl MO
Menu("Calculer signe?","Oui",U,"Non",Z
Lbl J
Pause "On doit savoir X"
Lbl θ
Menu("ENTRER X?","Oui",U,"Non",Z
Lbl U
Prompt X
Goto I
Lbl Z
Menu("Autre opération?","Oui",P,"Non",Q
Lbl Q
Stop
Les prgm CAN me permettent d'utiliser des chaines de caractères.
