\START82\
\COMMENT=Modif 19/12/04 jcm
\NAME=DEGRE2
\FILE=D:\WINLINK\SAV_JC~2\DEGRE2.82P
: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-\sqrt\D\->\N
:\(-)\B+\sqrt\D\->\M
:Disp "X1=",N/(2A)
:Disp "X2=",M/(2A)
:Else
:Disp "PAS DE SOLUTION"
:End
:End
:Float
\STOP82\
