Home

 Logithèque

TI67 Galaxy

Trouve les diviseurs d'un entier positif


Code

DIV:input N:1->D:1->I:{ZD}:{ZD}:2->I:lbl 1:{ZD}:if D^2<N:Goto 1:if 1<N:disp N

ZD:D+I->D:lbl 1:if 0/=fp(N/D):goto 2:N/D->N:disp D:goto 1:lbl2

On utilise deux formules : DIV et ZD.

Les signes "^2" dans DIV représentent la fonction "élévation au carré", et "/=" dans ZD représente "est différent de".


Mode d'emploi

Exécuter la formule DIV. Saisir le nombre. Les diviseurs premiers sont affichés en ordre croissant.


Mathématiques à l'oeuvre

On fait des divisions successives, d'abord par 2 et 3, puis en balayant les entiers non pairs...

Evidemment cette machine peut mieux faire. Ce sera peut-être pour une autre version (voir celle de la TI85 qui peut être traduite pour la TI67 Galaxy).