Count in factors: Difference between revisions
Applesoft BASIC
(Count in factors in various BASIC dialents (BASIC256, True BASIC and Yabasic)) |
(Applesoft BASIC) |
||
Line 875:
=={{header|BASIC}}==120 PRINT I" = "FA$
==={{header|Applesoft BASIC}}===
<lang ApplesoftBasic> 100 FOR I = 1 TO 20
110 GOSUB 200"FACTORIAL
120 PRINT I" = "FA$
130 NEXT I
140 END
200 FA$ = "1"
210 LET NUM = I
220 LET X$ = " X "
230 LET O = 5 - (I = 1) * 4
240 FOR F = 2 TO I
250 LET M = INT (NUM / F) * F
260 IF NUM - M GOTO 300
270 LET NUM = NUM / F
280 FA$ = FA$ + X$ + STR$ (F)
290 LET F = F - 1
300 NEXT F
310 FA$ = MID$ (FA$,O)
320 RETURN </lang>
==={{header|BASIC256}}===
{{trans|Run BASIC}}
Line 946 ⟶ 968:
return f$
end sub</lang>
=={{header|BBC BASIC}}==
| |||