20 lines
340 B
Plaintext
20 lines
340 B
Plaintext
for i = 0 to 100
|
|
print " fctrI(";right$("00";str$(i),2); ") = "; fctrI(i)
|
|
print " fctrR(";right$("00";str$(i),2); ") = "; fctrR(i)
|
|
next i
|
|
end
|
|
|
|
function fctrI(n)
|
|
fctrI = 1
|
|
if n >1 then
|
|
for i = 2 To n
|
|
fctrI = fctrI * i
|
|
next i
|
|
end if
|
|
end function
|
|
|
|
function fctrR(n)
|
|
fctrR = 1
|
|
if n > 1 then fctrR = n * fctrR(n -1)
|
|
end function
|