Tangente+en+radianes

=__**Calcular la tangente de un ángulo en radianes**__= > **Sin definir nuevos subprogramas** 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 > **Definiendo una FUNCTION que calcula la tangente de un ángulo en radianes** code format="pascal" PROGRAM Tangen_2 ;

FUNCTION fnrTangente (rAngulo : Real) : Real ; BEGIN fnrTangente := Sin (rAngulo) / Cos (rAngulo) ; END ;

{--- Variables del Programa Principal -} VAR rAnguloRad : Real ;

BEGIN { Programa Principal ---} Write ('Introduce un ángulo en radianes: ') ; ReadLn (rAnguloRad) ;

WriteLn ('Tangente: ', fnrTangente (rAnguloRad):0:2) ;

Readln ; END. code