Day of the week: Difference between revisions
Content added Content deleted
(→{{header|Commodore BASIC}}: Remove more extranous stuff) |
(→{{header|Commodore BASIC}}: Fix line numbers) |
||
| Line 620: | Line 620: | ||
130 REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7 TO GET DAY OF WEEK) |
130 REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7 TO GET DAY OF WEEK) |
||
140 DEF FNRD(Y) = 365 * Y + INT(Y/4) - INT(Y/100) + INT(Y/400) |
140 DEF FNRD(Y) = 365 * Y + INT(Y/4) - INT(Y/100) + INT(Y/400) |
||
150 REM TRUE IF THE GIVEN RD IS A SUNDAY |
|||
160 DEF FND7(N) = 0 = FNNM(7) |
|||
170 REM TRUE IF CHRISTMAS FALLS ON A SUNDAY IN THE GIVEN YEAR |
|||
180 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR |
|||
190 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH |
|||
200 Y1 = 2008: Y2 = 2121 |
|||
210 PRINT CHR$(147);"CHRISTMASES ON SUNDAY";Y1;"-";Y2;CHR$(13) |
|||
220 FOR Y=2008 TO 2121 |
|||
230 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS |
|||
240 NEXT Y |
|||
250 PRINT</lang> |
|||
{{Out}} |
{{Out}} |
||