Anonymous user
FizzBuzz/Basic: Difference between revisions
Add an example for TI Extended BASIC; condense the regular TI BASIC example
(Added Quite BASIC) |
imported>Tth (Add an example for TI Extended BASIC; condense the regular TI BASIC example) |
||
(4 intermediate revisions by 3 users not shown) | |||
Line 238:
endif
next i</syntaxhighlight>
{{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>
end</syntaxhighlight>▼
===FreeBASIC===
Line 352 ⟶ 351:
===Minimal BASIC===
{{works with|Commodore BASIC|3.5}}
{{works with|MSX
{{works with|Nascom ROM BASIC|4.7}}
<syntaxhighlight lang="gwbasic">
Line 377 ⟶ 376:
50 END</syntaxhighlight>
See also [[#Minimal BASIC|Minimal BASIC]], [[#Chipmunk_Basic|Chipmunk Basic]].
==={{header|Palo Alto Tiny BASIC}}===
<syntaxhighlight lang="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
{{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 391 ⟶ 433:
EndIf
Next
Input()
==={{header|Quite BASIC}}===
Line 477 ⟶ 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===
|