Forum TI-Planet.org

Bonjour,
J'ai un exercice de Spé maths concernant le thème de l'arithmétique. Mon exercice me demande de créer un programme qui donne la liste des diviseurs d'un entier N.
Pour cela j'ai fait le programme suivant :

Code: Tout sélectionner

:Input N
:EffListe L1
:0->I
:For(K,1,N)
:If partdec(N/K)=0
:Then
:I+1->I
:K+L1(I)
:End
:End

Mais lorsque je démarre le programme sa m'affiche Error.Je ne comprends pas vraiment mon erreur alors quelqu'un pourrait-il m'aider ?

acceleerator a écrit:Bonjour,
J'ai un exercice de Spé maths concernant le thème de l'arithmétique. Mon exercice me demande de créer un programme qui donne la liste des d'un entier N.
Pour cela j'ai fait le programme suivant :

Code: Tout sélectionner

:Input N
:EffListe L1
:0->I
:For(K,1,N)
:If partdec(N/K)=0
:Then
:I+1->I
:K+L1(I)
:End
:End

Salut, merci pour ton programme !

Je propose l'amélioration suivante (ça devrait fonctionner, à tester^^):

Code: Tout sélectionner

:DelVar IInput N
:EffList L1
:For(K,1,N)
:I+ not(partdec(N/K -> I
:K+L1(ans
:End

Mais ta ligne K+L1(I) ne fait rien, c'est normal?

Zut tu as édité ton message. L'erreur se déclenche à quelle ligne?

Effectivement , c'est bel et bien K-> +L(I) merci mais sa ne marche toujours pas
Je vais essayer ton programme

L'erreur de mon programme se déclenche à partdec , pour info sur mon programme j'ai mis >Dec et non partDec

c'est ça l'erreur >Dec et partDéc( sont 2 fonctions différentes.

merci beaucoup pour ton aide mais ou se trouve la touche partDéc sur la TI-82

puis dans NBRE

merci beaucoup !!!!!!!! le programme marche

de rien