Algorithlme ,racine(s) d'un fonction TI-89 !!Résolu/Fermé

Question

Bonjour, 
J'ai essayé de créer un algorithme trouver les racine d'une fonction sur ma TI-89 mais il ne fonctionne pas correctement j'aurais besoin d'une correction .
prgm
prompt a,b,c
b^2-4*a*c=D
disp "Delta",d
pause
if d   (superieur à) 0
then 
(-b+(racine carré:d)/2a =S1
(-b-(racine carré:d)/2a =S2
disp "s1",S1
disp"s2",S2
elseif d=0
then
-b/2a=s3
disp "S3",s3
Else
disp "pas de solution"
Endif 
end prgrm


(au lancement on m'annonce :"then manquant de le block if...endif)
et la je bloque 
si vous pourriez m'aider :)
merci d'avance




Configuration: Windows 7 / Safari 535.1

KX · Answer

Algorithmiquement il n'y a pas de problème, après je ne connais pas la syntaxe de la TI mais je ne suis pas certain que elseif (en un mot) existe, si tu veux dire else if, dans ce cas tu vas devoir fermer deux endif :

Prgm
Prompt a,b,c
b^2-4*a*c=D
Disp "Delta",d
Pause
If d>0
Then
    (-b+(Racine:d)/2a = s1
    (-b-(Racine:d)/2a = s2
    Disp "s1",s1
    Disp"s2",s2
Else
    If d=0
    Then
        -b/2a = s3
        Disp "S3",s3
    Else
        Disp "pas de solution"
    Endif
Endif
End Prgm
Remarque : d'un point de vue puremement mathématiques, si le discriminant delta est inférieur à 0 il existe deux solutions complexes conjuguées :

If d<0
Then
    (-b+i(Racine:(-d)))/2a = s4
    (-b-i(Racine:(-d)))/2a = s5
    Disp "s4",s4
    Disp "s5",s5
Endif

Algorithlme ,racine(s) d'un fonction TI-89 !!

1 réponse

Discussions similaires

Newsletters