[compuin]

Empezado por escafandra

No confundas un ángulo con su tangente. En el ejemplo último que pones te dan las tangentes. Y otro detalle, Si

Código Delphi [-]
sin(A) = tg (B) x tg (C)

Entonces, y despejando A, tenemos:

Código Delphi [-]
A = arcsin [tg (B) x tg (C)]

Lo que quiere decir que A es el ángulo cuyo seno es...


Saludos.

Haciendolo como me orientas me da este error

Código Delphi [-]
var
  da, lt, decl : Extended;
begin
  lt   := 1.73916666667; // => 01' 44’ 21"
  decl := 21.4341666667; // => 21° 26' 03"
  //da   := RadToDeg(sin(DegToRad(tan(DegToRad(lt))*tan(DegToRad(decl)))));
  DA:=   tan(lt)* tan(decl);

  DA:=   arcsin(da);

  ShowMessage( FloatToStr(da) );   // DA 02º36'10''

  end;