Lister les diviseurs d'un entier - Casio

Pour connaître la liste des diviseurs d’un entier $n$ donné, on peut tester tous les entiers $a$ de $1$ à $n$.

L’utilisateur entre un entier $n$, et le programme fait tourner une boucle for de $1$ à $n$. Pour chaque valeur du paramètre $i$ de la boucle, le programme teste si la partie fractionnaire frac de $\dfrac{n}{i}$ est égale à zéro. Si c’est le cas il affiche $i$, sinon il continue.

$n$ un entier
$i$ un entier allant de $1$ à $n$

|demander $n$

|pour $i$ allant de $1$ à $n$

|si \text{frac}\left(\dfrac{n}{i}\right)=0 alors afficher $i$

• SHIFTVARSF4 « ? » ➔ Alpha8 « N »
• SHIFTVARSF1 « COM » F6 « ▷ » F1 « For » 1➔ Alpha( « I »
  SHIFTVARSF1 « COM » F6 « ▷ » F2 « to » Alpha8 « N » SHIFTEXE « ↵ »
• SHIFTVARSF1 « COM » F1 «  If »
  OPTNF6 « ▷ » F4 « NUM » F3 « Frac »
  ( Alpha8 « N » ÷ Alpha( « I » ) SHIFTVARSF6 « ▷ » F3 « REL »F1 « = » 0 SHIFTEXE « ↵ »
• SHIFTVARSF1 « COM » F2 «  Then » Alpha( « I » SHIFTVARSF5 « ◄ »
• SHIFTVARSF1 « COM » F4 «  IfEnd » SHIFTEXE « ↵ »
• SHIFTVARSF1 « COM » F6 « ▷ » F4 «  Next »

Remarque

• Inévitablement, le dernier nombre s’affichera deux fois.

Arithmétique et problèmes de codage