FizzBuzz/Basic: Difference between revisions

Content added Content deleted

Inline

@@ Line 520: / Line 520: @@
 ===TI-99/4a TI BASIC===
-<syntaxhighlight lang="ti-99/4abasic">10 REM **FIZZBUZZ IN TI-BASIC**
+<syntaxhighlight lang="ti-99/4abasic">10 DIM S$(3)
+S$(1)="Fizz"
-FOR I = 1 TO 100
+S$(2)="Buzz"
-IF ((I/15)-INT(I/15))=0 THEN 120
-IF ((I/3)-INT(I/3))=0 THEN 80
+S$(3)="FizzBuzz"
-IF ((I/5)-INT(I/5))=0 THEN 100
+FOR I = 1 TO 100
+X=ABS((I/3=INT(I/3))+(I/5=INT(I/5))*2)
-PRINT I
+IF X=0 THEN 100
-GOTO 140
-PRINT "FIZZ"
+PRINT S$(X)
-GOTO 140
+GOTO 110
-PRINT "BUZZ"
+PRINT I
-GOTO 140
+NEXT I
+END
-PRINT "FIZZBUZZ"
+</syntaxhighlight>
-GOTO 140
-NEXT I
+===TI-99/4a TI Extended BASIC===
-END</syntaxhighlight>
+<syntaxhighlight lang="ti-99/4axb">10 FOR I = 1 TO 100
+IF I/3=INT(I/3) THEN PRINT "Fizz";
+IF I/5=INT(I/5) THEN PRINT "Buzz";
+IF I/3<>INT(I/3) AND I/5<>INT(I/5) THEN PRINT I;
+PRINT
+NEXT I
+</syntaxhighlight>
 ===Tiny BASIC===