14 lines
284 B
Text
14 lines
284 B
Text
100 cls
|
|
110 limite = 13
|
|
120 for i = 0 to limite
|
|
130 print right$(str$(i),2);"! = ";tab (6);factoriali(i)
|
|
140 next i
|
|
150 sub factoriali(n) : 'Iterative
|
|
160 f = 1
|
|
170 if n > 1 then
|
|
180 for j = 2 to n
|
|
190 f = f*j
|
|
200 next j
|
|
210 endif
|
|
220 factoriali = f
|
|
230 end sub
|