作者neplayer (neplayer)
看板Visual_Basic
標題Re: [請益]用遞迴寫x^n和求x y的最大公約數
時間Wed May 18 11:32:26 2005
※ 引述《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)
1F：推 walume:GCD的我昨天已經寫出來囉@@" 感謝幫忙^^140.128.194.155 05/18
2F：推 fumizuki:不能跑，因為沒有end if 沒有end function:P 61.222.155.162 05/18
3F：推 fumizuki:試過，沒問題，這程式ok...cc 61.222.155.162 05/18
4F：推 neplayer:副板主vb這麼熟怎麼不去小補一下遞迴XDD 211.73.191.98 05/18
5F：推 fumizuki:我一直都是靠範例惡補的XD 61.222.155.162 05/18