質數測試

程式由網友 roviury 提供。 輸入質數的測試範圍,程式可以顯示質數的數目。

更新日期: 2010年4月27日

程式一(90 bytes,使用記憶C、D、X、Y及M)

?→C: ?→D: 2≦D(C≦2→X: Fix 0:

For 3+2Rnd(.5(C>3)(C-3→C To D Step 2:

√(C→Y: 3→M: Lbl 0: M≦Y => C÷M =>

2(Ans≠Rnd( AnsM+ => Goto 0: X+(M>Y→X: Next:

Norm 1: X

 

程式二(94 bytes,這個版本測試一個數時可以不用重複輸入數值)

?→C: C→D: ?→D: 2≦D(C≦2→X: Fix 0:

For 3+2Rnd(.5(C>3)(C-3→C To D Step 2:

√(C→Y: 3→M: Lbl 0: M≦Y => C÷M =>

2(Ans≠Rnd( AnsM+ => Goto 0: X+(M>Y→X: Next:

Norm 1: X

 

例題1: 試求10至20間的質數的數目。

按 Prog 1 再按 10 EXE 20 EXE (顯示質數的數目為4)

 

例題2: 驗証97是否質數。

按 Prog 1 再按 97 EXE 97 EXE (顯示質數的數目為1表示97為質數)

 

例題2: 驗証91是否質數。

按 Prog 1 再按 91 EXE 91 EXE (顯示質數的數目為0表示91不是質數)

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting