Casio50 » fx-3x50P » Programs 程式集 » Number Thoery 數論 »
本式可分解一整數至一些質數
<COMP> |
---|
? → X : 2 → A : |
Lbl 0 : X ÷ A → Y : Fix0 : Rnd : Norm1 : |
Ans = Y => Y → X => A ◢ Ans => Goto 0 : |
A + 2 – ( A = 2 → A : √ X > A => Goto 0 : X |
58 Bytes |
一般操作 | 例子 |
---|---|
質因分解 x |
質因分解 666222 |
啟動程式 | 按 Prog 1 |
輸入數字 x EXE |
[X?] 666222 EXE |
顯示質因數 p1 EXE p2 EXE p3 EXE p4 EXE ... (x = p1 p2 p3 p4...) (註: 最後一個質因數會以 [X] 顯示) |
[A] 2 EXE [A] 3 EXE [A] 37 EXE [X] 3001 EXE |
A | ceil(√pn) |
---|---|
B | |
C | |
D | |
X | pn [Last Prime] |
Y | pn or A |
M |