Calcular+la+tangente+de+un+ángulo

=__**Calcular la tangente de un ángulo en radianes**__=

code format="pascal" PROGRAM Tangen_1 ; VAR rAngulo, rTangente : Real ; BEGIN Write ('Introduce un ángulo en radianes: ') ; ReadLn (rAngulo) ;

rTangente := Sin (rAngulo) / Cos (rAngulo) ;

WriteLn (' Su tangente es: ', rTangente :0:2) ;

Readln ; END. code =__**Calcular la tangente de un ángulo en grados**__=

code format="pascal" PROGRAM Tangen_1 ; VAR rAngulo, rTangente : Real ; BEGIN Write ('Introduce un ángulo en grados: ') ; ReadLn (rAngulo) ;

rTangente := Sin (rAngulo /180 * PI) / Cos (rAngulo /180 * PI) ;

WriteLn (' Su tangente es: ', rTangente :0:2) ;

Readln ; END. code