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 6=0 alors
FACT + {2 K} -> FACT
fsi
3 ->D
tant que D*D
6 N faire
0->K
tant que N modD=0faire
K+1 -> K
N/D -> N
ftantque
si K 6=0 alors
FACT + {D K} -> FACT
fsi
D+2 -> D
ftantque
si N 6=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:
Comentários a estes Manuais