|
| |
|
|
| |
для: codexomega
(19.03.2006 в 20:28)
| | | Большое Вам спасибо! | |
| |
|
|
| |
|
|
| |
для: alik
(19.03.2006 в 19:55)
| | | http://www.geocities.com/hjsmithh/Ackerman/Acker1P.html
Private Function ackerman(ByVal m As Long, ByVal n As Long)
If m = 0 Then
Return n + 1
ElseIf n = 0 Then
Return ackerman(m - 1, 1)
Else
Return ackerman(m - 1, ackerman(m, n - 1))
End If
End Function
|
| |
| |
|
|
| |
|
|
| | Люди!!! Пожалуйста помогите найти код финкции Аккермана на делфи. Очень нужно. Перелистал куча сайтов, ничего толком не нашёл. Заранее спасибо.
функция Аккермана Ack(m, n) определяется для целых m?0, n?0 условиями:
Ack(0, n) = n+1,
Ack(m, 0) = Ack(m-1,1) при m > 0,
Ack(m, n) = Ack(m-1, Ack(m,n-1)) при m, n > 0. | |
| |
|
|
|
