Ti 83+

Salut! Voici le mien qui marche très bien.Il donne aussi les valeurs dans les complexes
petites info: il existe une flèche sur ta calculette que je représenterai par: ->
il existe aussi une touche racine que je représenterai par: racine
il existe encore une touche i pour les complexes que je représenterai par: i

si tu le recopies à la lettre il devrait marcher


:delta
:Prgm
:Disp " BONJOUR"
:Pause
:Disp" Entrez Les Valeurs"
:Disp" de a,b,c:"
:b^2-4*a*c->d
:Disp "delta=b²-4ac"
:Disp "delta=",d
:Pause
:If d<0 Then
:Disp "delta<0 donc pas de solution dans R"
:Disp"x'=(-b+iracine(-delta))/2a",(-b+i*racine(-d))/(2*a)
:Disp"x''=(-b-iracine(-delta))/2a",(-b-i*racine(-d))/(2*a)
:Else
:If d=0 Then
:Disp "Delta nul"
:Disp "Une racine double"
:Disp "x=-b/(2a)",-b/(2*a)
:Else
:Disp "x'=(-b+racine(delta))/2a",(-b+racine(d))/(2*a)
:Disp"x''=(-b-racine(delta))/2a",(-b-racine(d))/(2*a)
:EndIf
:EndIf
:EndPrgm

Et voilà ce programme te suivra toute ta vie

Il y a un problème avec ton programme , La calculatrice affiche erreur:syntaxe au niveau du If D<0 Then , y'a un problème avec le " then " ... comment je dois faire :S

tu dois l'écrire comme ceci:

:If D<0
:Then
ect

pareil pour:

:If D=0
:Then
etc

perso j'ai utiliser ce que tu as mis met j'ai du faire quelque changements pour que ça marche parfaitement.

PS: pour
:EndIf
:EndIf
:EndPrgm
sa marchait pas non plus (erreur) alors j'ai enlevé ces 3 ligne et sa marche. Il y a d'autre truc encor mais je me souviens plus.