Чтение онлайн

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.