FizzBuzz/Basic: Difference between revisions
Content added Content deleted
m (→{{header|XBasic}}: {{works with|Windows XBasic}}) |
(This edit adds code for the implementation of FizzBuzz using TI-99/4a's TI-Basic.) |
||
Line 269: | Line 269: | ||
Disp Ans |
Disp Ans |
||
:End</lang> |
:End</lang> |
||
=={{header|TI-99/4a TI BASIC}}== |
|||
<lang TI-99/4abasic>10 REM **FIZZBUZZ IN TI-BASIC** |
|||
20 FOR I = 1 TO 100 |
|||
30 IF ((I/15)-INT(I/15))=0 THEN 120 |
|||
40 IF ((I/3)-INT(I/3))=0 THEN 80 |
|||
50 IF ((I/5)-INT(I/5))=0 THEN 100 |
|||
60 PRINT I |
|||
70 GOTO 140 |
|||
80 PRINT "FIZZ" |
|||
90 GOTO 140 |
|||
100 PRINT "BUZZ" |
|||
110 GOTO 140 |
|||
120 PRINT "FIZZBUZZ" |
|||
130 GOTO 140 |
|||
140 NEXT I |
|||
150 END</lang> |
|||
=={{header|Visual Basic .NET}}== |
=={{header|Visual Basic .NET}}== |