Programme équation second degré

[Max84]

Bonjour,
Je suis en train de programmer ma calculette pour qu'elle résolve des équations du second degré.
Or, deux erreurs de syntaxe apparaissent.

Voici mon programme:

Code: Tout sélectionner

Define pol()
Prgm
Local a,b,c,d
Request "A=",a
Request "B=",b
Request "C=",c
d=b²-4*a*c
If d>0
   Local x1,x2
   x1 = -b-√d/2a
   x2 = -b+√d/2a
   Disp "x1=",x1
   Disp "x2=",x2

Elseif d=0
   Local x
   x = -b/2a
   Disp "x=",x
   
Else d<0
   Disp"pas de solution"
Endif

End Prgm


[Laurae]

Premièrement, essaies de mettre les "Local" tout en haut à chaque fois (en-dessous de "Prgm")
Après, tu ne peux pas mettre de conditions après un "Else" (il faut un "Elseif").
Par ailleurs, il te manque un "Then" après la condition du "If".
Ensuite, il te faut des ":=" à la place des "=" pour affecter une valeur à une variable.

Suis ces indications, et normalement il ne devrait plus y avoir de problèmes

[critor]

En TI-Basic les affectations ne se font pas avec '=' mais avec ':='.
'=' tout seul c'est juste pour tester une égalité.

[diot]

essaye ça :

Code: Tout sélectionner

    Define pol()
    Prgm
    Local a,b,c,d
    Request "A=",a
    Request "B=",b
    Request "C=",c
    d=b²-4*a*c
    If d>0
       Local x1,x2
       -b-√d/2a ->x1
       -b+√d/2a ->x2
       Disp "x1=",x1
       Disp "x2=",x2
    End if
    if d=0
       Local x
       -b/2a -> x
       Disp "x=",x
   End if   
   if d<0
       Disp"pas de solution"
    Endif

    End Prgm

[Max84]

J'ai rajouté les := qui manquaient
J'ai rajouté les Endif à la fin des If (et j'ai changé Else par Elseif)
Il faut des Thens ?
Mon erreur: "Missing start or end of block syntax"

[critor]

Il te manque les 'then' après les conditions des 'if', nécessaires dès qu'il y a plusieurs instructions à exécuter.

[Max84]

J'ai toujours la même erreur :/

[critor]

On peut avoir ta dernière version du code stp?

[Bisam]

Voici ton programme corrigé :

Code: Tout sélectionner

Define pol()
Prgm
Local a,b,c,d,x,x1,x2
Request "A=",a
Request "B=",b
Request "C=",c
d:=b²-4*a*c
If d>0 Then
   x1 := -b-√d/(2a)
   x2 := -b+√d/(2a)
   Disp "x1=",x1
   Disp "x2=",x2
Elseif d=0 Then
   x := -b/(2a)
   Disp "x=",x
Else
   Disp "pas de solution"
Endif
EndPrgm


L'erreur de programmation qui ne t'avait pas encore été signalée était d'avoir mis une condition après le "Else".
Tu peux l'écrire en commentaire (en mettant [2nd][X] devant), si tu le veux, mais elle ne doit pas apparaître comme instruction du programme.

Enfin, les erreurs mathématiques étaient d'avoir oublié toutes les parenthèses aux dénominateurs...

[Max84]

Je viens te taper ton code, mais j'ai toujours la même erreur:

"Missing start or end of block syntax"

:/