|
100 cls
|
|
110 limite = 13
|
|
120 for i = 0 to limite
|
|
130 print right$(str$(i),2);"! = ";tab (6);factorialr(i)
|
|
140 next i
|
|
150 sub factorialr(n) : 'Recursive
|
|
160 if n < 2 then
|
|
170 f = 1
|
|
180 else
|
|
190 f = n*factorialr(n-1)
|
|
200 endif
|
|
210 factorialr = f
|
|
220 end sub
|