Re: [問題] 長方形與正方形

看板Prob_Solve (計算數學 Problem Solving)作者 (D逃)時間18年前 (2006/11/12 20:27), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串3/15 (看更多)
: ※ 引述《willieliao (Willie Liao)》之銘言: : : 眾版友好 : : 三年前我去紐約的花旗銀行面試,有一題我到現在還想不出來,無意間看到這個版, : : 就寫出來讓眾高手笑笑了: : : 假設現在有一個長方形mn,m>n,mn均為整數,題目問最少要多少個正方形可以填滿 : : 這個長方形?正方形大小不限,但是邊長要整數。 用減法就行了 Dim Count As Integer Public Sub GCS(m As Long, n As Long) If m = n Then Count = Count + 1 ElseIf m > n Then Count = Count + 1 GCS m - n, n Else GCS n, m End If End Sub Public Function cc(m As Long, n As Long) As Integer Count = 0 GCS m, n cc = Count End Function -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 219.86.71.131

11/12 20:29, , 1F
最後結果就是Count
11/12 20:29, 1F
文章代碼(AID): #15LnCZEL (Prob_Solve)
討論串 (同標題文章)
文章代碼(AID): #15LnCZEL (Prob_Solve)