Forum TI-Planet.org

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 ?

Bonsoir,

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

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

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

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

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

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

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

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?

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