в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:30Z

1 версия

Новая страница

==Demonstrating Fibonacci sequence recursively==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim number As Integer = 13
Console.WriteLine("Fibonacci Value is " & Fibonacci(number))

End Sub
" calculate Fibonacci value recusively
Shared Function Fibonacci(ByVal number As Integer) As Long
" check for base cases
If number = 1 OrElse number = 0 Then
Return number
Else
Return Fibonacci(number - 1) + Fibonacci(number - 2)
End If
End Function " Fibonacci
End Class</source>
<pre class=codeResult>Fibonacci Value is 233</pre>

==Recursively generates factorial of number==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim value As Integer = 12
Dim i As Integer
For i = 0 To value
Console.WriteLine(i & "! = " & Factorial(i))
Next
End Sub

Shared Function Factorial(ByVal number As Long) As Long
If number <= 1 Then " base case
Return 1
Else
Return number * Factorial(number - 1)
End If
End Function " Factorial
End Class</source>
<pre class=codeResult>0! = 1
1! = 1
2! = 2
3! = 6
4! = 24
5! = 120
6! = 720
7! = 5040
8! = 40320
9! = 362880
10! = 3628800
11! = 39916800
12! = 479001600</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Class Module/Recursive Function - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия