34 lines
541 B
Plaintext
34 lines
541 B
Plaintext
include "ConsoleWindow"
|
|
|
|
local fn factorialIterative( n as long ) as double
|
|
dim as double f
|
|
dim as long i
|
|
|
|
if ( n > 1 )
|
|
f = 1
|
|
for i = 2 To n
|
|
f = f * i
|
|
next i
|
|
else
|
|
f = 1
|
|
end if
|
|
end fn = f
|
|
|
|
local fn factorialRecursive( n as long ) as double
|
|
dim as double f
|
|
|
|
if ( n < 2 )
|
|
f = 1
|
|
else
|
|
f = n * fn factorialRecursive( n -1 )
|
|
end if
|
|
end fn = f
|
|
|
|
dim as long i
|
|
|
|
for i = 0 to 12
|
|
print "Iterative:"; using "####"; i; " ="; fn factorialIterative( i )
|
|
print "Recursive:"; using "####"; i; " ="; fn factorialRecursive( i )
|
|
print
|
|
next i
|