HP Calculatrice graphique HP 39g - Manuel (Page 121)

Un exemple : le crible d’Eratosth`ene 121
// On a fait les points 1 et 2
//barrer 1 a ´
et´ e r´ ealis´ e en le rempla¸ cant par 0
//TAB est la liste 0 2 3 4 ...N
tant que P*P N faire
pour I de P ` a E(N/P) faire
//E(N/P) d´ esigne la partie enti` ere de N/P
0 -> TAB[I*P]
fpour
// On a barr´ e tous les multiples de P ` a partir de P*P
P+1 -> P
//On cherche le plus petit nombre <= N non barr´ e,\\
// entre P et N
tant que (P*P N) et (TAB[P]=0) faire
P+1 -> P
ftantque
ftantque
//on ´
ecrit le r´ esultat dans une liste PREM
pour I de 2 ` a N faire
si TAB[I] = 0 alors
PREM +I -> PREM
fsi
fpour
r´
esultat: PREM
6.14.3 Traduction HP40G
Voici le programme CRIBLE :
L’utilisateur doit entrer la valeur de N.
A la fin la liste L2 contient les nombres premiers inf´erieurs ou ´egaux
`
a N.
INPUT N;"CRIBLE";"N=";;10:
ERASE:
MAKELIST(I,I,1,N,1) -> L1:
0 -> L1(1):
2->P:
WHILE P*P N REPEAT