Anonymous user
FizzBuzz/Basic: Difference between revisions
Add an example for TI Extended BASIC; condense the regular TI BASIC example
Basicgames (talk | contribs) |
imported>Tth (Add an example for TI Extended BASIC; condense the regular TI BASIC example) |
||
(14 intermediate revisions by 3 users not shown) | |||
Line 185:
See also [[#Minimal BASIC|Minimal BASIC]].
===
{{works with|Chipmunk Basic|3.6.4}}
{{works with|QBasic}}
{{works with|GW-BASIC}}
{{works with|Just BASIC}}
{{works with|MSX Basic}}
====If/else ladder approach====
<syntaxhighlight lang="qbasic">10 cls
20 for n = 1 to 100
30 if n mod 15 = 0 then print "FizzBuzz" else if n mod 3 = 0 then print "Fizz" else if n mod 5 = 0 then print "Buzz" else print n
40 next n
50 end</syntaxhighlight>
====Concatenation approach====
<syntaxhighlight lang="qbasic">10 cls
20 for n = 1 to 100
30 op$ = ""
40 if n mod 3 = 0 then op$ = "Fizz"
50 if n mod 5 = 0 then op$ = op$+"Buzz"
60 if op$ = "" then print n else print op$
70 next n
80 end</syntaxhighlight>
===Craft Basic===
{{works with|Craft Basic}}
<syntaxhighlight lang="basic">for i = 1 to 100
if i % 15 = 0 then
print "FizzBuzz"
else
print "Fizz"
else
print "Buzz"
else
print i
endif
endif
{{out| Output}}<pre>1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz </pre>
===FreeBASIC===
Line 239 ⟶ 260:
sleep</syntaxhighlight>
==={{header|FTCBASIC}}===
<syntaxhighlight lang="basic">rem uses carry command to perform modulus
rem uses flag variable for elseif structure
define i = 0, f = 0, r = 0
do
let i = i + 1
let f = 1
let r = i / 15
carry r
if r = 0 then
let f = 0
print "FizzBuzz"
endif
let r = i / 3
carry r
if r = 0 and f = 1 then
let f = 0
print "Fizz"
endif
let r = i / 5
carry r
if r = 0 and f = 1 then
let f = 0
print "Buzz"
endif
if f = 1 then
print i
endif
loop i < 100
pause
end</syntaxhighlight>
===GW-BASIC===
Line 278 ⟶ 351:
===Minimal BASIC===
{{works with|Commodore BASIC|3.5}}
{{works with|MSX BASIC|all}}
{{works with|Nascom ROM BASIC|4.7}}
<syntaxhighlight lang="gwbasic">
Line 294 ⟶ 368:
130 NEXT I
140 END</syntaxhighlight>
==={{header|MSX Basic}}===
<syntaxhighlight lang="qbasic">10 CLS
20 FOR N = 1 TO 100
30 IF N MOD 15 = 0 THEN PRINT "FizzBuzz" ELSE IF N MOD 3 = 0 THEN PRINT "Fizz" ELSE IF N MOD 5 = 0 THEN PRINT "Buzz" ELSE PRINT N
40 NEXT N
50 END</syntaxhighlight>
See also [[#Minimal BASIC|Minimal BASIC]], [[#Chipmunk_Basic|Chipmunk Basic]].
==={{header|Palo Alto Tiny BASIC}}===
<syntaxhighlight lang="basic">
10 REM FIZZBUZZ
20 FOR I=1 TO 100
30 IF (I/15)*15=I PRINT "FIZZBUZZ";GOTO 70
40 IF (I/3)*3=I PRINT "FIZZ";GOTO 70
50 IF (I/5)*5=I PRINT "BUZZ";GOTO 70
60 PRINT I
70 NEXT I
80 STOP
</syntaxhighlight>
{{out}}
<pre>
1
2
FIZZ
4
BUZZ
FIZZ
7
8
FIZZ
BUZZ
11
FIZZ
13
14
FIZZBUZZ
</pre>
...
<pre>
91
92
FIZZ
94
BUZZ
FIZZ
97
98
FIZZ
BUZZ
</pre>
===PureBasic===
Line 308 ⟶ 433:
EndIf
Next
Input()
CloseConsole()</syntaxhighlight>
==={{header|Quite BASIC}}===
====If/else ladder approach====
<syntaxhighlight lang="qbasic">10 CLS
20 FOR n = 1 TO 100
30 IF n % 15 = 0 THEN PRINT "FizzBuzz" ELSE IF n % 3 = 0 THEN PRINT "Fizz" ELSE IF n % 5 = 0 THEN PRINT "Buzz" ELSE PRINT n
40 NEXT n
50 END</syntaxhighlight>
====Concatenation approach====
<syntaxhighlight lang="qbasic">10 CLS
20 FOR n = 1 TO 100
30 LET o$ = ""
40 IF n % 3 = 0 THEN LET o$ = "Fizz"
50 IF n % 5 = 0 THEN LET o$ = o$+"Buzz"
60 IF o$ = "" THEN PRINT n ELSE PRINT o$
70 NEXT n
80 END</syntaxhighlight>
===REALbasic===
Line 376 ⟶ 520:
===TI-99/4a TI BASIC===
<syntaxhighlight lang="ti-99/4abasic">10
20 S$(1)="Fizz"
30 S$(2)="Buzz"
40
50
60 X=ABS((I/3=INT(I/3))+(I/5=INT(I/5))*2)
70 IF X=0 THEN 100
80 PRINT
90 GOTO
100 PRINT
110
120 END
</syntaxhighlight>
===TI-99/4a TI Extended BASIC===
<syntaxhighlight lang="ti-99/4axb">10 FOR I = 1 TO 100
20 IF I/3=INT(I/3) THEN PRINT "Fizz";
30 IF I/5=INT(I/5) THEN PRINT "Buzz";
40 IF I/3<>INT(I/3) AND I/5<>INT(I/5) THEN PRINT I;
50 PRINT
60 NEXT I
</syntaxhighlight>
===Tiny BASIC===
|