Xn=累加和/2的递归算法问题,小分送上
特别计算 Xn = (X1+...Xn-1)/2
下面代码应该如何修改?我实在没办法了,谢谢高手。
Private Sub Form_Load()
Debug.Print MatchP01(100, 3)
'正常结果应该是
'(100,1) =>100
'(100,2) =>50
'(100,3) =>75
'(100,4) =>112.5
End Sub
'P2801
'特别计算 Xn = (X1+...Xn-1)/2
Function MatchP01(MX1, Mn)
'Dim M1
M1 = 0
If Mn = 1 Then
M1 = M1 + MX1
MatchP01 = M1
Else
M1 = M1 + MatchP01(MX1, Mn - 1)
MatchP01 = M1 / 2
End If
End Function