Un exemple : le crible d’Eratosth`ene 121
// On a fait les points 1 et 2
//barrer 1 a ´et´er´ealis´e en le rempla¸cant par 0
//TAB est la liste0234...N
tant que P*P
6 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
6 N) et (TAB[P]=0) faire
P+1 -> P
ftantque
ftantque
//on ´ecrit le r´esultat dans une liste PREM
pourIde2`a N faire
si TAB[I] 6= 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
`aN.
INPUT N;"CRIBLE";"N=";;10:
ERASE:
MAKELIST(I,I,1,N,1) -> L1:
0 -> L1(1):
2->P:
WHILE P*P
6 N REPEAT
Comentários a estes Manuais