\start83\
\comment=Programme fichier dat du 06/22/06, 20:20
\name=DEGRE2
\file=DEGRE2.TXT
ClrHome
Prompt A,B,C
B\^2\-4AC\->\D
Disp "DELTA=",D
If D\>=\0
Then
Input "NB DECIMALES :",N
Fix N
ClrHome
End
If D=0
Then
Disp "1 SOL. DOUBLE"
Disp "X1=X2=",\(-)\B/(2A)
Else
If D>0
Then
Disp "2 SOLUTIONS"
\(-)\B-\root\(D\->\N
\(-)\B+\root\(D\->\M
Disp "X1=",N/(2A)
Disp "X2=",M/(2A)
Else
Disp "PAS DE SOLUTION"
End
End
Float

\stop83\

