Пасха
Равноденствие весною,
Вскоре полная луна
На весеннем небосклоне,
Дальше Пасха быть должна
Во Христово Воскресение.
Если сложно наблюдать
Вам небесные явления,
Или загодя охота
Дату нам святую знать —
Для любого года,
Как число то сосчитать?
Немецкий математик
Гаусс Карл Фридрих
Такову решил задачу,
Одарил нас алгоритмом.
Вот только не понятна мне,
Католики и православные,
Причина расхождения
В расчетах Воскресения.
Пока же в приложении
Для всех, знакомых с Бейсиком
Тот алгоритм я приведу
Для православной версии.
(110317)
* * *
Приложение
Ниже приводится листинг функции, определяемой юзером, написанная на языке Visual Basic for Applications.
Указания. В программе MS Excel надо войти в Редактор Visual Basic и вставить Модуль (в окне появится лист). На лист модуля скопировать листинг. Затем вернуться на Рабочий лист. В любую ячейку ввести интересующий нас год (ХХ или ХХI столетия). В соседнюю ячейку ввести формулу с помощью мастера функций. В диалоге выбрать категорию «Определенные пользователем», найти и выбрать функцию ПАСХА. Для задания аргумента щелкнуть по ячейке с годом.
Тому, кто доживёт до следующих столетий, придётся заменить в листинге число 13 на 14.
При затруднениях можно обратиться за помощью к школьному учителю информатики.
Function ПАСХА(Год As Integer) As String
' Расчет даты пасхи по правослваной традиции
' в переложении на григорианский календарь.
' В XX-м, XXI-м столетиях расхождение дат
' Григорианского и Юлианского стилей
' составляет 13 дней.
' Алгоритм Гаусса
Dim a%, b%, c%, d%, e%, p%, q$
a = Год Mod 19
b = Год Mod 4
c = Год Mod 7
d = (19 * a + 15) Mod 30
e = (2 * b + 4 * c + 6 * d + 6) Mod 7
p = d + e - 9 + 13
' В следующем столетии придётся
' заменить здесь число 13 на 14
If p > 30 Then
p = p - 30: q = "мая"
Else
q = "апреля"
End If
ПАСХА = Trim(Str(p)) + " " + q
End Function
Отзывы
DEN11.03.2017
очуметь! пока ничего не понял, но впечатляет! ай да, гаусс!)
Vic Fo11.03.2017
Алгоритм Гаусса давно печатался в "Науке и жизни". Позднее (в конце 90-х) я слушал популярные лекции священника Отца Евгения Лебедева в рамках Русской культуры. Он изложил его в переложении на православнный порядок (дата определялась по юлианскому календарю). Позднее я написал этот листинг, чтобы не вызывать лишних заморочек, сразу заложил григорианский стиль. Задал текущее расхождение 13 дней (потому в листинге сделал ремарку, на ограничение диапазона дат).
С ув., Фо.
DEN11.03.2017
о как! спасибо за комментарий. и что - алгоритм действительно работает?
Vic Fo11.03.2017
А Вы проверьте. Хотя бы посмотрите на картинку.
DEN11.03.2017
попробую, хотя я далек от математических или расчётных методов абсолютно)
Минкевич Маргарита11.03.2017
Спасибо! Вы проделали немалую работу! Постараюсь разобраться в Вашем алгоритме. Удачи Вам!!!
Vic Fo11.03.2017
Благодарю за внимание, Фо.
СЕМЁНОВ ВАЛЕРИЙ АНДРЕЕВИЧ .11.03.2017
Познавательно и здорово !
С ув. В.А.
Vic Fo11.03.2017
Благодарствую!
Светлана Ветер11.03.2017
Умнейший FO!!!
Насколько вы талантливы, изобретательны
в пространной разносторонности! Поражена! Моё восхищение!
Ваш алгоритм мне никогда не осилить! Не это главное!
С неизменной признательностью С.В.
Vic Fo11.03.2017
Светлана дорогая. Его не надо осиливать. Просто скопировать куда указано. Он не потребует никакой дальнейшей отладки. Но дело не только в алгоритме. Тут проблема еще неоднозначного выбора даты празднования Пасхи. Примерно в 50-х годах прошлого века стартовал так называемый "экуменический процесс". Процесс инициирован религиозными деятелями различных конфессий и направлен на сближение оных. Однако воз и ныне там. В 90-х один представитель РПЦ, выступая по радио, сообщил о соглашении с 2000 г.. принять единый подход к определению даты Пасхи - по указанным астрономическим фактам (первое воскресенье после первого полнолуния от весеннего равноденствия). Причем дату полнолуния вроде бы было условлено для однозначности определять по иерусалимскому меридиану. И что мы видим?.. Никто не проявил доброй воли.
С ув. Фо.
ALLada11.03.2017
Многоуважаемый Фо!
С удовольствием читала,но даже, еще читая уже знала,что моё IQ " не догонит" Вашу изобретательность и математические знания ! Хотя в высших "школах" в зачетках было " отлично" и " хорошо"! "Издержки производства"! ( шучу).
Восхищена!( не шучу)!
А.
Vic Fo11.03.2017
Алла. Спасибо за участие. Не буду повторяться, прочтите мой ответ Светлане Ветер.
Ваш Фо.
Выскребенцев Игорь11.03.2017
удивил............УМНИЦА!!!!
Vic Fo11.03.2017
Сам того не подозревал...
ルシウス-スター11.03.2017
Этот стих беру в избранное. Познавательно.)) Спасибочки!
Vic Fo11.03.2017
Несказанно рад :)
Уварова Людмила13.05.2017
Я тоже возьму в избранное! - буду изучать,
может разберусь к следующей Пасхе ))))
Vic Fo13.05.2017
Спасибо за внимание. На самом деле это просто.
Skylark30.06.2017
То, что Вы невероятно умны и талантливы, - это аксиома!!! Я так заморочилась, что даже не знаю, что в отзыве написать... На самом деле это просто для Вас!!!! С уважением, сердечностью и восхищением, Skylark.
Vic Fo02.07.2017
Спасибо за такой лестный отзыв. Всего вам наилучшего.
Skylark02.07.2017
Сердечно благодарю!!!! Взаимно!!!
Шагапова Нурия27.07.2017
Очень необычно и интересно, такое удивительное переплетение с точными науками. заставляет задуматься. Браво!
