Faites-moi signe si vous pensez l'améliorer (du genre, qu'il affiche sous forme de fraction et voire avec les racines comme cette forme:
(-B-√Δ)/(2A) et (-B+√Δ)/(2A))
- Code:
EffEcr
Input "A=",A
Input "B=",B
Input "C=",C
B²-4AC->D
EffEcr
If A=/=0
Then
If D>0
Then
(-B-racine(D)/(2A)->E
(-B+racine(D)/(2A)->F
Disp "LE TRINOME A","DEUX RACINES"
Output(3,1,"X1="
Output(3,4,E
Output(4,1,"X2="
Output(4,4,F
Else
If D=0
Then
-B/(2A)->G
Disp "LE TRINOME A","UNE RACINE"
Output(3,1,"X0="
Output(3,4,G
Else
Disp "LE TRINOME N'A","PAS DE RACINE"
End
End
Else
Disp "OPERATION IMPOSS","IBLE"
End