Day of the week: Difference between revisions

Day of the week (view source)

165 bytes added , 1 year ago

→‎{{header|GW-BASIC}}: Used features of GW-BASIC to simplify expressions. Added output.

512

edits

Revision as of 00:49, 8 February 2023 (view source) Christophoro S (talk \| contribs) (Dialects of BASIC moved to the BASIC section.) ← Older edit		Revision as of 00:54, 8 February 2023 (view source) Christophoro S (talk \| contribs) (→‎{{header\|GW-BASIC}}: Used features of GW-BASIC to simplify expressions. Added output.) Newer edit →
Line 822: ==={{header\|GW-BASIC}}=== <syntaxhighlight lang="gwbasic">10 MREM =Day 12of the week 20 DEFINT D, =M, 25Y-Z 30 ~~FOR Y~~M = ~~2007~~12: TOD = ~~2122~~25 40 FOR Y = 2007 TO 2122 4050 GOSUB ~~100~~200 5060 IF Z = 0 THEN PRINT Y; ~~60 NEXT Y~~ 70 ~~END~~NEXT Y 80 PRINT ~~100 REM CALCULATE DAY OF WEEK Z GIVEN~~ 90 END ~~110 REM YEAR Y, MONTH M AND DAY D~~ ~~120~~170 REM ~~SUNDAY~~Calculate =day 0,of ~~SATURDAY~~week =Z 6given ~~130~~180 IFREM ~~M < 3 THEN~~year Y, ~~= Y - 1 :~~month M, ~~= M~~and +day 12D 190 REM Sunday = 0, Saturday = 6 140 Z = Y + INT(Y/4) - INT(Y/100) + INT(Y/400)▼ ~~150~~200 ZIF M < 3 THEN Y = ZY +- D1: +M = INT((153M + ~~8)/5)~~12 ▲~~140~~210 Z = Y + ~~INT(~~Y/ \ 4) - ~~INT(~~Y/ \ 100) + ~~INT(~~Y/ \ 400) 160 Z = Z MOD 7▼ 220 Z = Z + D + (153 M + 8) \ 5 170 RETURN</syntaxhighlight>▼ ▲~~160~~230 Z = Z MOD 7 ▲~~170~~240 RETURN</syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> ==={{header\|IS-BASIC}}===