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

La fonction “estpremier” 137
Si N = 1 alors
FAUX->PREM
sinon
VRAI->PREM
fsi
2->I
tant que PREM et I J faire
si N mod I = 0 alors
FAUX->PREM
sinon
I+1->I
fsi
ftantque
r´
esultat PREM
ffonction
- Premi`ere am´elioration
On peut remarquer que l’on peut tester si N est pair, et sinon
regarder si N poss`ede un diviseur impair.
Fonction estpremier(N)
local PREM, I, J
E(
√
N)
− > J
Si (N = 1) ou (N mod 2 = 0) et (N=2) alors
FAUX->PREM
sinon
VRAI->PREM
fsi
3->I
tant que PREM et I J faire
si N mod I = 0 alors
FAUX->PREM
sinon
I+2->I
fsi
ftantque
r´
esultat PREM
ffonction
- Deuxi`eme am´elioration
On regarde si N est divisible par 2 ou par 3, sinon on regarde si
N poss´ede un diviseur de la forme 6 × k − 1 ou 6 × k + 1.