Leap year: Difference between revisions
→{{header|ALGOL 60}}: Section added
PatGarrett (talk | contribs) (→{{header|ALGOL 60}}: Section added) |
|||
Line 219:
-- To improve speed a bit more, use with
pragma Inline (Is_Leap_Year);</lang>
=={{header|ALGOL 60}}==
{{works with|A60}}
<lang algol60>begin
integer year;
integer procedure mod(i,j); value i,j; integer i,j;
mod:=i-(i div j)*j;
boolean procedure isLeapYear(year); value year; integer year;
isLeapYear:=mod(year,400)=0 or (mod(year,4)=0 and mod(year,100) notequal 0);
for year := 1899, 1900, 1901, 1902, 1903, 1904, 1905, 1999, 2000, 2001, 2002, 2003, 2004 do begin
outinteger(1,year);
if isLeapYear(year) then outstring(1,"True\n") else outstring(1, "False\n")
end for year
end </lang>
{{out}}
<pre>
1899 False
1900 False
1901 False
1902 False
1903 False
1904 True
1905 False
1999 False
2000 True
2001 False
2002 False
2003 False
2004 True
</pre>
=={{header|ALGOL 68}}==
| |||