Anonymous user
FizzBuzz/Basic: Difference between revisions
moving GW-BASIC
(moving BBC BASIC, Casio BASIC) |
(moving GW-BASIC) |
||
Line 1:
{{collection|FizzBuzz}}
<lang applesoftbasic>10 DEF FN M(N) = ((A / N) - INT (A / N)) * N▼
20 FOR A = 1 TO 100▼
30 LET O$ = ""▼
40 IF FN M(3) = 0 THEN O$ = "FIZZ"▼
50 IF FN M(5) = 0 THEN O$ = O$ + "BUZZ"▼
60 IF O$ = "" THEN O$ = STR$ (A)▼
70 PRINT O$▼
80 NEXT A▼
</lang>▼
=={{header|BASIC}}==
Line 15 ⟶ 26:
END IF
NEXT A</lang>
===Concatenation approach===
<lang qbasic>FOR A = 1 TO 100
Line 34 ⟶ 46:
NEXT A</lang>
See also: [[#RapidQ|RapidQ]]
▲==={{header|Applesoft BASIC}}===
▲<lang applesoftbasic>10 DEF FN M(N) = ((A / N) - INT (A / N)) * N
▲20 FOR A = 1 TO 100
▲30 LET O$ = ""
▲40 IF FN M(3) = 0 THEN O$ = "FIZZ"
▲50 IF FN M(5) = 0 THEN O$ = O$ + "BUZZ"
▲60 IF O$ = "" THEN O$ = STR$ (A)
▲70 PRINT O$
▲80 NEXT A
▲</lang>
=={{header|BBC BASIC}}==
Line 74 ⟶ 75:
Lbl 1↵
Next</lang>
=={{header|GW-BASIC}}==
<lang qbasic>10 FOR N = 1 TO 100
20 OP$ = ""
30 IF N MOD 3 = 0 THEN OP$ = "Fizz"
40 IF N MOD 5 = 0 THEN OP$ = OP$ + "Buzz"
50 IF OP$ = "" THEN PRINT N ELSE PRINT OP$
60 NEXT N
</lang>
| |||