summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex')
-rw-r--r--macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex22
1 files changed, 22 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex b/macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex
index 39ec997a29..4f9e7f9cf6 100644
--- a/macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex
+++ b/macros/latex/contrib/profcollege/latex/PfCDecomposerNombrePremier.tex
@@ -765,6 +765,28 @@
}%
}%
+\newcommand\LesFacteursPremiers[1]{%
+ %#1 : le nombre entier \`a tester
+% \newcount\anpl\newcount\bnpl\newcount\cnpl%
+ % \newcount\pilebl%
+ \xdef\anpl{#1}%\relax%
+ \xdef\bnpl{2}%\relax%
+ \xdef\pilebl{2}%\relax%
+ \xdef\PfCPileFacteurs{}%
+ \whiledo{\fpeval{\anpl} > 1}{%
+ \modulo{\fpeval{\anpl}}{\fpeval{\bnpl}}
+ \ifnum\remainder=0\relax
+ \xdef\cnpl{\fpeval{\anpl/\bnpl}}%
+ \xdef\PfCPileFacteurs{\PfCPileFacteurs,\fpeval{\bnpl}}%
+ % \num{\the\bnpl}\ifnum\anpl>\bnpl,\fi%
+ \xdef\anpl{\cnpl}%\relax
+ \else%
+ \xdef\bnpl{\fpeval{\bnpl+1}}%
+ \xdef\pilebl{\bnpl}%\relax%
+ \fi%
+ }%
+}%%
+
\newcommand\ListeDiviseur[1]{%#1 : le nombre entier \`a tester
\newcount\anp\newcount\bnp%
\anp=#1%