32 lines
663 B
Plaintext
32 lines
663 B
Plaintext
Function F(n As Integer, x As Integer, y As Integer) As Integer
|
|
|
|
If n = 0 Then Return x + y
|
|
If y = 0 Then Return x
|
|
Return F(n - 1, F(n, x, y - 1), F(n, x, y - 1) + y)
|
|
|
|
End Function
|
|
|
|
Public Sub Main()
|
|
|
|
Dim n, x, y As Integer
|
|
|
|
For n = 0 To 1
|
|
Print " Values of F(" & n & ", x, y):"
|
|
Print " y/x 0 1 2 3 4 5"
|
|
Print String(29, "-") 'Print " ----------------------------"
|
|
For y = 0 To 6
|
|
Print y; " | ";
|
|
For x = 0 To 5
|
|
Print Format$(F(n, x, y), "####");
|
|
Next
|
|
Print
|
|
Next
|
|
Print
|
|
Next
|
|
|
|
Print "F(2,1,1) = "; F(2, 1, 1)
|
|
Print "F(3,1,1) = "; F(3, 1, 1)
|
|
Print "F(2,2,1) = "; F(2, 2, 1)
|
|
|
|
End
|