Forum TI-Planet.org

Bonjour à tous. J'ai récemment crée dans un contexte scolaire un programme permettant d'avoir tout les diviseurs d'un entier. Seul bémol, il ne marche que sur papier et pas sur calculatrice:

Code: Select all

Define diviseurs(a)=
Prgm

If floor(a)=a Then
   If floor(a/2)=a/2 Then
     For i,1,a/2
       a/i ->n
       floor (a/i)->m
       If n=m Then
            Disp i
       EndIf
       i+1->i
      EndFor
    Else
    For i,1,(a-1)/2
      a/i->n
      floor(a/i)->m
      If n=m Then
       Disp i
      EndIf
      i+1->i
    EndFor
   EndIf
Else
Disp 0
EndIf
EndPrgm

Voilà normalement c'est censé marcher sauf que quand je demande les diviseurs de 60 par exemple,ça me met 1 3 5 15 30, résultats certains diviseurs sont manquants. Ou se trouve le problème?
Aidez moi s'il vous plait.
Je vous remercie d'avance.

Bonjour,

Supprime les deux lignes:

Code: Select all

i+1->i

En effet, l'incrémentation du compteur i est faite automatiquement par la boucle 'For'.

Là, ça veut dire que tu incrémentes deux fois à chaque itération, et par conséquent oui tu sautes des cas et donc des diviseurs.

D'accord et effectivement oui après modifications.
Merci beaucoup

Ou sinon il y a un de mes programmes qui fait exactement la même chose