21 lines
428 B
Text
21 lines
428 B
Text
100 cls
|
|
110 for i = 1 to 20
|
|
120 rem for i = 1000 to 1016
|
|
130 print i;"= ";factorial$(i)
|
|
140 next i
|
|
150 end
|
|
160 function factorial$(num)
|
|
170 factor$ = "" : x$ = ""
|
|
180 if num = 1 then print "1"
|
|
190 fct = 2
|
|
200 while fct <= num
|
|
210 if (num mod fct) = 0 then
|
|
220 factor$ = factor$+x$+str$(fct)
|
|
230 x$ = " x "
|
|
240 num = num/fct
|
|
250 else
|
|
260 fct = fct+1
|
|
270 endif
|
|
280 wend
|
|
290 print factor$
|
|
300 end function
|