Post by jarych on Jul 16, 2022 4:06:33 GMT
Maybe this post belongs in Code Discussion. Moderator or Administrator decide on that.
FizzBuzz as a BASIC program. This I spent maybe 30 to 40 minutes to make. Neat formatting
wanted and accomplished! I put some careful thought into exactly how to handle the line which ends in a comma; and the use of INT() function.
(In case anyone not know, manage the counting number 1 to 100. fizz for multiples of 3; buzz for multiples of 5; and fizzbuzz if multiples
of both 3 AND 5 ---- replace the number with the word.)
FizzBuzz as a BASIC program. This I spent maybe 30 to 40 minutes to make. Neat formatting
wanted and accomplished! I put some careful thought into exactly how to handle the line which ends in a comma; and the use of INT() function.
(In case anyone not know, manage the counting number 1 to 100. fizz for multiples of 3; buzz for multiples of 5; and fizzbuzz if multiples
of both 3 AND 5 ---- replace the number with the word.)
'fizbuzz select case usage?
'guessing want CR LF as chr$(13) plus chr$(10)
dim fb$(110)
for number=1 to 100
select case
case number/3=int(number/3) and number/5<>int(number/5)
fb$(number)="fizz"
case number/3<>int(number/3) and number/5=int(number/5)
fb$(number)="buzz"
case number/15=int(number/15)
fb$(number)="fizzbuzz"
case else
fb$(number)=str$(number)
end select
next number
for i=1 to 100
print fb$(i),
if i/10=int(i/10)then
print chr$(13)+chr$(10)
end if
next i
END
