50 lines
563 B
Text
50 lines
563 B
Text
::prgmPREMIER
|
|
Disp "FACTEURS PREMIER"
|
|
Prompt N
|
|
If N<1:Stop
|
|
ClrList L1 ,L2
|
|
0→K
|
|
iPart(√(N))→L
|
|
N→M
|
|
For(I,2,L)
|
|
0→J
|
|
While fPart(M/I)=0
|
|
J+1→J
|
|
M/I→M
|
|
End
|
|
If J≠0
|
|
Then
|
|
K+1→K
|
|
I→L 1(K)
|
|
J→L2(K)
|
|
I→Z:prgmVSTR
|
|
" "+Str0→Str1
|
|
If J≠1
|
|
Then
|
|
J→Z:prgmVSTR
|
|
Str1+"^"+Str0→Str1
|
|
End
|
|
Disp Str1
|
|
End
|
|
If M=1:Stop
|
|
End
|
|
If M≠1
|
|
Then
|
|
If M≠N
|
|
Then
|
|
M→Z:prgmVSTR
|
|
" "+Str0→Str1
|
|
Disp Str1
|
|
Else
|
|
Disp "PREMIER"
|
|
End
|
|
End
|
|
::prgmVSTR
|
|
{Z,Z}→L5
|
|
{1,2}→L6
|
|
LinReg(ax+b)L6,L5,Y ₀
|
|
Equ►String(Y₀,Str0)
|
|
length(Str0)→O
|
|
sub(Str0,4,O-3)→Str0
|
|
ClrList L5,L6
|
|
DelVar Y
|