Prioject 19 - Counting Sundays, Pascal

Prioject 19 - Counting Sundays

Language: Layout:

//fpc 3.0.0

program Project19;
var d,m,y,n : integer;
    s: integer;
    a:array[1..13] of integer;
          // Program that counts "how many sundays that fell on the first day of the month in the XX centory are there"
          // You can adjust :
          //    (1) The first day (which also determines which day in a week we will count)
          //    (2) The starting year
          //    (3) The finishing year
          //    (4) The condition
          // to count the number of anyday in a week that fell on any day of a month (first day,second day,..) in any
          // period of time
begin
a[1]:=31; // Days in a month
a[2]:=28;
a[3]:=31;
a[4]:=30;
a[5]:=31;
a[6]:=30;
a[7]:=31;
a[8]:=31;
a[9]:=30;
a[10]:=31;
a[11]:=30;
a[12]:=31;
a[13]:=29;
s:=0;
d:=7;m:=1;y:=1900; // First sunday : 7/1/1990
repeat
   if y>1900 then if d=1 then begin inc(s);writeln(d,'-',m,'-',y);end; // If the day belongs to the XX centory (1901-2000) and is the first day of the month (d=1) then count
   d:=d+7;n:=m; 
   if m=2 then if (y mod 400 = 0) then n:=13;
   if m=2 then if (y mod 100 <> 0) then if (y mod 4 =0) then n:=13;
   if d>a[n] then begin d:=d-a[n];inc(m);end;
   if m>12 then begin m:=1;inc(y);end;
until y>2000;
// (1) Count if correct --> (2) Next sunday --> (3) Check if it's in the XX centory --> (1)
writeln(s);
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.14 sec, absolute running time: 0.16 sec, cpu time: 0.04 sec, memory peak: 3 Mb, absolute service time: 0,52 sec

1-9-1901 1-12-1901 1-6-1902 1-2-1903 1-3-1903 1-11-1903 1-5-1904 1-1-1905 1-10-1905 1-4-1906 1-7-1906 1-9-1907 1-12-1907 1-3-1908 1-11-1908 1-8-1909 1-5-1910 1-1-1911 1-10-1911 1-9-1912 1-12-1912 1-6-1913 1-2-1914 1-3-1914 1-11-1914 1-8-1915 1-10-1916 1-4-1917 1-7-1917 1-9-1918 1-12-1918 1-6-1919 1-2-1920 1-8-1920 1-5-1921 1-1-1922 1-10-1922 1-4-1923 1-7-1923 1-6-1924 1-2-1925 1-3-1925 1-11-1925 1-8-1926 1-5-1927 1-1-1928 1-4-1928 1-7-1928 1-9-1929 1-12-1929 1-6-1930 1-2-1931 1-3-1931 1-11-1931 1-5-1932 1-1-1933 1-10-1933 1-4-1934 1-7-1934 1-9-1935 1-12-1935 1-3-1936 1-11-1936 1-8-1937 1-5-1938 1-1-1939 1-10-1939 1-9-1940 1-12-1940 1-6-1941 1-2-1942 1-3-1942 1-11-1942 1-8-1943 1-10-1944 1-4-1945 1-7-1945 1-9-1946 1-12-1946 1-6-1947 1-2-1948 1-8-1948 1-5-1949 1-1-1950 1-10-1950 1-4-1951 1-7-1951 1-6-1952 1-2-1953 1-3-1953 1-11-1953 1-8-1954 1-5-1955 1-1-1956 1-4-1956 1-7-1956 1-9-1957 1-12-1957 1-6-1958 1-2-1959 1-3-1959 1-11-1959 1-5-1960 1-1-1961 1-10-1961 1-4-1962 1-7-1962 1-9-1963 1-12-1963 1-3-1964 1-11-1964 1-8-1965 1-5-1966 1-1-1967 1-10-1967 1-9-1968 1-12-1968 1-6-1969 1-2-1970 1-3-1970 1-11-1970 1-8-1971 1-10-1972 1-4-1973 1-7-1973 1-9-1974 1-12-1974 1-6-1975 1-2-1976 1-8-1976 1-5-1977 1-1-1978 1-10-1978 1-4-1979 1-7-1979 1-6-1980 1-2-1981 1-3-1981 1-11-1981 1-8-1982 1-5-1983 1-1-1984 1-4-1984 1-7-1984 1-9-1985 1-12-1985 1-6-1986 1-2-1987 1-3-1987 1-11-1987 1-5-1988 1-1-1989 1-10-1989 1-4-1990 1-7-1990 1-9-1991 1-12-1991 1-3-1992 1-11-1992 1-8-1993 1-5-1994 1-1-1995 1-10-1995 1-9-1996 1-12-1996 1-6-1997 1-2-1998 1-3-1998 1-11-1998 1-8-1999 1-10-2000 171