Décomposition en facteurs premiers

 

 

L'utilisateur fournit à la calculatrice un entier N, lequel sera décomposé par la machine en facteurs premiers.

La réponse sera donnée sous la forme d'une matrice (une sorte de tableau pour les novices) composée de deux lignes et plusieurs colonnes (en fonction du nombre de facteurs premiers).

 

Voici un exemple d'utilisation du programme, décomposons le nombre 19111980 :

N=?19111980

2 1 1 1 1
2 3 5 37 8609

Ainsi 19111980 = 22×31×51×371×86091 où 2 ; 3 ; 5 ; 37 et 8609 sont des nombres premiers et les puissances les valuations respectives.

 

Voici donc les lignes de codes permettant cette décomposition.

 

Créez un nouveau programme que vous nommerez (par exemple) FACT1

 

:Repeat (N>1) et (N=partEnt(N))
:EffEcr
:Prompt N
:End
:EffListe L1,L2
:0→C
:2→I
:While N≠1
:1→T
:While T=1 et I2≤N
:partDéc(N/I)≠0→T
:If I>2
:Then
:I+2→I
:Else
:3→I
:End
:End
:If I>3
:Then
:I-2→I
:Else
:2→I
:End
:If T=1
:N→I
:C+1→C
:I→L1(C)
:1→J
:While partDéc(N/I^(J+1))=0
:J+1→J
:End
:J→L2(C)
:N/I^J→N
:End
:{2,C}→dim([A])
:For(I,1,C)
:L2(I)→[A](1,I)
:L1(I)→[A](2,I)
:End
:EffListe L1,L2
:Pause [A]