
138 Chapitre 7 – Programmes d’arithm´etique
Fonction estpremier(N)
local PREM, I, J
E(
√
N)− > J
Si(N=1)ou(Nmod2=0)ou(Nmod3=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
6J 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
6 J AND P REPEAT
IF N MOD I==0 OR N MOD I+2==0 THEN
0 ->P:
ELSE
Comentários a estes Manuais