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 |