Rosetta Code

Day of the week: Difference between revisions

Page Discussion

Day of the week (view source)

Revision as of 00:27, 13 December 2020

127 bytes removed ,  3 years ago
m
→‎{{header|Commodore BASIC}}: Remove unused leap-year function
m (→‎{{header|Commodore BASIC}}: Improve function names)
m (→‎{{header|Commodore BASIC}}: Remove unused leap-year function)
Line 592:
130 REM TRUE IF Y IS DIVISIBLE BY D
140 DEF FNYD(D) = 0 = FNYM(D)
150 REM TRUERATA IFDIE YEAROF 31 DEC Y IS(CAN BE TAKEN MODULO 7 LEAPTO INGET GREGORIANDAY CALENDAROF WEEK)
160 DEF FNLYFNRD(Y) = FNYD365 * Y + INT(Y/4) AND- INT(FNYD(400Y/100) OR+ NOT FNYDINT(100)Y/400)
170 REM TRUE IF THE GIVEN RD IS A SUNDAY
170 REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7 TO GET DAY OF WEEK)
180 DEF FNRDFND7(Y) = 365 * Y + INTFNYD(Y/4) - INT(Y/100) + INT(Y/4007)
190 REM TRUE IF THECHRISTMAS GIVENFALLS RD ISON A SUNDAY IN THE GIVEN YEAR
200 DEF FND7FNXS(Y) = FNYDFND7(7FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
210 REM TRUETRY IFOUR CHRISTMASTARGET FALLSYEARS ONAND AOUTPUT SUNDAYTHE IN THEONES GIVENTHAT YEARMATCH
220 DEFPRINT FNXS(Y)"THE =FOLLOWING FND7(FNRD(Y)YEARS - 6):REMHAVE CHRISTMAS ISON 6A DAYS BEFORE THE END OF THE YEARSUNDAY:"
230 FOR Y=2008 TO 2121
230 REM TRY OUR TARGET YEARS AND OUTPUT THE ONES THAT MATCH
260240 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS▼
240 PRINT "THE FOLLOWING YEARS HAVE CHRISTMAS ON A SUNDAY:"
250 FORNEXT Y=2008 TO 2121
260 PRINT</lang>▼
▲260 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
270 NEXT Y
280 PRINT
▲</lang>
 
{{Out}}
Markjreed
1,481

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/93554"