Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

12th
Янв

Перевод величин углов

Posted by maloy under Delphi, Архив

Lexus315

Помогите пожалуйста организовать перевод величины угла из формата:
«градусы, минуты, секунды, доли секунд» в формат «Градусы, доли градусов» и наоборот

Пример:
из 34˚45′ 38,15» В 34,760597˚ и наоборот

Stilet

Вот делал недавно подобное:
Из долей (в радианах) в градусы:

Код:

//****************************************************
  Function NormalizeRadToGrad(Radians:Double):Double;   var inv:double;
  begin
        result:=radTodeg(Radians);
        inv:=roundTo((result-trunc(result))*60/100,-2);
        if abs((inv*100)-60)<0.0001 then inv:=1;
        result:=trunc(result)+inv;
  end;
//****************************************************

тема на форуме от 2009 года