18 lines
337 B
Plaintext
18 lines
337 B
Plaintext
100 PROGRAM "Multifac.bas"
|
|
110 FOR I=1 TO 5
|
|
120 PRINT "Degree";I;":";
|
|
130 FOR N=1 TO 10
|
|
140 PRINT MFACT(N,I);
|
|
150 NEXT
|
|
160 PRINT
|
|
170 NEXT
|
|
180 DEF MFACT(N,D)
|
|
190 NUMERIC I,RES
|
|
200 IF N<2 THEN LET MFACT=1:EXIT DEF
|
|
210 LET RES=N
|
|
220 FOR I=N-D TO 2 STEP-D
|
|
230 LET RES=RES*I
|
|
240 NEXT
|
|
250 LET MFACT=RES
|
|
260 END DEF
|