Bonjour tout le monde,

J'ai juste un problème avec un programme sur une TI89 titanium.
La majeure partie des gens que je connais possède une TI82 ou une TInspire et ne peuvent pas m'aider.

le problème est simple: mon programme fonctionne jusqu'au calcul du discriminant mais ne me calcule pas les racines, il affiche simplement quand il n'y en a pas.

Voila le programme que j'ai entré: (j'écrirais racine carrée en toute lettres :  D  )
: Prgm
:0->a
:0->b
:0->c
:  Promp a
: Promp b
: Promp c
:b^2-4*a*c->d
: Disp "DELTA=",d
: Pause
:If d>0 Then
: Disp "DEUX RACINES:",(-b-racine carrée(d))/(2*a) and (-b+racine carrée(d))/(2*a)
:Else:If d=0 Then
: Disp "UNE RACINE REELLE:",-b/(2*a)
:Else:If d<0 Then
: Disp "AUCUNE RACINE REELLE"
:EndIf
:EndPrgm

ensuite, ça affiche"l'argument doit être une expression booleenne ou un entier
Lorsque ça me ramène au programme pour le corriger il me place (au niveau des *):
: Pause
:If d>0 Then
:*******Disp "DEUX RACINES:",(-b-racine carrée(d))/(2*a) and (-b+racine carrée(d))/(2*a)
:Else:If d=0 Then

quel est exactement le probleme??? pourquoi ça ne marche pas?
HELP

édit Océane : smileys involontaires effacés