質數測試

程式由網友 tony200910041 提供。

sin ( 1 8 0 A ÷ (
K + 2 ) ) ) - (
sin ( 1 8 0 A ÷ (
K + 2 ) ) ) x -1 x -1
+ ( ( K + 1 ) (
( ( K + 2 - A
) - ( ( K + 2
- A ) x2 ) ) x2
yx 1 Exp +/- 9 9 x -1 x -1
STO F1 或 F2

如何在程式中加入K字元
 

例題1: 測試15。

按2ndF DEL RCL F1 ALGB 15 = ∫dx = = = (顯示Error 2) → DEL DEL = (結果為Error 2)

所以15不是質數。

例題2: 測試13。

按2ndF DEL RCL F1 ALGB 13 = ∫dx = = = (顯示Error 2) → DEL DEL = (結果為0)

所以13是質數。
 

註1: 如輸入偶數會立即Error 2, 這是正常,只要再按 → DEL DEL = 即可顯示Error 2。

註2: 程式只可測試小於40804的數值,如要測試更大的數值,請於輸入n時輸入10000即可。

 

返回EL-506程式集主頁

Free Web Hosting