FizzBuzz/Basic: Difference between revisions

Content added Content deleted
(Fixed syntax highlighting and duplicate headers.)
Line 1: Line 1:
{{collection|FizzBuzz}}
{{collection|FizzBuzz}}


=={{header|Applesoft BASIC}}==
===Applesoft BASIC===
<lang applesoftbasic>10 DEF FN M(N) = ((A / N) - INT (A / N)) * N
<syntaxhighlight lang="applesoftbasic">10 DEF FN M(N) = ((A / N) - INT (A / N)) * N
20 FOR A = 1 TO 100
20 FOR A = 1 TO 100
30 LET O$ = ""
30 LET O$ = ""
Line 9: Line 9:
60 IF O$ = "" THEN O$ = STR$ (A)
60 IF O$ = "" THEN O$ = STR$ (A)
70 PRINT O$
70 PRINT O$
80 NEXT A
80 NEXT A</syntaxhighlight>
</lang>


=={{header|ASIC}}==
===ASIC===
<lang basic>
<syntaxhighlight lang="basic">
REM FizzBuzz
REM FizzBuzz
CLS
CLS
Line 46: Line 45:
ENDIF
ENDIF
NEXT I
NEXT I
END</syntaxhighlight>
END
</lang>


=={{header|BaCon}}==
===BaCon===
<lang freebasic>' FizzBuzz
<syntaxhighlight lang="freebasic">' FizzBuzz
FOR i = 1 TO 100
FOR i = 1 TO 100
msg$ = IIF$(MOD(i, 3), "", "Fizz")
msg$ = IIF$(MOD(i, 3), "", "Fizz")
Line 56: Line 54:
PRINT IIF$(msg$ = "", STR$(i), msg$), " ";
PRINT IIF$(msg$ = "", STR$(i), msg$), " ";
NEXT
NEXT
PRINT</lang>
PRINT</syntaxhighlight>


{{out}}
{{out}}
Line 67: Line 65:
Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz</pre>
Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz</pre>


=={{header|BASIC}}==
===BASIC===
{{works with|QuickBasic|4.5}}
{{works with|QuickBasic|4.5}}
===If/else ladder approach===
===If/else ladder approach===
<lang qbasic>FOR A = 1 TO 100
<syntaxhighlight lang="qbasic">FOR A = 1 TO 100
IF A MOD 15 = 0 THEN
IF A MOD 15 = 0 THEN
PRINT "FizzBuzz"
PRINT "FizzBuzz"
Line 80: Line 78:
PRINT A
PRINT A
END IF
END IF
NEXT A</lang>
NEXT A</syntaxhighlight>





===Concatenation approach===
===Concatenation approach===
<lang qbasic>FOR A = 1 TO 100
<syntaxhighlight lang="qbasic">FOR A = 1 TO 100
OUT$ = ""
OUT$ = ""


Line 101: Line 98:


PRINT OUT$
PRINT OUT$
NEXT A</lang>
NEXT A</syntaxhighlight>
See also: [[#RapidQ|RapidQ]]
See also: [[#RapidQ|RapidQ]]


=={{header|Basic09}}==
===Basic09===
<lang Basic09>PROCEDURE FizzBuzz
<syntaxhighlight lang="Basic09">PROCEDURE FizzBuzz
DIM n:INTEGER
DIM n:INTEGER


Line 123: Line 120:
ENDIF
ENDIF
NEXT n
NEXT n
END</lang>
END</syntaxhighlight>




=={{header|BASIC256}}==
===BASIC256===
<lang freebasic>
<syntaxhighlight lang="freebasic">
for number = 1 to 100
for number = 1 to 100
if number mod 15 = 0 then
if number mod 15 = 0 then
Line 143: Line 140:
end if
end if
next number
next number
end</syntaxhighlight>
end
</lang>




=={{header|BBC BASIC}}==
===BBC BASIC===
<lang bbcbasic> FOR number% = 1 TO 100
<syntaxhighlight lang="bbcbasic"> FOR number% = 1 TO 100
CASE TRUE OF
CASE TRUE OF
WHEN number% MOD 15 = 0: PRINT "FizzBuzz"
WHEN number% MOD 15 = 0: PRINT "FizzBuzz"
Line 155: Line 151:
OTHERWISE: PRINT ; number%
OTHERWISE: PRINT ; number%
ENDCASE
ENDCASE
NEXT number%</lang>
NEXT number%</syntaxhighlight>


=={{header|Casio BASIC}}==
===Casio BASIC===
<lang>For 1→A To 100 Step 1↵
<syntaxhighlight lang="basic">For 1→A To 100 Step 1↵
MOD(A,15)→B↵
MOD(A,15)→B↵
MOD(A,3)→C↵
MOD(A,3)→C↵
Line 174: Line 170:
↵
↵
Lbl 1↵
Lbl 1↵
Next</lang>
Next</syntaxhighlight>


== {{header|Commodore BASIC}} ==
===Commodore BASIC===
{{works with|Commodore BASIC|3.5}}
{{works with|Commodore BASIC|3.5}}
<lang basic>
<syntaxhighlight lang="basic">
10 REM FIZZBUZZ
10 REM FIZZBUZZ
20 FOR I=1 TO 100
20 FOR I=1 TO 100
Line 186: Line 182:
60 PRINT I
60 PRINT I
70 NEXT I
70 NEXT I
80 END
80 END</syntaxhighlight>
</lang>
See also [[#Minimal BASIC|Minimal BASIC]].
See also [[#Minimal BASIC|Minimal BASIC]].


=={{header|FreeBASIC}}==
===FreeBASIC===
<lang freebasic>'FreeBASIC
<syntaxhighlight lang="freebasic">'FreeBASIC
Dim As ULong n
Dim As ULong n


Line 208: Line 203:
Next n
Next n


sleep</lang>
sleep</syntaxhighlight>


=={{header|GW-BASIC}}==
===GW-BASIC===
<lang qbasic>10 FOR N = 1 TO 100
<syntaxhighlight lang="qbasic">10 FOR N = 1 TO 100
20 OP$ = ""
20 OP$ = ""
30 IF N MOD 3 = 0 THEN OP$ = "Fizz"
30 IF N MOD 3 = 0 THEN OP$ = "Fizz"
40 IF N MOD 5 = 0 THEN OP$ = OP$ + "Buzz"
40 IF N MOD 5 = 0 THEN OP$ = OP$ + "Buzz"
50 IF OP$ = "" THEN PRINT N ELSE PRINT OP$
50 IF OP$ = "" THEN PRINT N ELSE PRINT OP$
60 NEXT N
60 NEXT N</syntaxhighlight>
</lang>


=={{header|IS-BASIC}}==
===IS-BASIC===
<lang IS-BASIC>100 PROGRAM "Fizzbuzz.bas"
<syntaxhighlight lang="is-basic">100 PROGRAM "Fizzbuzz.bas"
110 FOR I=1 TO 100
110 FOR I=1 TO 100
120 IF MOD(I,15)=0 THEN
120 IF MOD(I,15)=0 THEN
Line 231: Line 225:
190 PRINT I
190 PRINT I
200 END IF
200 END IF
210 NEXT</lang>
210 NEXT</syntaxhighlight>


=={{header|Liberty BASIC}}==
===Liberty BASIC===
<lang lb>for i = 1 to 100
<syntaxhighlight lang="lb">for i = 1 to 100
select case
select case
case i mod 15 = 0
case i mod 15 = 0
Line 245: Line 239:
print i
print i
end select
end select
next i</lang>
next i</syntaxhighlight>


== {{header|Minimal BASIC}} ==
===Minimal BASIC===
{{works with|Commodore BASIC|3.5}}
{{works with|Commodore BASIC|3.5}}
{{works with|Nascom ROM BASIC|4.7}}
{{works with|Nascom ROM BASIC|4.7}}
<lang gwbasic>
<syntaxhighlight lang="gwbasic">
10 REM FizzBuzz
10 REM FizzBuzz
20 FOR I = 1 TO 100
20 FOR I = 1 TO 100
Line 264: Line 258:
120 PRINT I
120 PRINT I
130 NEXT I
130 NEXT I
140 END
140 END</syntaxhighlight>
</lang>


=={{header|PureBasic}}==
===PureBasic===
<lang purebasic>OpenConsole()
<syntaxhighlight lang="purebasic">OpenConsole()
For x = 1 To 100
For x = 1 To 100
If x%15 = 0
If x%15 = 0
Line 280: Line 273:
EndIf
EndIf
Next
Next
Input()</lang>
Input()</syntaxhighlight>


=={{header|REALbasic}}==
===REALbasic===
<lang vb> For i As Integer = 1 To 100
<syntaxhighlight lang="vb"> For i As Integer = 1 To 100
If i mod 3 = 0 And i mod 5 = 0 Then
If i mod 3 = 0 And i mod 5 = 0 Then
Print("FizzBuzz")
Print("FizzBuzz")
Line 293: Line 286:
Print(Str(i))
Print(Str(i))
End If
End If
Next</lang>
Next</syntaxhighlight>
An alternative syntax:
An alternative syntax:
<syntaxhighlight lang="vb">
<lang vb>
For i As Integer = 1 To 100
For i As Integer = 1 To 100
Select Case True
Select Case True
Line 307: Line 300:
Print(Str(i))
Print(Str(i))
End Select
End Select
Next</lang>
Next</syntaxhighlight>

=={{header|Ring}}==
<lang ring>
for n = 1 to 20
if n % 15 = 0 see "" + n + " = " + "FizzBuzz" + nl loop
but n % 3 = 0 see "" + n + " = " + "Fizz"+ nl
but n % 5 = 0 see "" + n + " = " + "Buzz" + nl
else see "" + n + " = " + n + nl ok
next
</lang>
Output:
<pre>
1 = 1
2 = 2
3 = Fizz
4 = 4
5 = Buzz
6 = Fizz
7 = 7
8 = 8
9 = Fizz
10 = Buzz
11 = 11
12 = Fizz
13 = 13
14 = 14
15 = FizzBuzz
16 = 16
17 = 17
18 = Fizz
19 = 19
20 = Buzz
</pre>


=={{header|Run BASIC}}==
===Run BASIC===
<lang runbasic>for i = 1 to 100
<syntaxhighlight lang="runbasic">for i = 1 to 100
print i;
print i;
if (i mod 15) = 0 then print " FizzBuzz";
if (i mod 15) = 0 then print " FizzBuzz";
Line 349: Line 309:
if (i mod 5) = 0 then print " Buzz";
if (i mod 5) = 0 then print " Buzz";
print
print
next i</lang>
next i</syntaxhighlight>


=={{header|tbas}}==
===tbas===
<lang qbasic>FOR i = 1 TO 100
<syntaxhighlight lang="qbasic">FOR i = 1 TO 100
LET SHOW$ = ""
LET SHOW$ = ""
IF MOD(i,3) = 0 THEN
IF MOD(i,3) = 0 THEN
Line 365: Line 325:
PRINT SHOW$;" ";
PRINT SHOW$;" ";
NEXT</lang>
NEXT</syntaxhighlight>


=={{header|TI-83 BASIC}}==
===TI-83 BASIC===
<lang ti83b>PROGRAM:FIZZBUZZ
<syntaxhighlight lang="ti83b">PROGRAM:FIZZBUZZ
For(I,1,100
For(I,1,100
I
I
Line 378: Line 338:
"FIZZBUZZ
"FIZZBUZZ
Disp Ans
Disp Ans
:End</lang>
:End</syntaxhighlight>


=={{header|TI-99/4a TI BASIC}}==
===TI-99/4a TI BASIC===
<lang TI-99/4abasic>10 REM **FIZZBUZZ IN TI-BASIC**
<syntaxhighlight lang="ti-99/4abasic">10 REM **FIZZBUZZ IN TI-BASIC**
20 FOR I = 1 TO 100
20 FOR I = 1 TO 100
30 IF ((I/15)-INT(I/15))=0 THEN 120
30 IF ((I/15)-INT(I/15))=0 THEN 120
Line 395: Line 355:
130 GOTO 140
130 GOTO 140
140 NEXT I
140 NEXT I
150 END</lang>
150 END</syntaxhighlight>


=={{header|Tiny BASIC}}==
===Tiny BASIC===
<lang tinybasic>
<syntaxhighlight lang="tinybasic">
LET I=1
LET I=1
10 IF (I/15)*15<>I THEN GOTO 20
10 IF (I/15)*15<>I THEN GOTO 20
Line 412: Line 372:
100 LET I=I+1
100 LET I=I+1
IF I<=100 THEN GOTO 10
IF I<=100 THEN GOTO 10
END
END</syntaxhighlight>
</lang>


=={{header|True BASIC}}==
===True BASIC===
<lang qbasic>
<syntaxhighlight lang="qbasic">
FOR number = 1 TO 100
FOR number = 1 TO 100
IF MOD(number, 15) = 0 then
IF MOD(number, 15) = 0 then
Line 428: Line 387:
END IF
END IF
NEXT number
NEXT number
END</syntaxhighlight>
END
</lang>




=={{header|Visual Basic .NET}}==
===Visual Basic .NET===
'''Platform:''' [[.NET]]
'''Platform:''' [[.NET]]
{{works with|Visual Basic .NET|9.0+}}
{{works with|Visual Basic .NET|9.0+}}
<lang vbnet>Sub Main()
<syntaxhighlight lang="vbnet">Sub Main()
For i = 1 To 100
For i = 1 To 100
Line 449: Line 407:
Next
Next
End Sub</lang>
End Sub</syntaxhighlight>


== {{header|XBasic}} ==
===XBasic===
{{works with|Windows XBasic}}
{{works with|Windows XBasic}}
<lang xbasic>
<syntaxhighlight lang="xbasic">
PROGRAM "fizzbuzz"
PROGRAM "fizzbuzz"
VERSION "0.0001"
VERSION "0.0001"
Line 474: Line 432:
END FUNCTION
END FUNCTION


END PROGRAM
END PROGRAM</syntaxhighlight>
</lang>




=={{header|Yabasic}}==
===Yabasic===
<lang yabasic>
<syntaxhighlight lang="yabasic">
for number = 1 to 100
for number = 1 to 100
if mod(number, 15) = 0 then
if mod(number, 15) = 0 then
Line 491: Line 448:
endif
endif
next number
next number
end</syntaxhighlight>
end
</lang>
Retrieved from "https://rosettacode.org/wiki/FizzBuzz/Basic"