看板 [ Visual_Basic ]
討論串[請益]用遞迴寫x^n和求x y的最大公約數
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[請益]用遞迴寫x^n和求x y的最大公約數
推噓4(4推 0噓 1→)留言5則，0人參與, 最新作者walume (哇!阿魯米)時間19年前 (2005/05/18 01:22), 編輯資訊
0
0
1
內容預覽:
這是老師出的作業. 我已經想了四天了. 一點頭緒都沒有. 哪位強者能給我點提示嗎...? 囧". 次方的我有想到用. Public x As Integer, y As Integer. Private Sub Command1_Click(). x = Val(Text1.Text). y = V
(還有436個字)
#2
Re: [請益]用遞迴寫x^n和求x y的最大公約數
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者fumizuki (小獅)時間19年前 (2005/05/18 11:00), 編輯資訊
1
0
0
內容預覽:
Function Power(Base As Integer, Exponent As Integer). If Exponent = 0 Then. Power = 1. Else. Power = Base * Power(Base, Exponent - 1). End If. End Fun
(還有131個字)
#3
Re: [請益]用遞迴寫x^n和求x y的最大公約數
推噓5(5推 0噓 0→)留言5則，0人參與, 最新作者neplayer (neplayer)時間19年前 (2005/05/18 11:23), 編輯資訊
1
0
0
內容預覽:
回原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應該是求餘數的沒錯吧?. 第一次
#4
Re: [請益]用遞迴寫x^n和求x y的最大公約數
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者walume (哇!阿魯米)時間19年前 (2005/05/18 11:55), 編輯資訊
0
0
0
內容預覽:
Public a As Double, b As Double, r As Double. ____________________________________________________________. Private Sub Command1_Click(). b = Val(Text
(還有1314個字)
首頁
上一頁
1
下一頁
尾頁