Rosetta Code

FizzBuzz/Basic: Difference between revisions

Page Discussion

FizzBuzz/Basic (view source)

Revision as of 14:25, 31 August 2022

95 bytes added ,  1 year ago
Fixed syntax highlighting and duplicate headers.
(Fixed syntax highlighting and duplicate headers.)
Line 1:
{{collection|FizzBuzz}}
 
=={{header|=Applesoft BASIC}}===
<langsyntaxhighlight lang="applesoftbasic">10 DEF FN M(N) = ((A / N) - INT (A / N)) * N
20 FOR A = 1 TO 100
30 LET O$ = ""
Line 9:
60 IF O$ = "" THEN O$ = STR$ (A)
70 PRINT O$
80 NEXT A</syntaxhighlight>
</lang>
 
=={{header|=ASIC}}===
<langsyntaxhighlight lang="basic">
REM FizzBuzz
CLS
Line 46 ⟶ 45:
ENDIF
NEXT I
END</syntaxhighlight>
END
</lang>
 
=={{header|=BaCon}}===
<langsyntaxhighlight lang="freebasic">' FizzBuzz
FOR i = 1 TO 100
msg$ = IIF$(MOD(i, 3), "", "Fizz")
Line 56 ⟶ 54:
PRINT IIF$(msg$ = "", STR$(i), msg$), " ";
NEXT
PRINT</langsyntaxhighlight>
 
{{out}}
Line 67 ⟶ 65:
Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz</pre>
 
=={{header|=BASIC}}===
{{works with|QuickBasic|4.5}}
===If/else ladder approach===
<langsyntaxhighlight lang="qbasic">FOR A = 1 TO 100
IF A MOD 15 = 0 THEN
PRINT "FizzBuzz"
Line 80 ⟶ 78:
PRINT A
END IF
NEXT A</langsyntaxhighlight>
 
 
 
===Concatenation approach===
<langsyntaxhighlight lang="qbasic">FOR A = 1 TO 100
OUT$ = ""
 
Line 101 ⟶ 98:
 
PRINT OUT$
NEXT A</langsyntaxhighlight>
See also: [[#RapidQ|RapidQ]]
 
=={{header|=Basic09}}===
<langsyntaxhighlight lang="Basic09">PROCEDURE FizzBuzz
DIM n:INTEGER
 
Line 123 ⟶ 120:
ENDIF
NEXT n
END</langsyntaxhighlight>
 
 
=={{header|=BASIC256}}===
<langsyntaxhighlight lang="freebasic">
for number = 1 to 100
if number mod 15 = 0 then
Line 143 ⟶ 140:
end if
next number
end</syntaxhighlight>
end
</lang>
 
 
=={{header|=BBC BASIC}}===
<langsyntaxhighlight lang="bbcbasic"> FOR number% = 1 TO 100
CASE TRUE OF
WHEN number% MOD 15 = 0: PRINT "FizzBuzz"
Line 155 ⟶ 151:
OTHERWISE: PRINT ; number%
ENDCASE
NEXT number%</langsyntaxhighlight>
 
=={{header|=Casio BASIC}}===
<syntaxhighlight lang="basic">For 1→A To 100 Step 1↵
MOD(A,15)→B↵
MOD(A,3)→C↵
Line 174 ⟶ 170:
↵
Lbl 1↵
Next</langsyntaxhighlight>
 
== {{header|=Commodore BASIC}} ===
{{works with|Commodore BASIC|3.5}}
<langsyntaxhighlight lang="basic">
10 REM FIZZBUZZ
20 FOR I=1 TO 100
Line 186 ⟶ 182:
60 PRINT I
70 NEXT I
80 END</syntaxhighlight>
</lang>
See also [[#Minimal BASIC|Minimal BASIC]].
 
=={{header|=FreeBASIC}}===
<langsyntaxhighlight lang="freebasic">'FreeBASIC
Dim As ULong n
 
Line 208 ⟶ 203:
Next n
 
sleep</langsyntaxhighlight>
 
=={{header|=GW-BASIC}}===
<langsyntaxhighlight lang="qbasic">10 FOR N = 1 TO 100
20 OP$ = ""
30 IF N MOD 3 = 0 THEN OP$ = "Fizz"
40 IF N MOD 5 = 0 THEN OP$ = OP$ + "Buzz"
50 IF OP$ = "" THEN PRINT N ELSE PRINT OP$
60 NEXT N</syntaxhighlight>
</lang>
 
=={{header|=IS-BASIC}}===
<langsyntaxhighlight ISlang="is-BASICbasic">100 PROGRAM "Fizzbuzz.bas"
110 FOR I=1 TO 100
120 IF MOD(I,15)=0 THEN
Line 231 ⟶ 225:
190 PRINT I
200 END IF
210 NEXT</langsyntaxhighlight>
 
=={{header|=Liberty BASIC}}===
<langsyntaxhighlight lang="lb">for i = 1 to 100
select case
case i mod 15 = 0
Line 245 ⟶ 239:
print i
end select
next i</langsyntaxhighlight>
 
== {{header|=Minimal BASIC}} ===
{{works with|Commodore BASIC|3.5}}
{{works with|Nascom ROM BASIC|4.7}}
<langsyntaxhighlight lang="gwbasic">
10 REM FizzBuzz
20 FOR I = 1 TO 100
Line 264 ⟶ 258:
120 PRINT I
130 NEXT I
140 END</syntaxhighlight>
</lang>
 
=={{header|=PureBasic}}===
<langsyntaxhighlight lang="purebasic">OpenConsole()
For x = 1 To 100
If x%15 = 0
Line 280 ⟶ 273:
EndIf
Next
Input()</langsyntaxhighlight>
 
=={{header|=REALbasic}}===
<langsyntaxhighlight lang="vb"> For i As Integer = 1 To 100
If i mod 3 = 0 And i mod 5 = 0 Then
Print("FizzBuzz")
Line 293 ⟶ 286:
Print(Str(i))
End If
Next</langsyntaxhighlight>
An alternative syntax:
<syntaxhighlight lang="vb">
<lang vb>
For i As Integer = 1 To 100
Select Case True
Line 307 ⟶ 300:
Print(Str(i))
End Select
Next</langsyntaxhighlight>
 
=={{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}}===
<langsyntaxhighlight lang="runbasic">for i = 1 to 100
print i;
if (i mod 15) = 0 then print " FizzBuzz";
Line 349 ⟶ 309:
if (i mod 5) = 0 then print " Buzz";
print
next i</langsyntaxhighlight>
 
=={{header|=tbas}}===
<langsyntaxhighlight lang="qbasic">FOR i = 1 TO 100
LET SHOW$ = ""
IF MOD(i,3) = 0 THEN
Line 365 ⟶ 325:
PRINT SHOW$;" ";
NEXT</langsyntaxhighlight>
 
=={{header|=TI-83 BASIC}}===
<langsyntaxhighlight lang="ti83b">PROGRAM:FIZZBUZZ
For(I,1,100
I
Line 378 ⟶ 338:
"FIZZBUZZ
Disp Ans
:End</langsyntaxhighlight>
 
=={{header|=TI-99/4a TI BASIC}}===
<langsyntaxhighlight TIlang="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
Line 395 ⟶ 355:
130 GOTO 140
140 NEXT I
150 END</langsyntaxhighlight>
 
=={{header|=Tiny BASIC}}===
<langsyntaxhighlight lang="tinybasic">
LET I=1
10 IF (I/15)*15<>I THEN GOTO 20
Line 412 ⟶ 372:
100 LET I=I+1
IF I<=100 THEN GOTO 10
END</syntaxhighlight>
</lang>
 
=={{header|=True BASIC}}===
<langsyntaxhighlight lang="qbasic">
FOR number = 1 TO 100
IF MOD(number, 15) = 0 then
Line 428 ⟶ 387:
END IF
NEXT number
END</syntaxhighlight>
END
</lang>
 
 
=={{header|=Visual Basic .NET}}===
'''Platform:''' [[.NET]]
{{works with|Visual Basic .NET|9.0+}}
<langsyntaxhighlight lang="vbnet">Sub Main()
For i = 1 To 100
Line 449 ⟶ 407:
Next
End Sub</langsyntaxhighlight>
 
== {{header|=XBasic}} ===
{{works with|Windows XBasic}}
<langsyntaxhighlight lang="xbasic">
PROGRAM "fizzbuzz"
VERSION "0.0001"
Line 474 ⟶ 432:
END FUNCTION
 
END PROGRAM</syntaxhighlight>
</lang>
 
 
=={{header|=Yabasic}}===
<langsyntaxhighlight lang="yabasic">
for number = 1 to 100
if mod(number, 15) = 0 then
Line 491 ⟶ 448:
endif
next number
end</syntaxhighlight>
end
</lang>
PureFox
9,485

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/329336"