29 lines
439 B
Plaintext
29 lines
439 B
Plaintext
PROGRAM MULTIFACTORIAL
|
|
|
|
PROCEDURE MULTI_FACT(NUM,DEG->MF)
|
|
RESULT=NUM
|
|
N=NUM
|
|
IF N=0 THEN
|
|
MF=1
|
|
EXIT PROCEDURE
|
|
END IF
|
|
LOOP
|
|
N-=DEG
|
|
EXIT IF N<=0
|
|
RESULT*=N
|
|
END LOOP
|
|
MF=RESULT
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);)
|
|
FOR DEG=1 TO 10 DO
|
|
PRINT("Degree";DEG;":";)
|
|
FOR NUM=1 TO 10 DO
|
|
MULTI_FACT(NUM,DEG->MF)
|
|
PRINT(MF;)
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROGRAM
|