Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
28
Task/Multifactorial/ERRE/multifactorial.erre
Normal file
28
Task/Multifactorial/ERRE/multifactorial.erre
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue