递归（基础教程）

永在战场

第一次接触这个概念，学习一下！！！

用心修炼

留个沙发，后面学习

绕树三匝

彭希仁 发表于 2007-1-23 14:05
再看斐波那契数列一例。
                                公元1202年欧洲数学家伦纳德·斐波那契在他所著的《珠算的书》（Liber Abbaci ...

mark一下以便再来复习

ahjxyjq

太好了，学习了真是太好了

adud

有些不理解啊，慢慢研究研究

凤随心动

彭希仁 发表于 2007-1-23 14:08
 
                        例8.26  汉诺塔。
                        Private Sub Hanoi(ByVal n%, ByVal A$, ByVal B$, ByVal C$)

Private Sub Hanoi(ByVal n%, ByVal A$, ByVal B$, ByVal C$)

    '在本例子过程中,在窗体上打印 “A → C” 来代表把金片从A针移动              '到C针,即1阶汉诺塔问题的解

    If n = 1 Then

        Cells(655360, 1).End(xlUp).Offset(1, 0) = n & ":" & A & "-" & C    '把金片n从A移动到C

    Else

'        Hanoi n - 1, A, C, B            'n?1个金片从A到B，以C为过渡

        Call Hanoi(n - 1, A, C, B)
'        Print n; ": "; A; "→ "; C     '把金片n从A移动到C
        Cells(655360, 1).End(xlUp).Offset(1, 0) = A & "-" & C
'
'        Hanoi n - 1, B, A, C            'n?1个金片从B到C，以A为过渡

'        Cells(65536, 1).End(xlUp).Offset(1, 0) = n - 1 & B & A & C
        Call Hanoi(n - 1, B, A, C)
    End If

End Sub

Public Sub ll()
    Call Hanoi(15, "A", "B", "C")
End Sub
能原封不动的抄，但灵活变通还不会

cui26896

看过各种冠以通俗，简易，详解之类形容词对递归的解释，都不如彭版主这里所讲述得清楚。两个过程递与归，即推理调用函数(自身)，从结束点回归计算出结果。

Excel2119

多年后，依然经典，感谢彭总

grf1973

试着用jsa练习一下20个数凑100的。