[Lexus315]

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

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

[BloodFooria]

Все просто:

Код:

var a, b : Integer;
  c, Res : Real;
begin
  MyGrad:= a + b/60 + c/3600;
end;

a - градусы, b - минуты, c - секунды с долями секунд. Res - результат.

А наоборот сейчас подумаю...

[BloodFooria]

Градусы, минуты, секунды в дробь

PHP код:

function GradMinSecToFloat(a, b : Integer; c : Real) : Real;
begin
  Result:= a + b/60 + c/3600;
end; 


Дробь в градусы, минуты и секунды:

PHP код:

procedure FloatToGradMinSec(Float : Real; var a, b : Integer; c : Real);
var Str : String;
    br : Real;
begin
  // Получаем градусы
  a:= Floor(Float);
  Float:= Float - a;
  Str:= FloatToStr(Float);
  Float:= Float - StrToFloat('0.' + Str[3] + Str[4]);
  // Получаем НЕЦЕЛЫЕ минуты
  br:= StrToFloat('0.' + Str[3] + Str[4]) * 60;
  // Получаем целые минуты
  b:= Floor(br);
  // Секунды: остаток от минут + остаток от дроби * 3600
  c:= (br - b) * 60 + Float * 3600;
end; 


P.S. Может быть можно как-то еще, но я не знаю