Компьютерные технологии в судовождении. Фадюшин С.Г. - 18 стр.

                                     РМЧ ОТШ
                              РШ             .
                                       РД

     В этой формуле ОТШ можно найти из выражения

                             ОТШ     РД cos m ,

где в качестве начального значения средней широты              m   можно при-
нять среднюю широту карты, т. е.

                                       1       2 ,
                                 m
                                           2

   где 1, 2 – широта верхней и нижней рамок карты соответственно.
   По мере вычислений и уточнений разности широт текущей точки
значение m также должно уточняться до тех пор, пока текущее значе-
ние РШ не будет отличаться от его предыдущего значения на задан-
ную малую величину.
   Фрагмент кода программы, реализующий вышеприведѐнный ал-
горитм, выглядит следующим образом:
     Dim f1r As Single 'Широта верхнего левого угла рамки карты
     Dim dLt As Single 'Разность долгот левой рамки карты и текущей точки
     Dim fsrk As Single 'Средняя широта карты
     Dim OTt As Single 'Отшествие текущей точки
     Dim rmcht As Single 'Разность меридиональных частей текущей точки
     Dim dft As Single 'Текущая разность широт
     Dim dfti As Single 'Предыдущее значение текущей разности широт
     Do
     dfti = dft
     OTt = (dLt / 57.3) * Cos(fsrk / 57.3)
     OTt = OTt * 57.3
     dft = (rmcht * OTt) / dLt
     Ft = f1r dft
     fsrk = (f1r + Ft) / 2
     Loop Until Abs(dfti dft) <= 0.01

                          Вопросы для самоконтроля

         1. Что такое Visual Basic?
         2. Перечислите основные этапы программирования и дайте
            им характеристику.
         3. В чѐм заключается структурное программирование?
18