Marcel le 25/04/2013 à 12:15

---

Bonjour,
Je suis en Terminale S et je dois entrer ce programme sur ma TI 82-stats :
(l'instruction n%d donne le reste de ka division euclidienne de n par d)

-Variables
-Debut_Algorithme
Lire n
d prend la valeur 2
TANT QUE (d<=n) FAIRE
Debut_Tant_que
Si (n%d==0) ALORS
Debut_SI
Afficher d
n pend la valeur n/d
Fin_SI
Sinon
Debut_SINON
d prend la valeur d+1
FIN_SINON
Fin tant que


Voilà ce que j'ai entrer mais qui ne marche pas :

:Prompt N
:2 sto D
:While D<=N
:If PartDéc(N/D)=0
:Then
:Disp D
:N/D sto N
:Else
+1 sto D
:End

Voilà ci quelqu'un pourrait m'aider ça serait sympa.

linkakro le 25/04/2013 à 12:44

---

Il manque juste le End du While.

Si tu veux calculer le reste (et non tester seulement la justesse d'une division) :
DparDéc(N/D) qui cause des erreurs d'arrondits, et ne respecte pas la division euclidienne des négatifs.
N-Dent(N/D) qui est toujours juste dans les positifs.
N-DpartEnt(N/D) est juste et respecte la division euclidienne des négatifs.
Cependant ne confond pas ent()[...]art() et int().

Marcel le 25/04/2013 à 13:18

---

Merci beaucoup et merci également pour le conseil