返回列表 上一主題 發帖

請問質數的運算方式?

louislcw

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
win7 64bit 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2013-9-24 
最後登錄
2013-9-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-24 23:05 | 只看該作者

請問質數的運算方式?

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
280  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-9-24 23:39 | 只看該作者
回復 1# louislcw

何謂510最小質數為17?
若以510所有因數中的質數而言，2即為最小質數
學海無涯_不恥下問

TOP

louislcw

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
win7 64bit 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2013-9-24 
最後登錄
2013-9-25 
3#
發表於 2013-9-25 23:26 | 只看該作者
回復 2# Hsieh
應該是說我我有一數510
利用因數分解得到510=2*3*5*17
再從中判斷其最大因數為17
請問大大這樣有解嗎?

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
280  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題