Je me permets tout de même de corriger et améliorer un peu le programme fourni ci-dessus :
- Code: Select all
Define delta(a,b,c)=Func
Local d
If a=0 Then
Disp "Il faut a non nul"
Return
Endif
d:=b^2-4a*c
Disp "Le discriminant vaut", d
If d<0 Then
Disp "Aucune racine réelle"
ElseIf d=0 Then
Disp "Une seule racine",-b/(2*a)
Else
Disp "2 racines réelles", (-b-sqrt(d))/(2*a), (-b+sqrt(d))/(2*a)
Endif
EndFunc