標題: 請問質數的運算方式? [打印本頁]

---

作者: louislcw    時間: 2013-9-24 23:05     標題: 請問質數的運算方式?

請問各位大大
如何使用excel自行運算"自訂義"數的最小質數?
比如我輸入510會自動運算最小質數為17

---

作者: Hsieh    時間: 2013-9-24 23:39

回復 1# louislcw

何謂510最小質數為17?
若以510所有因數中的質數而言，2即為最小質數

---

作者: louislcw    時間: 2013-9-25 23:26

回復 2# Hsieh
應該是說我我有一數510
利用因數分解得到510=2*3*5*17
再從中判斷其最大因數為17
請問大大這樣有解嗎?

---

作者: Hsieh    時間: 2013-9-26 08:13

回復 3# louislcw
自定義函數

1. Function MGCD(number As Double) As Double
   
2. Dim i As Double
   
3. For i = number - 1 To 2 Step -1
   
4.    If number Mod i = 0 And IsOnly(i) Then MGCD = i: Exit For
   
5.    
   
6. Next
   
7. End Function
   
8. Function IsOnly(number As Double) As Double
   
9. For i = 2 To number
   
10.    If number Mod i = 0 Then cnt = cnt + 1
    
11. Next
    
12. IsOnly = cnt = 1
    
13. End Function

複製代碼

[attach]16169[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)