Programme pour calculer le discriminent puis les racines

[miiniimoyz]

Ok ... Alors en faite je suis vraiment pas doué ! --'
J'avais pas enregistré ... Je passais tout de suite à l'écran de calcul, sans avoir fait ce que disait plus haut AnToX98 ... (Merci beaucoup d'ailleurs)

Vraiment désolé ... grosse grosse erreur de ma part ... faute de gros débutant ><

AnTox98
Sinon, on pourrait avoir ton code ?

Le voici, c'est celui dit plus haut par Extra44

Code: Select all

Define delta(a,b,c)=
Func
:Local d
: d:=b^(2)-4*a*c
:Disp "Δ=",d
:If d<0 Then
:Disp "aucune solution"
:ElseIf d=0 Then
:Disp "1 solution double:x0=",((−b)/(2*a))
:ElseIf d>0 Then
:Disp "2 solutions : x1=",((−b-√(d))/(2*a))," et x2=",((−b+√(d))/(2*a))
:EndIf
:EndFunc

Merci beaucoup pour votre aide à tous !
Et Encore désolé ...