13 lines
227 B
Text
13 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
|