Re: [請益]用遞迴寫x^n和求x y的最大公約數
※ 引述《fumizuki (小獅)》之銘言：
: Function Power(Base As Integer, Exponent As Integer)
: If Exponent = 0 Then
: Power = 1
: Else
: Power = Base * Power(Base, Exponent - 1)
: End If
: End Function
: 這是你的，你沒有傳回值，結果當然是零啦。
: 至於公因數嘛，實在沒辦法...
: 我學 vb 的時候鮮少見到遞迴的範例，所以不太會寫遞迴/.\
: 想了半天想不出個流程來:~~
回原po
gcd的程式應該google一下就一整票吧
想一下輾轉相除法
function gcd(a as integer, b as integer)
if b=0
gcd=a
else
gcd=gcd(b,a mod b)
end
--
mod應該是求餘數的沒錯吧?
第一次用vb寫遞迴XD
應該可以跑....吧
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.73.191.98
※ 編輯: neplayer 來自: 211.73.191.98 (05/18 11:33)
推
140.128.194.155 05/18, , 1F
140.128.194.155 05/18, 1F
推
61.222.155.162 05/18, , 2F
61.222.155.162 05/18, 2F
推
61.222.155.162 05/18, , 3F
61.222.155.162 05/18, 3F
推
211.73.191.98 05/18, , 4F
211.73.191.98 05/18, 4F
推
61.222.155.162 05/18, , 5F
61.222.155.162 05/18, 5F
討論串 (同標題文章)