[Résolu] Problème algo dichotomie TI83+ z80

[f(theo)]

Hello,
je dois coder cet algorithme sur ma Ti 83 premium CE :

Code: Select all

Saisir un entier naturel N
Saisir 2 nombres négatifs A et B tels que A<B
Pour I allant de 1 à N
   Affecter à M la valeur de (A+B)/2
   Affecter à F la valeur de A³-3A²-2a+6
   Affecter à K la valeur de M³-3M²-2M+6
   Si F*K<0
      Alors affecter à B la valeur de M
      Sinon effacter à A la valeur de M
   Fin Si
Fin Pour
Afficher A et B


Voici ce que ça donne en Basic sur Ti :

Code: Select all

Prompt N
Prompt A,B
For(I,1,N)
((A+B)/2)→M
(A^3-3A^2-2*A+6)→F
(M^3-3M^2-2*M+6)→K
If K*F<0
Then
M→B
Else
M→A
End
Disp A
Disp B


Seulement ça ne fonctionne pas... Quelqu'un pourrait m'aider please ?

[Wistaro]

Bonsoir,

C'est à dire ça ne fonctionne pas? Tu as un message d'erreur?

[f(theo)]

Oui,
ça me dit de vérifier les arguments et quand je clique sur voir
ça me pointe sur le "Else"

[GalacticPirate]

Tu as oublié un End à la fin de ton programme, pour fermer la boucle For

[f(theo)]

j'ai toujours le même problème, sauf que la ça pointe après la ligne "If K*F<0"

[critor]

Les instructions Fin Si et Fin Pour se traduisent toutes les deux en End sur la calculatrice.
Donc en effet, il en manque un.

[Wistaro]

Bizarre, j'ai testé dans End et ça fonctionne chez moi

[f(theo)]

je l'ai rajouté :

Code: Select all

Prompt N
Prompt A,B
For(I,1,N)
((A+B)/2)→M
(A^3-3A^2-2*A+6)→F
(M^3-3M^2-2*M+6)→K
If K*F<0
Then
M→B
Else
M→A
End
End
Disp A
Disp B


mais là ça pointe après la ligne

If K*F<0

[Wistaro]

Pour moi le problème ne venez pas forcement de là.J'ai tapé le même programme que toi et je n'ais pas obtenu d'erreur.

Tu as correctement tapé tout le programme?

[f(theo)]

Oui, il est tel quel il est ici.
Vous l'avez copié à partir du code que j'ai envoyé ?