Jump to content

Day of the week: Difference between revisions

Day of the week (view source)

Revision as of 01:35, 13 December 2020

No change in size ,  3 years ago
→‎{{header|Commodore BASIC}}: Fix line numbers
(→‎{{header|Commodore BASIC}}: Remove more extranous stuff)
Line 620:
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)
170150 REM TRUE IF THE GIVEN RD IS A SUNDAY
180160 DEF FND7(N) = 0 = FNNM(7)
190170 REM TRUE IF CHRISTMAS FALLS ON A SUNDAY IN THE GIVEN YEAR
200180 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
210190 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
220200 Y1 = 2008: Y2 = 2121
230210 PRINT CHR$(147);"CHRISTMASES ON SUNDAY";Y1;"-";Y2;CHR$(13)
240220 FOR Y=2008 TO 2121
250230 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
260240 NEXT Y
270250 PRINT</lang>
 
{{Out}}
Markjreed
1,481

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/93558"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information