Персональный сайт - Расчёт даты пасхи

Данная программа производит расчёт даты пасхи в 20-м и 21-м веках по формулам Гаусса и сопоставляет даты православной и католической пасхи.Затем приведена программа расчёта еврейской пасхи. Формулы взяты из книги И.А. Климишина "Календарь и хронология" Москва "Наука" 1985 г. стр.89-90.(исправив опечатку: "если d+e>9",а не 10),стр.176.Православная пасха по старому стилю рассчитывается по одной и той же формуле для любого века.То есть можно получить с помощью первой части программы её дату по старому стилю,например в 19 веке,отбросив перевод на новый стиль(к тому же новый стиль тогда в России не использовался) и стерев строчку с ограничением временного диапазона.При расчёте католической пасхи числовые коэффиценты различны для различных веков(одинаковы для 20-го и 21-го).Их можно найти в указанной книге.Также их можно вычислить,используя более общую версию алгоритма, см.статью в Википедии:"Алгоритм Гаусса вычисление даты пасхи".Православная пасха происходит в период с 4-го апреля(например пасха 2010) по 8-е мая(пасха 1983) по новому стилю т.е. с 22-го марта по 25-е апреля по старому.В этот же период(22 марта - 25 апреля) только по новому стилю происходит католическая пасха.

Впрочем для 20 и 21 -го веков запускать программу нет необходимости.Результаты её работы опубликованы здесь.Сначала на ближайшие годы, затем для всего указанного периода. Для православной пасхи приведены результаты и для 19 века по старому стилю.Проверить выпадает ли указанная дата на воскресение можно с помощью программы "календарь",опубликованной после списка дат пасхи в 20 и 21 веках.

На вложенной странице размещена программа расчёта даты 15 -е нисана по еврейскому календарю и результаты для 20-го и 21-го веков.Хотя пасха у евреев начинает праздноваться с вечера 14 -го нисана и эта дата часто фигурирует в справочниках.Но празднование продолжается и 15-го нисана (день опресноков). Если точнее, то сутки у древних евреев начинались не в полночь, а после захода солнца.Т.е. 15-е нисана не полностью совпадает с получаемой датой, а со сдвигом назад на время от захода солнца до полуночи. Но большая часть праздника всё же происходит в эту дату. Именно этот день в Израиле является нерабочим.

Язык - QBasic.

' Православная и католическая пасхи в 20-м и 21-м веках

0 CLS

LOCATE 2, 35

PRINT "православие"

INPUT " ГОД ", g

IF g > 2099 OR g < 1900 THEN PRINT "дата вне диапазона": END

A = g MOD 19

B = g MOD 4

C = g MOD 7

Z = 19 * A + 15

d = Z MOD 30

S = 2 * B + 4 * C + 6 * d + 6

e = S MOD 7

IF (d + e) > 9 THEN 1

p = 22 + d + e

LOCATE 4, 20

PRINT " ПАСХА"; p; "марта по ст.ст.,"; p - 18; "апреля по н.cт.": GOTO 10

1 LOCATE 4, 20

IF (d + e + 4) < 31 THEN PRINT " ПАСХА"; d + e - 9; "апреля по ст.ст.,"; d + e - 9 + 13; "апреля по н.ст.": GOTO 10

PRINT " ПАСХА"; d + e - 9; "апреля по ст.ст.,"; d + e - 26; "мая по н.ст."

10 LOCATE 12, 2

PRINT TAB(30); "католичество"

PRINT " ГОД "; g

A = g MOD 19

B = g MOD 4

C = g MOD 7

Z = 19 * A + 24

d = Z MOD 30

S = 2 * B + 4 * C + 6 * d + 5

e = S MOD 7

IF (d + e) > 9 THEN 201

p = 22 + d + e

PRINT TAB(28); " ПАСХА"; p; "марта " : GOTO 210

201 IF d + e - 9 = 26 THEN PRINT TAB(28); " пасха"; 19; "апреля": GOTO 210

IF d = 28 AND e = 6 THEN PRINT TAB(28); " пасха"; 18; "апреля":GOTO210

PRINT TAB(28); " ПАСХА"; d + e - 9; "апреля "

210 LOCATE 20, 5

INPUT "cont-1...9,no-0"; x

IF x > 0 THEN 0

END

                   Результаты расчётов на ближайшие годы

               православие (н.ст.)        католичество

2012                 15 апреля                                             8 апреля

2013                   5 мая                                                   31 марта

2014                  20 апреля                                            20 апреля

2015                  12 апреля                                             5 апреля

2016                  1 мая                                                   27 марта

2017                  16 апреля                                            16 апреля

2018                  8 апреля                                              1 апреля

2019                  28 апреля                                            21 апреля

2020                  19 апреля                                            12 апреля

2021 2 мая 4 апреля

2022 24 апреля 17 апреля

2023 16 апреля 9 апреля

2024 5 мая 31 марта

2025 20 апреля 20 апреля

2026 12 апреля 5 апреля

2027 19 апреля 28 марта

2028 16 апреля 16 апреля

Полный список ниже.

Полный список дат пасхи в 20 и 21 веках

ПРАВОСЛАВИЕ КАТОЛИЧЕСТВО

1900 : ПАСХА 9 апреля по ст.ст., 22 апреля по н.ст. ПАСХА 15 апреля

1901 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 7 апреля

1902 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 30 МАРТА

1903 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

1904 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 3 апреля

1905 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 23 апреля

1906 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 15 апреля

1907 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

1908 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. ПАСХА 19 апреля

1909 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 11 апреля

1910 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 27 МАРТА

1911 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 16 апреля

1912 : ПАСХА 25 МАРТА по ст.ст., 7 апреля по н.cт. ПАСХА 7 апреля

1913 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 23 МАРТА

1914 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

1915 : ПАСХА 22 МАРТА по ст.ст., 4 апреля по н.cт. ПАСХА 4 апреля

1916 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 23 апреля

1917 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 8 апреля

1918 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

1919 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 20 апреля

1920 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 4 апреля

1921 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 27 МАРТА

1922 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 16 апреля

1923 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 1 апреля

1924 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 20 апреля

1925 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

1926 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 4 апреля

1927 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

1928 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 8 апреля

1929 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

1930 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 20 апреля

1931 : ПАСХА 30 МАРТА по ст.ст., 12 апреля по н.cт. ПАСХА 5 апреля

1932 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 27 МАРТА

1933 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 16 апреля

1934 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 1 апреля

1935 : ПАСХА 15 апреля по ст.ст., 28 апреля по н.ст. ПАСХА 21 апреля

1936 : ПАСХА 30 МАРТА по ст.ст., 12 апреля по н.cт. ПАСХА 12 апреля

1937 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 28 МАРТА

1938 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

1939 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 9 апреля

1940 : ПАСХА 15 апреля по ст.ст., 28 апреля по н.ст. ПАСХА 24 МАРТА

1941 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 13 апреля

1942 : ПАСХА 23 МАРТА по ст.ст., 5 апреля по н.cт. ПАСХА 5 апреля

1943 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. ПАСХА 25 апреля

1944 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 9 апреля

1945 : ПАСХА 23 апреля по ст.ст., 6 мая по н.ст. ПАСХА 1 апреля

1946 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 21 апреля

1947 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

1948 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 28 МАРТА

1949 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

1950 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 9 апреля

1951 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 25 МАРТА

1952 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 13 апреля

1953 : ПАСХА 23 МАРТА по ст.ст., 5 апреля по н.cт. ПАСХА 5 апреля

1954 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. пасха 18 апреля

1955 : ПАСХА 4 апреля по ст.ст., 17 апреля по н.ст. ПАСХА 10 апреля

1956 : ПАСХА 23 апреля по ст.ст., 6 мая по н.ст. ПАСХА 1 апреля

1957 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 21 апреля

1958 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

1959 : ПАСХА 20 апреля по ст.ст., 3 мая по н.ст. ПАСХА 29 МАРТА

1960 : ПАСХА 4 апреля по ст.ст., 17 апреля по н.ст. ПАСХА 17 апреля

1961 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 2 апреля

1962 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 22 апреля

1963 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 14 апреля

1964 : ПАСХА 20 апреля по ст.ст., 3 мая по н.ст. ПАСХА 29 МАРТА

1965 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. ПАСХА 18 апреля

1966 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 10 апреля

1967 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

1968 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 14 апреля

1969 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

1970 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. ПАСХА 29 МАРТА

1971 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

1972 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 2 апреля

1973 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 22 апреля

1974 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 14 апреля

1975 : ПАСХА 21 апреля по ст.ст., 4 мая по н.ст. ПАСХА 30 МАРТА

1976 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. ПАСХА 18 апреля

1977 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 10 апреля

1978 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

1979 : ПАСХА 9 апреля по ст.ст., 22 апреля по н.ст. ПАСХА 15 апреля

1980 : ПАСХА 24 МАРТА по ст.ст., 6 апреля по н.cт. ПАСХА 6 апреля

1981 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. пасха 19 апреля

1982 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

1983 : ПАСХА 25 апреля по ст.ст., 8 мая по н.ст. ПАСХА 3 апреля

1984 : ПАСХА 9 апреля по ст.ст., 22 апреля по н.ст. ПАСХА 22 апреля

1985 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 7 апреля

1986 : ПАСХА 21 апреля по ст.ст., 4 мая по н.ст. ПАСХА 30 МАРТА

1987 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 19 апреля

1988 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 3 апреля

1989 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

1990 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 15 апреля

1991 : ПАСХА 25 МАРТА по ст.ст., 7 апреля по н.cт. ПАСХА 31 МАРТА

1992 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. ПАСХА 19 апреля

1993 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

1994 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 3 апреля

1995 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 16 апреля

1996 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 7 апреля

1997 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 30 МАРТА

1998 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

1999 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 4 апреля

2000 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 23 апреля

2001 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 15 апреля

2002 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

2003 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 20 апреля

2004 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 11 апреля

2005 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 27 МАРТА

2006 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 16 апреля

2007 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 8 апреля

2008 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 23 МАРТА

2009 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

2010 : ПАСХА 22 МАРТА по ст.ст., 4 апреля по н.cт. ПАСХА 4 апреля

2011 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 24 апреля

2012 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 8 апреля

2013 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

2014 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 20 апреля

2015 : ПАСХА 30 МАРТА по ст.ст., 12 апреля по н.cт. ПАСХА 5 апреля

2016 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 27 МАРТА

2017 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 16 апреля

2018 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 1 апреля

2019 : ПАСХА 15 апреля по ст.ст., 28 апреля по н.ст. ПАСХА 21 апреля

2020 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

2021 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 4 апреля

2022 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

2023 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 9 апреля

2024 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

2025 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 20 апреля

2026 : ПАСХА 30 МАРТА по ст.ст., 12 апреля по н.cт. ПАСХА 5 апреля

2027 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 28 МАРТА

2028 : ПАСХА 3 апреля по ст.ст., 16 апреля по н.ст. ПАСХА 16 апреля

2029 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 1 апреля

2030 : ПАСХА 15 апреля по ст.ст., 28 апреля по н.ст. ПАСХА 21 апреля

2031 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 13 апреля

2032 : ПАСХА 19 апреля по ст.ст., 2 мая по н.ст. ПАСХА 28 МАРТА

2033 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

2034 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 9 апреля

2035 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 25 МАРТА

2036 : ПАСХА 7 апреля по ст.ст., 20 апреля по н.ст. ПАСХА 13 апреля

2037 : ПАСХА 23 МАРТА по ст.ст., 5 апреля по н.cт. ПАСХА 5 апреля

2038 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. ПАСХА 25 апреля

2039 : ПАСХА 4 апреля по ст.ст., 17 апреля по н.ст. ПАСХА 10 апреля

2040 : ПАСХА 23 апреля по ст.ст., 6 мая по н.ст. ПАСХА 1 апреля

2041 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 21 апреля

2042 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

2043 : ПАСХА 20 апреля по ст.ст., 3 мая по н.ст. ПАСХА 29 МАРТА

2044 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 17 апреля

2045 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 9 апреля

2046 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 25 МАРТА

2047 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 14 апреля

2048 : ПАСХА 23 МАРТА по ст.ст., 5 апреля по н.cт. ПАСХА 5 апреля

2049 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. пасха 18 апреля

2050 : ПАСХА 4 апреля по ст.ст., 17 апреля по н.ст. ПАСХА 10 апреля

2051 : ПАСХА 24 апреля по ст.ст., 7 мая по н.ст. ПАСХА 2 апреля

2052 : ПАСХА 8 апреля по ст.ст., 21 апреля по н.ст. ПАСХА 21 апреля

2053 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

2054 : ПАСХА 20 апреля по ст.ст., 3 мая по н.ст. ПАСХА 29 МАРТА

2055 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 18 апреля

2056 : ПАСХА 27 МАРТА по ст.ст., 9 апреля по н.cт. ПАСХА 2 апреля

2057 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 22 апреля

2058 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 14 апреля

2059 : ПАСХА 21 апреля по ст.ст., 4 мая по н.ст. ПАСХА 30 МАРТА

2060 : ПАСХА 12 апреля по ст.ст., 25 апреля по н.ст. ПАСХА 18 апреля

2061 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 10 апреля

2062 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

2063 : ПАСХА 9 апреля по ст.ст., 22 апреля по н.ст. ПАСХА 15 апреля

2064 : ПАСХА 31 МАРТА по ст.ст., 13 апреля по н.cт. ПАСХА 6 апреля

2065 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. ПАСХА 29 МАРТА

2066 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

2067 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 3 апреля

2068 : ПАСХА 16 апреля по ст.ст., 29 апреля по н.ст. ПАСХА 22 апреля

2069 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 14 апреля

2070 : ПАСХА 21 апреля по ст.ст., 4 мая по н.ст. ПАСХА 30 МАРТА

2071 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 19 апреля

2072 : ПАСХА 28 МАРТА по ст.ст., 10 апреля по н.cт. ПАСХА 10 апреля

2073 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

2074 : ПАСХА 9 апреля по ст.ст., 22 апреля по н.ст. ПАСХА 15 апреля

2075 : ПАСХА 25 МАРТА по ст.ст., 7 апреля по н.cт. ПАСХА 7 апреля

2076 : ПАСХА 13 апреля по ст.ст., 26 апреля по н.ст. пасха 19 апреля

2077 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

2078 : ПАСХА 25 апреля по ст.ст., 8 мая по н.ст. ПАСХА 3 апреля

2079 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 23 апреля

2080 : ПАСХА 1 апреля по ст.ст., 14 апреля по н.ст. ПАСХА 7 апреля

2081 : ПАСХА 21 апреля по ст.ст., 4 мая по н.ст. ПАСХА 30 МАРТА

2082 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 19 апреля

2083 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 4 апреля

2084 : ПАСХА 17 апреля по ст.ст., 30 апреля по н.ст. ПАСХА 26 МАРТА

2085 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 15 апреля

2086 : ПАСХА 25 МАРТА по ст.ст., 7 апреля по н.cт. ПАСХА 31 МАРТА

2087 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 20 апреля

2088 : ПАСХА 5 апреля по ст.ст., 18 апреля по н.ст. ПАСХА 11 апреля

2089 : ПАСХА 18 апреля по ст.ст., 1 мая по н.ст. ПАСХА 3 апреля

2090 : ПАСХА 10 апреля по ст.ст., 23 апреля по н.ст. ПАСХА 16 апреля

2091 : ПАСХА 26 МАРТА по ст.ст., 8 апреля по н.cт. ПАСХА 8 апреля

2092 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 30 МАРТА

2093 : ПАСХА 6 апреля по ст.ст., 19 апреля по н.ст. ПАСХА 12 апреля

2094 : ПАСХА 29 МАРТА по ст.ст., 11 апреля по н.cт. ПАСХА 4 апреля

2095 : ПАСХА 11 апреля по ст.ст., 24 апреля по н.ст. ПАСХА 24 апреля

2096 : ПАСХА 2 апреля по ст.ст., 15 апреля по н.ст. ПАСХА 15 апреля

2097 : ПАСХА 22 апреля по ст.ст., 5 мая по н.ст. ПАСХА 31 МАРТА

2098 : ПАСХА 14 апреля по ст.ст., 27 апреля по н.ст. ПАСХА 20 апреля

2099 : ПАСХА 30 МАРТА по ст.ст., 12 апреля по н.cт. ПАСХА 12 апреля

Так как Qbasic не поддерживается последними версиями Windows, публикуем программу расчёта даты православной пасхи на PascalABC.

program pasha;
uses crt;
label 0,1,10,201,210;
var
g,A,B,C,d,S,e,p,z :integer;
begin
0:write(' ГОД ');
readln(g);
if (g<1900)or (g>2099) then
begin
write('Дата вне диапазона.');
goto 10;
end;
A:=g mod 19;
B:=g mod 4;
C:=g mod 7;
d:=(19*A+15) mod 30;
S:=2*b+4*c+6*d+6;
e:=S mod 7;
if d+e>9 then goto 1;
p:=22+d+e;
writeln(' пасха: ',p,' марта ст.стиль, ',p+13-31,' апреля н.стиль');
goto 10;
1: if d+e-9+13<31 then
begin
writeln(' пасха: ',d+e-9,' апреля ст. стиль, ',d+e+4,' апреля н.стиль');
goto 10;
end;
writeln(' пасха: ',d+e-9, ' апреля ст.стиль, ',d+e-26,' мая н.стиль');
10:write (' продолжить -1...9, нет -0 ');
readln(z);
if z>0 then goto 0;
end.

Программа "календарь"

1 CLS

' новый стиль 23.01.1600 по 28.02.2200

PRINT " ВВЕСТИ ДАТУ"

INPUT " ГОД:", G

INPUT " МЕСЯЦ:", M

INPUT " ЧИСЛО:", D

INPUT "Даты введены правильно? Да-1,Нет-0"; x

IF x = 0 THEN 1

IF M > 2 THEN A = 0 ELSE A = 1

G = G - A

M = M + 12 * A - 2

n = INT((G - 1600) * 365.25) + INT(30.59 * M) + D + 4

IF n <= 36559 THEN n = n + 3: GOTO 2

IF n <= 73084 AND n > 36559 THEN n = n + 2: GOTO 2

IF n <= 109609 AND n > 73084 THEN n = n + 1

IF n > 182658 THEN n = n - 1

2 T = n MOD 7

IF T = 0 THEN A$ = " ВОСКРЕСЕНЬЕ"

IF T = 1 THEN A$ = " ПОНЕДЕЛЬНИК"

IF T = 2 THEN A$ = " ВТОРНИК"

IF T = 3 THEN A$ = " СРЕДА"

IF T = 4 THEN A$ = " ЧЕТВЕРГ"

IF T = 5 THEN A$ = " ПЯТНИЦА"

IF T = 6 THEN A$ = " СУББОТА"

PRINT A$

END

Далее публикуем программу месячного календаря для старого стиля.

Программа применима для всей Нашей эры.

1 CLS

PRINT "КАЛЕНДАРЬ НА МЕСЯЦ"

DIM AN$(31)

INPUT " ГОД:", gn

2 INPUT " МЕСЯЦ:", MN

3 DN = 1

IF MN = 1 THEN p = 31

IF MN = 2 THEN p = 28: IF gn / 4 - INT(gn / 4) = 0 THEN p = 29

IF MN = 3 THEN p = 31

IF MN = 4 THEN p = 30

IF MN = 5 THEN p = 31

IF MN = 6 THEN p = 30

IF MN = 7 THEN p = 31

IF MN = 8 THEN p = 31

IF MN = 9 THEN p = 30

IF MN = 10 THEN p = 31

IF MN = 11 THEN p = 30

IF MN = 12 THEN p = 31

5 D = DN

G = gn

M = MN

IF D > p THEN END

20 IF M > 2 THEN A = 0 ELSE A = 1

60 G = G - A

80 M = M + 12 * A - 2

90 N = INT(G * 365.25) + INT(30.59 * M) + D + 5

110 S = N / 7

120 T = (S - INT(S)) * 7

130 IF T = 0 THEN A$ = "ВОСКРЕС."

140 T = INT(T + .1)

150 IF T = 1 THEN A$ = "ПОНЕДЕЛ."

160 IF T = 2 THEN A$ = "ВТОРНИК"

170 IF T = 3 THEN A$ = "СРЕДА"

180 IF T = 4 THEN A$ = "ЧЕТВЕРГ"

190 IF T = 5 THEN A$ = "ПЯТНИЦА"

191 IF T = 6 THEN A$ = "СУББОТА"

AN$(DN) = A$

PRINT DN; ":"; A$; ,

DN = DN + 1

GOTO 5

END

Даты православной пасхи в 19-м веке (старый стиль)

1800 : 8 апреля

1801 : 24 МАРТА

1802 : 13 апреля

1803 : 5 апреля

1804 : 24 апреля

1805 : 9 апреля

1806 : 1 апреля

1807 : 14 апреля

1808 : 5 апреля

1809 : 28 МАРТА

1810 : 17 апреля

1811 : 2 апреля

1812 : 21 апреля

1813 : 13 апреля

1814 : 29 МАРТА

1815 : 18 апреля

1816 : 9 апреля

1817 : 25 МАРТА

1818 : 14 апреля

1819 : 6 апреля

1820 : 28 МАРТА

1821 : 10 апреля

1822 : 2 апреля

1823 : 22 апреля

1824 : 6 апреля

1825 : 29 МАРТА

1826 : 18 апреля

1827 : 3 апреля

1828 : 25 МАРТА

1829 : 14 апреля

1830 : 6 апреля

1831 : 19 апреля

1832 : 10 апреля

1833 : 2 апреля

1834 : 22 апреля

1835 : 7 апреля

1836 : 29 МАРТА

1837 : 18 апреля

1838 : 3 апреля

1839 : 26 МАРТА

1840 : 14 апреля

1841 : 30 МАРТА

1842 : 19 апреля

1843 : 11 апреля

1844 : 26 МАРТА

1845 : 15 апреля

1846 : 7 апреля

1847 : 23 МАРТА

1848 : 11 апреля

1849 : 3 апреля

1850 : 23 апреля

1851 : 8 апреля

1852 : 30 МАРТА

1853 : 19 апреля

1854 : 11 апреля

1855 : 27 МАРТА

1856 : 15 апреля

1857 : 7 апреля

1858 : 23 МАРТА

1859 : 12 апреля

1860 : 3 апреля

1861 : 23 апреля

1862 : 8 апреля

1863 : 31 МАРТА

1864 : 19 апреля

1865 : 4 апреля

1866 : 27 МАРТА

1867 : 16 апреля

1868 : 31 МАРТА

1869 : 20 апреля

1870 : 12 апреля

1871 : 28 МАРТА

1872 : 16 апреля

1873 : 8 апреля

1874 : 31 МАРТА

1875 : 13 апреля

1876 : 4 апреля

1877 : 27 МАРТА

1878 : 16 апреля

1879 : 1 апреля

1880 : 20 апреля

1881 : 12 апреля

1882 : 28 МАРТА

1883 : 17 апреля

1884 : 8 апреля

1885 : 24 МАРТА

1886 : 13 апреля

1887 : 5 апреля

1888 : 24 апреля

1889 : 9 апреля

1890 : 1 апреля

1891 : 21 апреля

1892 : 5 апреля

1893 : 28 МАРТА

1894 : 17 апреля

1895 : 2 апреля

1896 : 24 МАРТА

1897 : 13 апреля

1898 : 5 апреля

1899 : 18 апреля

Конструктор сайтов - uCoz