Анатолий Фоменко - Царь славян

Программа написана на языке Фортран.

*_______________________________________________

program ind_date

*_______________________________________________

* Вычисление годов от Адама от 1 до 7980 = 15x19x28 с данным

* индиктом, кругом Солнцу и кругом Луне различно для дат

* от точки перескока индикта до точки перескока

* кругов Солнцу и Луне и дат оставшейся части года.

*

* Поэтому дается три варианта пересчета

* 1) без поправки кругов Солнцу и Луне

* 2) с поправкой кругов Солнцу и Луне на +1

* 3) с поправкой кругов Солнцу и Луне на -1

*

* При переводе полученных таким образом годов

* от Адама на года н. э. вычитается 5508 для всех

* месяцев года.

*_______________________________________________

CHARACTER*1 Q1

*_______________________________________________

OPEN(3,file='otvet.txt',access='sequential',

form='formatted',status='replace')

WRITE(*,*)'============================== '

WRITE(*,*)' ВВЕДИТЕ ИНДИКТ, КРУГ СОЛНЦУ И КРУГ ЛУНЕ '

WRITE(*,*)' (ЕСЛИ ЗНАЧЕНИЕ НЕИЗВЕСТНО, ВВЕДИТЕ НОЛЬ) '

WRITE(*,*)'

WRITE(*,*)'======================= '

301 write(*,*)' '

write(*,*)'Введите ИНДИКТ (от 1 до 15; 0 если неизвестен)'

read(*,*) indict

write(*,*)'Введите КРУГ СОЛНЦУ (от 1 до 28; 0 если неизвестен)'

read(*,*) isun

write(*,*)'Введите КРУГ ЛУНЕ (от 1 до 28; 0 если неизвестен)'

read(*,*) imoon

302 WRITE(*,*)' '

WRITE(*,*)

'///////////////////////\\\\\\\\\\\\\\\\\\\\\\\'

WRITE(*,*) ' 1: ПУСК '

WRITE(*,*) ' 2: ИЗМЕНИТЬ ЗНАЧЕНИЯ'

WRITE(*,*) ' 3: ЗАКОНЧИТЬ РАБОТУ'

5 WRITE(*,*) ' ВВЕДИТЕ НУЖНОЕ ЧИСЛО И НАЖМИТЕ КЛАВИШУ <���ВВОД>'

READ(*,'(A)') Q1

IF(Q1.NE.'1'.AND.Q1.NE.'2'.AND.Q1.NE.'3') THEN

WRITE(*,*) ' НЕВЕРНОЕ ЗНАЧЕНИЕ? ДОЛЖНО БЫТЬ 1, 2 ИЛИ 3'

GOTO 5

ENDIF

ivvod=ICHAR(Q1)-ICHAR('0')

IF (ivvod.EQ.1) GO TO 303

IF (ivvod.EQ.2) GO TO 301

IF (ivvod.EQ.3) STOP 'ЗАВЕРШЕНО ПОЛЬЗОВАТЕЛЕМ'

GO TO 302

303 CONTINUE

*____________проверяем данные на правильность _____________________

IF ((indict.LT.0).OR.(indict.GE.16)) GOTO 100

IF ((isun.LT.0).OR.(isun.GE.29)) GOTO 100

IF ((imoon.LT.0).OR.(imoon.GE.20)) GOTO 100

GOTO 200! данные введены правильно

100 WRITE(3,*)' WRONG INPUT DATA: '! данные введены неверно

WRITE(*,*) ' WRONG INPUT DATA: '

WRITE(3,*) 'indict= ',indict,' isun= ',isun,

' imoon=',imoon

STOP

*____________ начало расчетов ___________________________

200 CONTINUE

WRITE(3,*)' indict = ',indict

WRITE(3,*)' Sun = ',isun

WRITE(3,*)' Moon = ',imoon

WRITE(3,*)' '

WRITE(3,*)' '

WRITE(3,*)'БЕЗ ПОПРАВКИ / ПОПРАВКА(S+1,M+1) / ПОПРАВКА (S-1,M-1)'

WRITE(3,*)'от АДАМА, Н.Э./от АДАМА, Н.Э. /от АДАМА, Н.Э.'

WRITE(3,*)'_____________________________________________'

WRITE(3,*)''

indx=0

isx=0

imx=0

DO iadam=1,7980

IF (iadam.EQ.6690) THEN

write(*,*) iadam

END IF

iAD=iadam-5508

indx=indx+1

isx=isx+1

imx=imx+1

IF (indx.EQ.16) indx=1

IF (isx.EQ.29) isx=1

IF (imx.EQ.20) imx=1

indy=indict

IF (indy.EQ.0) indy=indx ! нулевые значения -

! произвольные

IF (indx.EQ.indy) THEN

*______ БЕЗ ПОПРАВКИ: табличные круги Солнца и Луны такие же,

*______ как в источнике

isy=isun

imy=imoon

IF (isun.EQ.0) isy=isx

IF (imoon.EQ.0) imy=imx

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)iadam,' ',iAD

WRITE(3,*)''

END IF

*______ С ПОПРАВКОЙ: круги Солнца и Луны ПОДПРАВЛЯЮТСЯ НА +1

IF (isun.NE.0) isy=isun+1

IF (isy.EQ.29) isy=1

IF (imoon.NE.0) imy=imoon+1

IF (imy.EQ.20) imy=1

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)' ',iadam,' ', iAD

WRITE(3,*)''

END IF

*______ С ПОПРАВКОЙ: круги Солнца и Луны ПОДПРАВЛЯЮТСЯ НА -1

IF (isun.NE.0) isy=isun-1

IF (isy.EQ.0) isy=28

IF (imoon.NE.0) imy=imoon-1

IF (imy.EQ.0) imy=19

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)' ',iadam,' ',iAD

WRITE(3,*)''

END IF

END IF

END DO

WRITE (3,*)'___________________________________________'

WRITE(3,*)'END OF CALCULATIONS'

WRITE(*,*)'END OF CALCULATIONS'

CLOSE(3)

STOP

END

[1] Аббас Шалаби. «Весь Египет. От Каира до Абу-Симбела и Синай». – Второе дополненное русское издание. Casa Editrice Bonechi, Firence, Italy, 1996.

[2] Аббас Шалаби. «Весь Египет. От Каира до Абу-Симбела и Синай». – Русское издание. Второе издание, дополненное. Casa Editrice Bonechi, Firence, Italy. Флоренция, Италия. Напечатано в Италии: Centro Stampa Editoriale Bonechi, 1999.

[3] «Александрия. Роман об Александре Македонском по русской летописи XV века». – М. – Л., Наука, 1966.

[4] Алессандро Анджелини. «Пьеро делла Франческа». Серия «Великие мастера итальянского искусства». – Москва, СЛОВО, 1997. Итальянское издание: 1995 by SCALA, Istituto Fotografico Editoriale, S.p.A. Italy.

[5] [ «Алтари»]. Катерина Лиментани Вирдис, Мари Пьетроджованна. «Алтари. Живопись Раннего Возрождения». – Перевод с итальянского. Изд-во «Белый Город», 2002; «Arsenale editrice», Italy, 2001.

[6] «Алфавитная Синтагма Матфея Властаря». Перевод с греческого свящ. Николая Ильинского, преподавателя Таврической Духовной Семинарии. – Симферополь, 1892. – Переиздание: Москва, изд-во Галактика, 1996.

[7] [Амартол Георгий]. Матвеенко Вера, Щеголева Людмила. «Временник Георгия Монаха. (Хроника Георгия Амартола)». Русский текст, комментарии, указатели. – Москва, изд-во «Богородский печатник», 2000.

[8] Андреева В., Куклев В., Ровнер А. «Энциклопедия символов, знаков, эмблем». – Москва, изд-во «Локид», изд-во «Миф», «AD MARGINEM», 1999.

[9] «Апокрифы Древней Руси». Составитель М. Рождественская. – СПБ, изд-во Амфора, 2002.

[10] Аугусто Джентили, Уильям Бархем, Линда Уайтли. «Лондонская Национальная Галерея». Альбом. Из серии: Великие Музеи Мира. – Москва, изд-во СЛОВО/SLOVO, 2001. Перевод итальянского издания, Magnus Edizioni Spa, Udine, Italia, 2000.

[11] Бадж Эрнест А. Уоллес. «Египетская религия. Египетская магия». – Москва, изд-во Алетейя, 2003. Перевод с английского: Ernest A. Wallis Budge. «The Egyptian Religion. The Egyptian Magic».

[12] Беллози Лючано. «Джотто». – Москва, изд-во СЛОВО/SLOVO, 1996. Перевод с итальянского издания: 1995 by SCALA, Istituto Fotografico Editoriale, S.p.A.

[13] Беляков А. «Современное состояние исследований Туринской плащаницы». – Интернет. Библиотека форума «Православная беседа»: http://pravbeseda.org/library.

[14] Бемон Ш., Моно Г. «История Европы в средние века». – Пг., 1915. Французское издание: Bemon C., Monod G. «Histoire de l'Europe au Moyen Age». – Paris, 1921.

[15] Берналь Диас дель Кастильо. «Правдивая история завоевания Новой Испании». Перевод с испанского: Bernal Diaz Del Castillo: «Historia Verdadera de la Conquista de la Nueva Espana». – Москва, изд-во Форум, 2000.

[16] Бессонов П. А. «Калики перехожие». Тома 1, 2. – Москва, 1861–1864.

[17] «Библия». 10-е издание. – СПб., 1912. Переиздание Московской Патриархии: «Библия. Книги Священного Писания Ветхого и Нового завета в русском переводе с параллельными местами и приложениями». – Москва, Издание Московской Патриархии, 1968. Имеются многочисленные переиздания, в частности, Российского Библейского Общества, Москва, 1995.

[18] Бируля Ю.Н. «Русские морские карты 1701–1750 гг. Копии с подлинников. (Атлас)». – Составитель: начальник 280 ЦКП ВМФ капитан I ранга Ю.Н. Бируля. Санкт-Петербург, ЦКФ ВМФ, 1993.

[19] Блер Ж. «Таблицы хронологические, объемлющие все части всемирной истории из года в год от сотворения мира до XIX столетия, на английском языке изданные Членом Королевского Лондонского Общества Жоном Блером». Тома I, II. – Москва, Изд-во Моск. унта, 1808–1809. Английское издание: «Blair's Chronological and Historical Tables, from the Creation to the Present Time, etc». G.Bell & Sons, London, 1882.

[20] Болотов В.В. «Лекции по истории древней церкви». Тома 1–4. – Посмертное издание под редакцией проф. А. Бриллиантова. – Спб, 1907. Репринтное издание. Москва, Спасо-Преображенский Валаамский монастырь, 1994.