Factorial: Difference between revisions
Content added Content deleted
m (→FORTRAN 77: added </lang> tag in order to restore FreeBASIC entry) |
|||
Line 3,600: | Line 3,600: | ||
===FORTRAN 77=== |
===FORTRAN 77=== |
||
<lang fortran> |
<lang fortran> INTEGER FUNCTION MFACT(N) |
||
INTEGER FUNCTION MFACT(N) |
|||
INTEGER N,I,FACT |
INTEGER N,I,FACT |
||
FACT=1 |
FACT=1 |
||
Line 3,611: | Line 3,610: | ||
MFACT = FACT |
MFACT = FACT |
||
RETURN |
RETURN |
||
END |
END</lang> |
||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||
<lang freebasic>' FB 1.05.0 Win64 |
<lang freebasic>' FB 1.05.0 Win64 |
||
Line 3,643: | Line 3,641: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre> 1 => 1 |
||
1 => 1 |
|||
2 => 2 |
2 => 2 |
||
3 => 6 |
3 => 6 |
||
Line 3,653: | Line 3,650: | ||
8 => 40320 |
8 => 40320 |
||
9 => 362880 |
9 => 362880 |
||
10 => 3628800 |
10 => 3628800</pre> |
||
</pre> |
|||
=={{header|friendly interactive shell}}== |
=={{header|friendly interactive shell}}== |