С. 14 ГОСТ 25645.126—IS
PRINT 8
— 0.1.0.8.210./
С H I(I) - ВЫСОТА ТОЧКИ В к м
ООПDATA Н1/100.,3000..6371.2.0385..12742.4.400С0.1
С FI (I) - ШИРОТА ТОЧКИ В ГРАД.
0012DATA F1/6 80.6/
С L (I)-ДО ЛГО ТА ТОЧКИ В ГРАД.
0013DATA L/в -58.0/
ООНPRINT 12
001512 F O R M A T 0 X / G (I) -МАССИВ КОЭФФИЦИЕНТОВ’.
•’ О ДЛЯ 1985 Г.:’/)
0016PRINT 9.(G(1).I -l.K)
0017PRINT 13
001813 FORMATtf/IOX/GI (I) - МАССИВ КОЭФФИЦИЕНТОВ H’.
•’Д Л Я 1985 Г.:’/)
0019PRINT 9.(GI(I).I = 1.K)
0020PRINT И
002114 FORMAT (//5X.’DG(I) — МАССИВ КОЭФФИЦИЕНТОВ СО’.
•’ ДЛЯ ИНТЕРВАЛА 1985-1990 ГГ..:’/)
0022PRINT 9.(D 0(I).I-1.K )
0023PRINT 15
0024’ 15 FORMAT (//5X/DGI (1) -М АССИВ КОЭФФИЦИЕНТОВ НО’,
•’Д Л Я ИНТЕРВАЛА 1985-1990 ГГ..:’/)
0025PRINT 9,{D G l|I),I= l.K)
С
С РАСЧЕТ КОЭФФИЦИЕНТОВ ’G ’ И ’Н ’ НА ГОД ’Г
0026DO II I-1 .K
0027YEAR1 = YEAR-1985
0028G (I)~G(I)+DG(1)-YEARI
002911 G 1(I)-G 1{I)+D G I(I)Y EA R 1
0030 PRINT 55
01)3153 FORMAT (Т .20Х .Ф Е З У Л Ь Т А Т Ы ’.
0032
•’Р А С Ч Е Т А ’///)
00338 FORMAT (//5X/GT - МАССИВКОЭФФИЦИЕНТОВ G/.
•’ РАССЧИТАННЫХ HA 1989 Г.:’/)
003»PRINT 9.(G(I).I = l.K)
00359 FORMAT(4EI86)
0036 PRINT 10
003710 FORMAT (//5X/HT — МАССИВКОЭФФИЦИЕНТОВ Н/.
•’ РАССЧИТАННЫХ НА 1989 Г.:7>
0038PRINT 9.(G1 (I).l **1,К>
С
СР А С Ч Е Т Э Л Е М Е Н Т О В П О Л Я
0039 IF(PR.EQ.O) GOTO 18
004118 PI —3 141593
0042 RS=637I.2
CRS — CPEД11ИЙ РАДИУС ЗЕМЛИ
0043 A= 6378.2
ООНВ-6356.8
0045АЗ=».1Е—7
0(М6N H --N H -f I
0047 1—0
00481К=0
0049IN - 1
0050PRINT T9.IN
005119 FORMAT (//10X .’IN -’.I3)