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

[walume (哇!阿魯米)]

這是老師出的作業

我已經想了四天了

一點頭緒都沒有

哪位強者能給我點提示嗎...? 囧"

次方的我有想到用


Public x As Integer, y As Integer
Private Sub Command1_Click()

x = Val(Text1.Text)
y = Val(Text2.Text)

Call Power(x, y)

Label4.Caption = x
End Sub



Public Function Power(Base As Integer, Exponent As Integer)


If Exponent = 0 Then
    Base = 1
Else
    Base = Base * Power(Base, Exponent - 1)

End If


End Function

我輸入(3,3)的話  power最後所傳回x的值為0

不是應該base = 3 * 3 * 3 * 1 = 27 嗎.......?????


最大公約數的話

老師有提示用MOD

可是我一點頭緒都沒有...

今天下午就要交了

拜託給我一點提示吧..m(_ _)m

--
http://www.wretch.cc/blog/walume
黑特日記 髒話不忌

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.128.194.155
※ 編輯: walume          來自: 140.128.194.155      (05/18 02:26)
推 Phill:Base 初始值設定為 1
推 walume:初始值不是我設的val(text1.text)嗎..?不太懂@@"
※ 編輯: walume          來自: 140.128.194.155      (05/18 09:56)
推 walume:是在函數設定初始值為1嗎..?還是原本設定為1?@@"
推 sean25hong:我有寫過耶, 是用for...next檢查x,y除以他都
→ sean25hong:整除的最大值