Calcular+el+angulo+conocida+la+tangente

=__**Calcular el ángulo conocida la tangente**__=

code format="pascal" PROGRAM ArcTangente_1 ; VAR rTangente, rAngulo : Real ; BEGIN Write ('Introduce el valor de la tangente: ') ; ReadLn (rTangente) ;

rAngulo := ArcTan (rTangente) ;

WriteLn ('El angulo en radianes es: ', rAngulo:0:2, ' o ', rAngulo + PI:0:2) ;

Readln ; END. code code format="pascal" PROGRAM ArcTangente_1 ; VAR rTangente, rAngulo : Real ; BEGIN Write ('Introduce el valor de la tangente: ') ; ReadLn (rTangente) ;
 * Si se sabe que la tangente es negativa**

rAngulo := ArcTan (rTangente) ;

WriteLn ('El angulo en radianes es: ', rAngulo:0:2, ' (', rAngulo+ 2 * PI:0:2, ') o ', rAngulo + PI:0:2) ;

Readln ; END. code