23 lines
444 B
Plaintext
23 lines
444 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
Function multiFactorial (n As UInteger, degree As Integer) As UInteger
|
|
If n < 2 Then Return 1
|
|
Var result = n
|
|
For i As Integer = n - degree To 2 Step -degree
|
|
result *= i
|
|
Next
|
|
Return result
|
|
End Function
|
|
|
|
For degree As Integer = 1 To 5
|
|
Print "Degree"; degree; " => ";
|
|
For n As Integer = 1 To 10
|
|
Print multiFactorial(n, degree); " ";
|
|
Next n
|
|
Print
|
|
Next degree
|
|
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|