12 lines
227 B
Text
12 lines
227 B
Text
100 CLS
|
|
110 LIMITE = 13
|
|
120 FOR N = 0 TO LIMITE
|
|
130 PRINT RIGHT$(STR$(N),2);"! = ";
|
|
135 GOSUB 150
|
|
137 PRINT I
|
|
140 NEXT N
|
|
145 END
|
|
150 'factorial iterative
|
|
160 I = 1
|
|
170 IF N > 1 THEN FOR J = 2 TO N : I = I*J : NEXT J
|
|
230 RETURN
|