21 lines
488 B
Plaintext
21 lines
488 B
Plaintext
100 FUNCTION multiFactorial (n, degree)
|
|
110 IF n < 2 THEN
|
|
120 LET multiFactorial = 1
|
|
130 EXIT FUNCTION
|
|
140 END IF
|
|
150 LET result = n
|
|
160 FOR i = n - degree TO 2 STEP -degree
|
|
170 LET result = result * i
|
|
180 NEXT i
|
|
190 LET multiFactorial = result
|
|
200 END FUNCTION
|
|
210
|
|
220 FOR degree = 1 TO 5
|
|
230 PRINT "Degree"; degree; " => ";
|
|
240 FOR n = 1 TO 10
|
|
250 PRINT multiFactorial(n, degree); " ";
|
|
260 NEXT n
|
|
270 PRINT
|
|
280 NEXT degree
|
|
290 END
|