Long year: Difference between revisions
Long year in Gambas, Run Basic and XBasic
(Long year in MSX Basic) |
(Long year in Gambas, Run Basic and XBasic) |
||
Line 572:
false
</pre>
==={{header|Gambas}}===
{{trans|BASIC256}}
<syntaxhighlight lang="vbnet">Public Sub Main()
For y As Integer = 2000 To 2100
If isLongYear(y) Then Print y,
Next
End
Function p(y As Integer) As Integer
Return (y + (y \ 4) - (y \ 100) + (y \ 400)) Mod 7
End Function
Function isLongYear(y As Integer) As Boolean
If p(y) = 4 Then Return True
If p(y - 1) = 3 Then Return True
Return False
End Function</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>
==={{header|GW-BASIC}}===
Line 672 ⟶ 698:
EndIf</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>
==={{header|
{{Works with|QB|4.x}}
{{Works with|PDS|7.x}}
Line 726 ⟶ 750:
End of program.
</pre>
==={{header|Run BASIC}}===
{{trans|BASIC256}}
<syntaxhighlight lang="vb">function p(y)
p = (y + int(y/4) - int(y/100) + int(y/400)) mod 7
end function
function isLongYear(y)
isLongYear = (p(y) = 4) or (p(y -1) = 3)
end function
for y = 2000 to 2100
if isLongYear(y) then print y
next y
end</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>
==={{header|S-Basic}}===
Line 832 ⟶ 873:
END</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>>
==={{header|XBasic}}===
{{works with|Windows XBasic}}
{{trans|BASIC256}}
<syntaxhighlight lang="qbasic">PROGRAM "LongYear"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
DECLARE FUNCTION p (y)
DECLARE FUNCTION isLongYear (y)
FUNCTION Entry ()
FOR y = 2000 TO 2100
IF isLongYear(y) THEN PRINT y,
NEXT y
END FUNCTION
FUNCTION p (y)
RETURN (y + INT(y/4) - INT(y/100) + INT(y/400)) MOD 7
END FUNCTION
FUNCTION isLongYear (y)
RETURN (p(y) = 4) OR (p(y - 1) = 3)
END FUNCTION
END PROGRAM</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>
==={{header|Yabasic}}===
Line 847 ⟶ 913:
for y = 2000 to 2100
if isLongYear(y)
next y
end</syntaxhighlight>
{{out}}
<pre>Same as BASIC256 entry.</pre>
=={{header|BCPL}}==
| |||