Even or odd: Difference between revisions
Even or odd in various BASIC dialents (BASIC256, QBasic, True BASIC and XBasic)
(→{{header|Picat}}: Added comment about built-ins.) |
(Even or odd in various BASIC dialents (BASIC256, QBasic, True BASIC and XBasic)) |
||
Line 842:
50 END
60 PRINT "It's even."</lang>
==={{header|BASIC256}}===
{{works with|True BASIC}}
<lang BASIC256>for i = 1 to 10
if (i mod 2) then print i;" is odd" else print i;" is even"
next i
end</lang>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
{{works with|QRun BASIC}}
<lang qbasic>FOR i = 1 TO 10
IF i AND 1 THEN PRINT i; " is odd" ELSE PRINT i; " is even"
NEXT i</lang>
==={{header|True BASIC}}===
{{works with|BASIC256}}
<lang qbasic>FOR i = 1 to 10
IF MOD(i, 2) = 0 THEN PRINT i; " is odd" ELSE PRINT i; " is even"
NEXT i
END</lang>
==={{header|XBasic}}===
{{works with|Windows XBasic}}
<lang xbasic>PROGRAM "Even/Odd"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
FOR i = 1 TO 10
IF (i MOD 2) THEN PRINT i;" is odd" ELSE PRINT i;" is even"
NEXT i
END FUNCTION
END PROGRAM</lang>
=={{header|Batch File}}==
Line 3,426 ⟶ 3,462:
=={{header|Run BASIC}}==
{{works with|QBasic}}
<lang runbasic>for i = 1 to 10
if i and 1 then print i;" is odd" else print i;" is even"
| |||