Besoin aide adaptation programme algobox à ti-Nspire

[scoubidou141]

Bonjour, j'ai un TP de maths à faire, et je suis bloquée sur la dernière question. La question précédente présente l’algorithme de Horner en version algobox. Dans la dernière question, il faut donc adapter ce programme pour les calculettes, or le manuel donne les réponses pour les casio et les ti-82. Possédant une ti-Nspire, j'ai fait le tour des sites internet, et ne trouvant pas la réponse, je suis de plus en plus désespérée. Bref, voilà l’algorithme en version TI ( je suppose que c'est une Ti82, à vrai dire il n'y a pas plus de précision ) :

Code: Select all

PROGRAM: HORNER
:Prompt, N,L1 , X
:L1(1)*X+L1 (2)=> R
: For(I,3,N+1)=> R
:R*X+L1 (I) => R
: End
: Disp " IMAGE",=>R

Voilà, est ce que quelqu'un pourrait m'aider à l'adapter en ti-nspire ?
Merci d'avance,
scoubidou141

[Hamza.S]

ton code

Code: Select all

Local n,list,x,r
list:={0,0,0}
Request "N =",n
Request "la liste :",list
Request "X =",x
r:=list[1]*x+list[2]
For i,3,n+1
r:=r*x+list[i]
EndFor
Disp "Image =",r

[scoubidou141]

Merci beaucoup !
Maintenant je n'ai plus qu'à changer le nom des variables, encore merci !

[Bisam]

En Basic, il n'est pas utile d'initialiser la liste ni de demander N puisque on peut le déduire du nombre de termes de la liste.
Par ailleurs, pourquoi faire un cas particulier pour les premiers termes de la suite ?
On peut donc simplifier en ceci :

Code: Select all

Local n,l,x,r
Request "la liste :",l
Request "X =",x
n:=dim(l)
r:=0
For i,1,n
   r:=r*x+l[i]
EndFor
Disp "Image =",r