Anonymous user
FizzBuzz/Basic: Difference between revisions
Add an example for TI Extended BASIC; condense the regular TI BASIC example
m (→PureBasic) |
imported>Tth (Add an example for TI Extended BASIC; condense the regular TI BASIC example) |
||
Line 520:
===TI-99/4a TI BASIC===
<syntaxhighlight lang="ti-99/4abasic">10
20 S$(1)="Fizz"
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
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;
</syntaxhighlight>
===Tiny BASIC===
| |||