HP 39g Graphing Calculator Manual do Utilizador Página 132

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 155
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 131
132 Chapitre 7 Programmes d’arithm´etique
fonction facprem(N)
local D FACT
2->D
{} -> FACT
tant que N 6= 1 faire
si N mod D = 0 alors
FACT + D -> FACT
N/D -> N
sinon
D+1 -> D
fsi
ftantque
esultat FACT
ffonction
- Premi`ere am´elioration
On ne teste que les diviseurs D entre 2 et E(
N).
En effet si N = D1 D2 alors on a :
soit D1
6 E(
N), soit D2 6 E(
N) car sinon on aurait :
D1 D2
> (E(
N)+1)
2
>N.
fonction facprem(N)
local D FACT
2->D
{} -> FACT
tant que D*D
6 N faire
si N mod D = 0 alors
FACT + D -> FACT
N/D-> N
sinon
D+1 -> D
fsi
ftantque
FACT+N->FACT
esultat FACT
ffonction
- Deuxi`eme am´elioration
On cherche si 2 divise N, puis on teste les diviseurs impairs D entre
3etE(
N).
Dans la liste FACT, on fait suivre chaque diviseur par son exposant :
decomp(12)={2,2,3,1}.
Vista de página 131
1 2 ... 127 128 129 130 131 132 133 134 135 136 137 ... 154 155

Comentários a estes Manuais

Sem comentários