Re: [請益]用遞迴寫x^n和求x y的最大公約數

[neplayer (neplayer)]

※ 引述《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)
推 walume:GCD的我昨天已經寫出來囉@@" 感謝幫忙^^
推 fumizuki:不能跑，因為沒有end if 沒有end function:P
推 fumizuki:試過，沒問題，這程式ok...cc
推 neplayer:副板主vb這麼熟怎麼不去小補一下遞迴XDD
推 fumizuki:我一直都是靠範例惡補的XD