Posté le 08/10/2005 à 21:39 Membre depuis le 12/08/2005, 10 messages
Bonsoir à tous

J'aimerai savoir si il y avait une option ou un programme pour ma TI 82 Stats pour donner tous les diviseurs d'un nombre.
Si oui, merci de me dire comment faire happy

Posté le 08/10/2005 à 22:09 Membre depuis le 15/03/2005, 3470 messages
Moi aussi j'ai une TI 82 STATS, comme je suis en 3éme le prof de math nous avez montrer l'algorythme de recherche du PGCD, alors moi je l'ai programmer, c'est ça servait a rien la TI possède déjà un programme qui calcul le PGCD:
-Tu fait 2nd
-CATALOG
-Tu appui sur G
-Tu clic sur gcd(
-Après tu marque les 2 nombres a calculer par exemple :
gcd(30,42) et après la TI calcul le Plus Grand Commun Diviseur.

Voilà, j'éspère que tu comprendra.
Posté le 08/10/2005 à 22:30 Membre depuis le 12/08/2005, 10 messages
Déjà merci de la réponse, mais moi je cherche pour afficher TOUS les diviseurs et d'un seul nombre ...
C'est pour un DM où il faut vérifier si 2 nombres son amiables.

Sinon il y a plus court pour accéder à l'option gcd(, tu vas dans MATH, Flèche gauche et 9 et il y aura cette option happy
Posté le 08/10/2005 à 22:53 Membre depuis le 15/03/2005, 3470 messages
Ouais je sais mais je disait juste sa si tu savais pas. Sinon tu cherche sur ticalc.org mais faut avoir le cable ou alors tu prend un programme basic que tu recopie sur ta TI.
Posté le 08/10/2005 à 23:16 Membre depuis le 09/07/2003, 21783 messages
Tu peut faire une boucle pour i allant de 1 à n/2 , et verifier que int(n/i) = n/i. Dans ce cas, i est diviseur de n. Il suffit donc de l'ajouter dans une liste selon le cas, puis de fermer ta boucle.

( à vrai dire, il suffirait d'aller jusqu'a sqrt(n) [racienne carrée de n] (on arrondira à l'entier par dessus pour ne pas poser de pbs..) en prenant en compte les deux diviseurs. (si i divise n, alors n/i divise n. ( n= i* q, et donc n/i=q) )
cette méthode devrait pas être bcp plus logne et devrais aller plus vite.

Tu peut faire une méthode similaire avec le PGCD (si PGCD(n,i)=i, alors i divise n), mais je ne pense pas que ça soit plus rapide.
Posté le 09/10/2005 à 09:41 Membre depuis le 09/02/2005, 13736 messages
Tres simplement un prog :

:ClrHome
:Prompt N
:For X,1,ipart(N/2+1
:If N/X = ipart(N/X
:disp X
:End
:disp N
:Output(8,1,"_ (pour pas avoir de "done" qui s'affiche)

Voila.
Posté le 09/10/2005 à 12:41 Membre depuis le 12/08/2005, 10 messages
En effet, je te remercie très sincèrement pour ton effort ! Merci encore !
Posté le 09/10/2005 à 12:43 Membre depuis le 09/02/2005, 13736 messages
De rien, je suis la pour ca.