Re: 等比等差，阿姆斯壯數，階層
作者: dan114021 ( Superyo) 2014-12-19 07:16:20
※ 引述《as2990430 (as2990430)》之銘言：
: 請問有上述公式的vb語言公式嗎
: 做報告要用的
: 先謝謝各位不吝嗇分享
: 整個沒有頭緒
我有以前寫過的阿姆斯壯樹
我用VB.net
阿姆斯壯樹 從3位數開始
下列程式碼是找3位數到4位數
Dim sum As Integer
Dim ans As New ArrayList
For i = 100 To 9999
sum = 0
For j = 1 To i.ToString.Length
sum += Mid(i.ToString, j, 1) ^ i.ToString.Length Next
If sum = i Then ans.Add(i)
Next
小弟不才
還請高手指點指教
報告還是自己寫比較好XD
: 請問有上述公式的vb語言公式嗎
: 做報告要用的
: 先謝謝各位不吝嗇分享
: 整個沒有頭緒
我有以前寫過的阿姆斯壯樹
我用VB.net
阿姆斯壯樹 從3位數開始
下列程式碼是找3位數到4位數
Dim sum As Integer
Dim ans As New ArrayList
For i = 100 To 9999
sum = 0
For j = 1 To i.ToString.Length
sum += Mid(i.ToString, j, 1) ^ i.ToString.Length Next
If sum = i Then ans.Add(i)
Next
小弟不才
還請高手指點指教
報告還是自己寫比較好XD
作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-19 09:49:00
Armstrong number, 不是tree。
作者: dan114021 ( Superyo) 2014-12-19 10:30:00
手殘 ...
作者: ClubT (å°å–¬) 2014-12-19 11:39:00
其實有Armstrong tree ![]()
" target="_blank" rel="nofollow">
![]()
" target="_blank" rel="nofollow">作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-21 19:11:00
那Armstrong Gun咧
作者: ClubT (å°å–¬) 2014-12-22 09:43:00
樓上應該是說這個對吧 ![]()
" target="_blank" rel="nofollow">
![]()
" target="_blank" rel="nofollow">作者: Peruheru (還在想) 2014-12-22 10:09:00
Armstrong's Rifled Breech Loader
作者: fumizuki (矇面加菲獅) 2014-12-22 19:31:00
作者: MOONRAKER (㊣牛鶴鰻毛人) 2014-12-24 04:11:00
Neo-Armstrong Cyclone Jet Armstrong Gun
作者: Yaiba (緋心刀刃) 2014-12-27 17:15:00
這樣寫的缺點是效能差 如果要算大範圍的話 會很久優點是簡單 易懂 當報告剛剛好...不過變數還是不要I J K L比較好多改幾行 效能就會差個十倍 不過改的越多 就越多人難看懂
作者: dan114021 ( Superyo) 2013-01-05 22:23:00
謝謝Y大指教 小弟會在想想看