|
function factorial(n=real.double)=real.double
|
|
if n = 0 then n = 1 else n = n * factorial(n-1)
|
|
end = n
|
|
|
|
var i=integer
|
|
print "Factorial Calculator"
|
|
print " n n!"
|
|
print "----------------------"
|
|
for i=1 to 15
|
|
print using "## #,###,###,###,###";i;factorial(i)
|
|
next i
|
|
|
|
end
|