Trouver tous les diviseurs d'un nombre entier [spé maths - TS]

Bonjour tout le monde!  

Aujourd'hui je vais vous présenter un programme que j'ai fait et qui peut vous aider en spé maths si vous êtes en terminale S, lorsqu'on fait de l'arithmétique notamment (mais si vous l'utilisez pour autre chose tant mieux ), j'ai nommé: "DIV" (ok ce n'est pas très très original, vous pouvez le nommer comme vous voulez  ).

Il vous donne tous les diviseurs (positifs et négatifs) d'un nombre entier non nul (Nb: si le diviseur correspond à la racine carrée de |N| il vous le donne en double, puisqu'il forme un couple de diviseurs avec lui même).

Le tout en seulement 113o 82o !!! (et vous pouvez supprimer certaines parties notamment pour la saisie ~sécurisée, qui prend 11o).  

Voici le code (Après les // ce sont des commentaires explicatifs):

Code:

Repeat Nnot(fPart(N //On attend un entier non nul //fPart = PartDéc sur une fr // not() = non()
Prompt N
End

{1->L1
For(A,2,sqrt(abs(N //sqrt = fonction racine carrée

//Si A est un diviseur on le sauve.
If not(fPart(N/A
A->L1(1+dim(L1

End

//On retrouve les diviseurs associés à ceux qui ont été trouvés (si 2 divise 36, 36/2=18 divise aussi 36), puisqu'on s'est arrêté à la racine de N
augment(L1,N/L1 //augment() = chaîne()

//On gère les opposés
augment(-Rép,Rép->L1

SortA(L1 //On trie les résultats //sortA() = triCroi()
L1 //On les affiche (en fin de prgm ça permet un défilement, donc si vous voulez mettez Pause mais pas de Disp)

Voici un lien de téléchargement:
http://www.mediafire.com/?a6fq7cc7e7lv11r

Ancien code moins optimisé (EDIT du 26/09/13):

Et un screenshot:


Voilà, en espérant que ça sera utile à quelques uns!

En voyant la fonction de ton programme j'ai essayé d'en faire un plus léger (sans regarder la tiens) mais j'ai échoué... Bon boulot! (remarque je m'en tape un peu moi je suis en spé info)

Merci !  

Ta remarque m'a donné envie d'essayer de l'optimiser encore plus, j'édite avec encore plus d'optimisations, pour un total de 82o (saisie "sécurisée" d'un nombre entier comprise)

Quatre... Quatre-vingt... QUATRE-VINGT DEUX OCTETS!!!!!!!





(pour la peine je plussoie)