Soucis Programme nspire

→ **MyCalcs** profile · by **Erwin75** » 21 Sep 2014, 14:41

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.

→ **MyCalcs** profile · by **critor** » 21 Sep 2014, 16:54

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.