30 lines
580 B
Plaintext
30 lines
580 B
Plaintext
for i =0 to 40
|
|
print " FactorialI( "; using( "####", i); ") = "; factorialI( i)
|
|
print " FactorialR( "; using( "####", i); ") = "; factorialR( i)
|
|
next i
|
|
|
|
wait
|
|
|
|
function factorialI( n)
|
|
if n >1 then
|
|
f =1
|
|
For i = 2 To n
|
|
f = f * i
|
|
Next i
|
|
else
|
|
f =1
|
|
end if
|
|
factorialI =f
|
|
end function
|
|
|
|
function factorialR( n)
|
|
if n <2 then
|
|
f =1
|
|
else
|
|
f =n *factorialR( n -1)
|
|
end if
|
|
factorialR =f
|
|
end function
|
|
|
|
end
|