Day of the week: Difference between revisions
Content added Content deleted
(Day of the week in Chipmunk Basic) |
(→{{header|Palo Alto Tiny BASIC}}: Added a solution.) |
||
Line 959: | Line 959: | ||
140 END |
140 END |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
==={{header|Palo Alto Tiny BASIC}}=== |
|||
{{trans|GW-BASIC}} |
|||
<syntaxhighlight lang="basic"> |
|||
10 REM DAY OF THE WEEK |
|||
20 LET M=12,D=25 |
|||
30 FOR Y=2007 TO 2122 |
|||
40 GOSUB 200 |
|||
50 IF Z=0 PRINT Y," ", |
|||
60 NEXT Y |
|||
70 PRINT |
|||
80 STOP |
|||
170 REM CALCULATE DAY OF WEEK Z GIVEN |
|||
180 REM YEAR Y, MONTH M, AND DAY D |
|||
190 REM SUNDAY = 0, SATURDAY = 6 |
|||
200 IF M<3 LET Y=Y-1,M=M+12 |
|||
210 LET Z=Y+Y/4-Y/100+Y/400 |
|||
220 LET Z=Z+D+(153*M+8)/5 |
|||
230 LET Z=Z-(Z/7)*7 |
|||
240 RETURN |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 |
|||
</pre> |
|||
==={{header|PureBasic}}=== |
==={{header|PureBasic}}=== |