⚠️ Warning: This is a draft ⚠️
This means it might contain formatting issues, incorrect code, conceptual problems, or other severe issues.
If you want to help to improve and eventually enable this page, please fork RosettaGit's repository and open a merge request on GitHub.
{{collection|FizzBuzz}}
Applesoft BASIC
10 DEF FN M(N) = ((A / N) - INT (A / N)) * N
20 FOR A = 1 TO 100
30 LET O$ = ""
40 IF FN M(3) = 0 THEN O$ = "FIZZ"
50 IF FN M(5) = 0 THEN O$ = O$ + "BUZZ"
60 IF O$ = "" THEN O$ = STR$ (A)
70 PRINT O$
80 NEXT A
BaCon
' FizzBuzz
FOR i = 1 TO 100
msg$ = IIF$(MOD(i, 3), "", "Fizz")
msg$ = msg$ & IIF$(MOD(i, 5), "", "Buzz")
PRINT IIF$(msg$ = "", STR$(i), msg$), " ";
NEXT
PRINT
{{out}}
prompt$ bacon fizzbuzz.bac
Converting 'fizzbuzz.bac'... done, 7 lines were processed in 0.003 seconds.
Compiling 'fizzbuzz.bac'... cc -c fizzbuzz.bac.c
cc -o fizzbuzz fizzbuzz.bac.o -lbacon -lm
Done, program 'fizzbuzz' ready.
prompt$ ./fizzbuzz | fold -w 72 -s
1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19
Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz
Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52
53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz
Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86
Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz
BASIC
{{works with|QuickBasic|4.5}}
If/else ladder approach
FOR A = 1 TO 100
IF A MOD 15 = 0 THEN
PRINT "FizzBuzz"
ELSE IF A MOD 3 = 0 THEN
PRINT "Fizz"
ELSE IF A MOD 5 = 0 THEN
PRINT "Buzz"
ELSE
PRINT A
END IF
NEXT A
Concatenation approach
FOR A = 1 TO 100
OUT$ = ""
IF A MOD 3 = 0 THEN
OUT$ = "Fizz"
END IF
IF A MOD 5 = 0 THEN
OUT$ = OUT$ + "Buzz"
END IF
IF OUT$ = "" THEN
OUT$ = STR$(A)
END IF
PRINT OUT$
NEXT A
See also: [[#RapidQ|RapidQ]]
BBC BASIC
FOR number% = 1 TO 100
CASE TRUE OF
WHEN number% MOD 15 = 0: PRINT "FizzBuzz"
WHEN number% MOD 3 = 0: PRINT "Fizz"
WHEN number% MOD 5 = 0: PRINT "Buzz"
OTHERWISE: PRINT ; number%
ENDCASE
NEXT number%
Basic Casio
## FreeBASIC
```freebasic
'FreeBASIC
Dim As ULong n
For n = 1 To 100
If n Mod 15 = 0 Then
Print "FizzBuzz"
ElseIf n Mod 3 = 0 Then
Print "Fizz"
ElseIf n Mod 5 = 0 Then
Print "Buzz"
Else
Print n
End If
Next n
sleep
=={{header|GW-BASIC}}==
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
=={{header|IS-BASIC}}==
## Liberty BASIC
```lb
for i = 1 to 100
select case
case i mod 15 = 0
print "FizzBuzz"
case i mod 3 = 0
print "Fizz"
case i mod 5 = 0
print "Buzz"
case else
print i
end select
next i
PureBasic
OpenConsole()
For x = 1 To 100
If x%15 = 0
PrintN("FizzBuzz")
ElseIf x%3 = 0
PrintN("Fizz")
ElseIf x%5 = 0
PrintN("Buzz")
Else
PrintN(Str(x))
EndIf
Next
Input()
REALbasic
For i As Integer = 1 To 100
If i mod 3 = 0 And i mod 5 = 0 Then
Print("FizzBuzz")
ElseIf i mod 3 = 0 Then
Print("Fizz")
ElseIf i mod 5 = 0 Then
Print("Buzz")
Else
Print(Str(i))
End If
Next
An alternative syntax:
For i As Integer = 1 To 100
Select Case True
Case i mod 3 = 0 And i mod 5 = 0
Print("FizzBuzz")
Case i mod 3 = 0
Print("Fizz")
Case i mod 5 = 0
Print("Buzz")
Else
Print(Str(i))
End Select
Next
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
Output:
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
Run BASIC
for i = 1 to 100
print i;
if (i mod 15) = 0 then print " FizzBuzz";
if (i mod 3) = 0 then print " Fizz";
if (i mod 5) = 0 then print " Buzz";
print
next i
tbas
FOR i = 1 TO 100
LET SHOW$ = ""
IF MOD(i,3) = 0 THEN
LET SHOW$ = SHOW$ + "Fizz"
END IF
IF MOD(i,5) = 0 THEN
LET SHOW$ = SHOW$ + "Buzz"
END IF
IF SHOW$ = "" THEN
LET SHOW$ = STR$(i)
END IF
PRINT SHOW$;" ";
NEXT
=={{header|TI-83 BASIC}}==
PROGRAM:FIZZBUZZ
For(I,1,100
I
If not(fPart(I/3
"FIZZ
If not(fPart(I/5
"BUZZ
If not(fPart(I/15
"FIZZBUZZ
Disp Ans
:End
Visual Basic .NET
'''Platform:''' [[.NET]] {{works with|Visual Basic .NET|9.0+}}
Sub Main()
For i = 1 To 100
If i Mod 15 = 0 Then
Console.WriteLine("FizzBuzz")
ElseIf i Mod 5 = 0 Then
Console.WriteLine("Buzz")
ElseIf i Mod 3 = 0 Then
Console.WriteLine("Fizz")
Else
Console.WriteLine(i)
End If
Next
End Sub
== {{header|XBasic}} == {{works with|Windows XBasic}}
PROGRAM "fizzbuzz"
VERSION "0.0001"
DECLARE FUNCTION Entry()
FUNCTION Entry()
FOR i% = 1 TO 100
SELECT CASE TRUE
CASE i% MOD 15 = 0:
PRINT "FizzBuzz"
CASE i% MOD 3 = 0:
PRINT "Fizz"
CASE i% MOD 5 = 0:
PRINT "Buzz"
CASE ELSE:
PRINT i%
END SELECT
NEXT i%
END FUNCTION
END PROGRAM