voila un programme qui permet de trouver les diviseurs d'un nombre. Il stocke ces diviseurs dans une liste L1 qu'il affiche en fin d'exécution.
voila les commandes particulieres
L1=[2nd] , [1]
-> = [sto>]
/ = signe divisé
I = i majuscule
et les lignes du programme avec les explications
:0->P Initialisation de la variable
:Input "N=", N Demande le nombre dont on veut trouver les diviseurs
:ClrList L1 Suppression de la liste L1 (si existante)
:For I,1,N Début de la boucle For : Pour I variant de 1 à N
:N/I->A Divise le nombre choisi au départ par le Input par un diviseur possible
:If fPart(A)=0 Si la partie décimale de A est nulle...
:Then ...Alors...
:P+1->P ...On incrémente la variable...
:I->L1(P) ...Et on stocke le diviseur dans L1
:End Fin de la boucle If
:End Fin de la boucle For
:Pause L1 Fin du programme par une pause sur les valeurs de L1 (les diviseurs de N), appuyez sur ENTER
le même code un peu optimisé (merci adriweb,l'auteur du blog ti83-84)
:DelVar P
:Input "N=", N
:ClrList L1
:For I,1,N
:N/I->A
:If not(fPart(A
:Then
:P+1->P
:I->L1(P
:End
:End
:Pause L1
voila les commandes particulieres
L1=[2nd] , [1]
-> = [sto>]
/ = signe divisé
I = i majuscule
et les lignes du programme avec les explications
:0->P Initialisation de la variable
:Input "N=", N Demande le nombre dont on veut trouver les diviseurs
:ClrList L1 Suppression de la liste L1 (si existante)
:For I,1,N Début de la boucle For : Pour I variant de 1 à N
:N/I->A Divise le nombre choisi au départ par le Input par un diviseur possible
:If fPart(A)=0 Si la partie décimale de A est nulle...
:Then ...Alors...
:P+1->P ...On incrémente la variable...
:I->L1(P) ...Et on stocke le diviseur dans L1
:End Fin de la boucle If
:End Fin de la boucle For
:Pause L1 Fin du programme par une pause sur les valeurs de L1 (les diviseurs de N), appuyez sur ENTER
le même code un peu optimisé (merci adriweb,l'auteur du blog ti83-84)
:DelVar P
:Input "N=", N
:ClrList L1
:For I,1,N
:N/I->A
:If not(fPart(A
:Then
:P+1->P
:I->L1(P
:End
:End
:Pause L1
