- Code: Select all
δ:=b^(2)-4*a*c:Disp "∆=",δ:If δ>0 Then:Disp "Deux racines distinctes:",((−b-√(δ))/(2*a)),((−b+√(δ))/(2*a)):ElseIf δ=0 Then:Disp "Une racine double:",((−b)/(2*a)):Else:Disp "Aucune racine":EndIf
(copie le dans le logiciel, ce sera plus joli)