16 lines
264 B
Text
16 lines
264 B
Text
|
mata
|
||
|
|
real scalar function fact1(real scalar n) {
|
||
|
|
if (n<2) return(1)
|
||
|
|
else return(fact1(n-1)*n)
|
||
|
|
}
|
||
|
|
|
||
|
|
real scalar function fact2(real scalar n) {
|
||
|
|
a=1
|
||
|
|
for (i=2;i<=n;i++) a=a*i
|
||
|
|
return(a)
|
||
|
|
}
|
||
|
|
|
||
|
|
printf("%f\n",fact1(8))
|
||
|
|
printf("%f\n",fact2(8))
|
||
|
|
printf("%f\n",factorial(8))
|