1

Bonjour!
Je suis nouveau et j'aimerais installer sur ma calculatrice 83+ un programme permettant de donner tous les diviseurs ( entiers naturels ) d'un entier naturel.
Je vous remercie d'avance.
Cordialement

____________
TKOHIB

2

hum...
d End SortA(L1) Disp L1
je ferais un truc comme ça :
Input "Entrer le nombre :",A
1->Dim(L1)
1->Y
Disp "Merci de patienter..."
For(X,1,Int(Racine(A))+1,1)
A/X
If Int(Ans)=A/X:Then
Ans->L1(Y)
X->L1(Y+1)
Y+2->Y
En


J'ai âs testé, mais ça devrai marcher.
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

3

Voila, je te l'ai même tappé, et il marche :DIVIZ.8xp
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

4

Orf t'aurais pu faire un effort ^^.

5

Bah, j'avais rien d'autre à faire... grin
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

6

Merci bcp !!!

7

En fait, y a juste un truc à changer :
A la fin du prog, enlève le Disp, laisse que L1, ça te permettra de faire défiller la liste de gauche à droite avec les flèches droite/gauche.

Bon, et bien sûr, ne prend pas de nombres trop grnd ; j'ai quand même mis 2-3 minutes pour trouver les diviseurs de 12346789, et chose étonnante, il y en a peut...
(1, 3, 9, 3607, 3803, 10821, 11409, 32463, 34227, 13717421, 41152263, 123456789) ! (enfon, presque peut tongue)
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic