1. 1C / Говнокод #14252

    −104

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Функция Дистанция(Откуда, Куда) Экспорт

	Пи = 3.1415926535897932;
	
	ОткудаШиротаВРадианах 	= Откуда.Широта * Пи / 180;
	ОткудаДолготаВРадианах 	= Откуда.Долгота * Пи / 180;
	КудаШиротаВРадианах 	= Куда.Широта * Пи / 180;
	КудаДолготаВРадианах 	= Куда.Долгота * Пи / 180;
	Аргумент				= Sin(КудаШиротаВРадианах) * Sin(ОткудаШиротаВРадианах) +
        Cos(КудаШиротаВРадианах) * Cos(ОткудаШиротаВРадианах) * Cos(КудаДолготаВРадианах - ОткудаДолготаВРадианах);
		
	Аргумент  = ?(Аргумент > 1, 1, Аргумент);
	Аргумент  = ?(Аргумент < -1, -1, Аргумент);
		
    Возврат Окр(6378000 * ACos(Аргумент));

КонецФункции

    Запостил: TamerlanDE, 20 Декабря 2013

    Комментарии (19) RSS

    • ava tirinox 21.12.2013 00:04 # +3

      Не в падлу вам раскладку переключать ради Sin, Cos, etc?
      Ответить

      • ava TamerlanDE 21.12.2013 00:08 # +1

        Обеими руками "ЗА" за Синус(...) и Косинус(...)
        Ответить

        • ava Lure Of Chaos 22.12.2013 13:06 # +2

          > * Пи / 180
          они идут в этом направлении.
          и будет запись
          УМНОЖИТЬ Пи РАЗДЕЛИТЬ СтоВосемДесят
          Ответить

          • ava inkanus-gray 22.12.2013 13:10 # +1

            Разве НЕТЕХНАРЬ запомнит такие константы? Надо так: 
            УМНОЖИТЬ ПолОборотаВРадианах РАЗДЕЛИТЬ ПолОборотаВГрадусах
            Ответить

            • ava 1024-- 22.12.2013 13:15 # +2

              ПолОборота - это запомнить надо. Помнить, почему не один оборот. Магический кусок идентификатора.
              УголВГрадусах УМНОЖИТЬ ГрадусыВРадианах
              Ответить

              • ava inkanus-gray 22.12.2013 13:21 # +4

                Не хватает ООП: 
                УголВГрадусах.ПеревестиВРадианы()
                Ответить

                • ava kegdan 22.12.2013 13:26 # +1

                  переменная радианы присвоить новый УголВРадианах(градусы.ПолучитьГрадусы) семиколон
                  Ответить

                • ava LispGovno 22.12.2013 13:39 # 0 

                  ПеревестиВРадианы УголВГрадусах -- ноу семиколон
                  Ответить

        • ava Bezeus 10.01.2014 13:03 # 0

          В общем модуле экспортная функция:
          Функция Синус(Параметр) Экспорт
          Возврат Sin(Параметр)
          КонецФункции
          Как-то так )))))
          Ответить

          • ava kegdan 10.01.2014 13:09 # −1

            А чего ждали то? что это на уровне лексера вшито синонимом?)
            Ответить

            • ava Bezeus 10.01.2014 13:12 # 0

              Вообще-то это человеку, который хотел синусы и косинусы по-русски писать в коде. Я ничего не жду
              Ответить

          • ava TamerlanDE 18.02.2016 22:43 # 0

            Такой общий модуль должен быть ГЛОБАЛЬНЫЙ !!!
            Ответить

      • ava nixel 21.12.2013 01:58 # 0

        Раскладку приходится переключать очень редко. Непереведенные функции в основном все математические. Для всякого же com, xml, dom, null и тд есть спец приблуды- например правый альт + d на русской раскладке вставляет dom
        Ответить

    • ava guest 14.03.2014 09:34 # 0

      эм что это за хрень, я честно говоря вообще не в курсе как в 1С по координатам надо дистанцию определять, напишите как должно быть?
      Ответить

      • ava guest 28.03.2014 04:13 # +1

        А при чём тут 1С? Это чистая математика. Вы с какого класса школу бросили, милейший, если простейшая математическая функция вызывает у вас столько вопросов?
        Ответить

    • ava planaric 24.04.2014 13:17 # 0

      Разобрался
      Ответить

    Добавить комментарий