Long year: Difference between revisions
Content added Content deleted
m (Visual Basic moved to the BASIC section.) |
(→{{header|Palo Alto Tiny BASIC}}: Added a solution.) |
||
Line 675: | Line 675: | ||
1998 2004 2009 2015 2020 2026 2032 2037 2043 |
1998 2004 2009 2015 2020 2026 2032 2037 2043 |
||
</pre> |
|||
==={{header|Palo Alto Tiny BASIC}}=== |
|||
{{trans|Commodore BASIC}} |
|||
<syntaxhighlight lang="basic"> |
|||
10 REM LONG YEAR |
|||
20 PRINT "*** LIST OF ISO LONG YEARS ***" |
|||
30 INPUT "START YEAR"B |
|||
40 INPUT "END YEAR"E |
|||
50 FOR Y=B TO E |
|||
60 GOSUB 200 |
|||
70 IF L#0 PRINT Y," ", |
|||
80 NEXT Y |
|||
90 PRINT |
|||
100 STOP |
|||
190 REM L NONZERO IF Y IS LONG |
|||
200 LET L=0,J=Y |
|||
210 GOSUB 400 |
|||
220 IF W=4 LET L=1 |
|||
230 LET J=Y-1 |
|||
240 GOSUB 400 |
|||
250 IF W=3 LET L=1 |
|||
260 RETURN |
|||
370 REM CALCULATE DAY OF WEEK W GIVEN |
|||
380 REM OF J-12-31, GIVEN YEAR J |
|||
390 REM SUNDAY = 0, SATURDAY = 6 |
|||
400 LET W=J+J/4-J/100+J/400 |
|||
410 LET W=W-(W/7)*7 |
|||
420 RETURN |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
*** LIST OF ISO LONG YEARS *** |
|||
START YEAR:1995 |
|||
END YEAR:2045 |
|||
1998 2004 2009 2015 2020 2026 2032 2037 2043 |
|||
</pre> |
</pre> |
||