16 lines
227 B
Text
16 lines
227 B
Text
function fact1#(n%)
|
|
local i%,r#
|
|
r#=1
|
|
for i%=1 to n%
|
|
r#=r#*i%
|
|
next
|
|
fact1#=r#
|
|
end function
|
|
|
|
function fact2#(n%)
|
|
if n%<=2 then fact2#=n% else fact2#=fact2#(n%-1)*n%
|
|
end function
|
|
|
|
for i%=1 to 20
|
|
print i%,fact1#(i%),fact2#(i%)
|
|
next
|