FizzBuzz/Basic: Difference between revisions
Content added Content deleted
mNo edit summary |
No edit summary |
||
| Line 44: | Line 44: | ||
END IF |
END IF |
||
NEXT A</lang> |
NEXT A</lang> |
||
===Concatenation approach=== |
===Concatenation approach=== |
||
| Line 64: | Line 66: | ||
NEXT A</lang> |
NEXT A</lang> |
||
See also: [[#RapidQ|RapidQ]] |
See also: [[#RapidQ|RapidQ]] |
||
=={{header|Basic09}}== |
|||
<lang Basic09>PROCEDURE FizzBuzz |
|||
DIM n:INTEGER |
|||
FOR n=1 to 100 |
|||
IF MOD(n,15)=0 THEN |
|||
PRINT "FizzBuzz" |
|||
ELSE |
|||
IF MOD(n,3)=0 THEN |
|||
PRINT "Fizz" |
|||
ELSE |
|||
IF MOD(0,5)=0 THEN |
|||
PRINT "Buzz" |
|||
ELSE |
|||
PRINT n |
|||
ENDIF |
|||
ENDIF |
|||
ENDIF |
|||
NEXT n |
|||
END</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |
||