Anonymous user
FizzBuzz/Basic: Difference between revisions
Add an example for TI Extended BASIC; condense the regular TI BASIC example
Basicgames (talk | contribs) m (→Craft Basic) |
imported>Tth (Add an example for TI Extended BASIC; condense the regular TI BASIC example) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 376:
50 END</syntaxhighlight>
See also [[#Minimal BASIC|Minimal BASIC]], [[#Chipmunk_Basic|Chipmunk Basic]].
==={{header|Palo Alto Tiny BASIC}}===
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▼
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 390 ⟶ 433:
EndIf
Next
Input()
CloseConsole()</syntaxhighlight>
==={{header|Quite BASIC}}===
Line 476 ⟶ 520:
===TI-99/4a TI BASIC===
<syntaxhighlight lang="ti-99/4abasic">10
20 S$(1)="Fizz"
▲20 FOR I = 1 TO 100
30 S$(2)="Buzz"
30 IF ((I/15)-INT(I/15))=0 THEN 120▼
40
50
60 X=ABS((I/3=INT(I/3))+(I/5=INT(I/5))*2)
▲60 PRINT I
70 IF X=0 THEN 100
80 PRINT
90 GOTO
100 PRINT
110
120 END
▲120 PRINT "FIZZBUZZ"
</syntaxhighlight>
▲140 NEXT I
===TI-99/4a TI Extended BASIC===
▲150 END</syntaxhighlight>
<syntaxhighlight lang="ti-99/4axb">10 FOR I = 1 TO 100
20 IF I/3=INT(I/3) THEN PRINT "Fizz";
40 IF I/3<>INT(I/3) AND I/5<>INT(I/5) THEN PRINT I;
50 PRINT
60 NEXT I
</syntaxhighlight>
===Tiny BASIC===
| |||