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

D´ecomposition en facteurs premiers 133
fonction facprem(N)
local K D FACT
{}->FACT
0 -> K
tant que N mod 2 = 0 faire
K+1 -> K
N/2 -> N
ftantque
si K =0 alors
FACT + {2 K} -> FACT
fsi
3 ->D
tant que D*D N faire
0 -> K
tant que N mod D = 0 faire
K+1 -> K
N/D -> N
ftantque
si K =0 alors
FACT + {D K} -> FACT
fsi
D+2 -> D
ftantque
si N = 1 alors
FACT + {N 1} -> FACT
fsi
r´
esultat FACT
ffonction
7.3.2 Traduction HP40G
On traduit le dernier algorithme.
La HP40G ne connait pas la liste
{}, donc pour initialiser L1 avec la
liste vide on ´ecrit : CLEAR L1.
Voici le programme FACTPREM :
INPUT N;"N";;;1:
ERASE: