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

138 Chapitre 7 – Programmes d’arithm´etique
Fonction estpremier(N)
local PREM, I, J
E(
√
N)
− > J
Si (N = 1) ou (N mod 2 = 0) ou ( N mod 3 = 0) alors
FAUX->PREM
sinon
VRAI->PREM
fsi
si N=2 ou N=3 alors
VRAI->PREM
fsi
5->I
tant que PREM et I J faire
si (N mod I = 0) ou (N mod I+2 =0) alors
FAUX->PREM
sinon
I+6->I
fsi
ftantque
r´
esultat PREM
ffonction
7.5.2 Traduction HP40G
INPUT N;"N";;;1:
IF N MOD 2== 0 OR N MOD 3==0 OR N==1 THEN
0 ->P:
ELSE
1->P:
END:
IF N==2 OR N==3 THEN
1->P:
END:
5->I:
FLOOR(
√
N)
− > J :
WHILE I J AND P REPEAT
IF N MOD I==0 OR N MOD I+2==0 THEN
0 ->P:
ELSE