Tangente+en+grados

=__**Calcular la tangente de un ángulo en grados**__= > **Definiendo una FUNCIÓN que calcula la tangente de un ángulo en radianes** code format="pascal" PROGRAM Tangen_3 ;

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

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

BEGIN {- programa principal ---} Write ('Introduce un ángulo en grados: ') ; ReadLn (rAnguloGrad) ;

rAnguloRad := rAnguloGrad / 180 * PI ;

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

ReadLn ; END. code > **Definiendo una FUNCIÓN que calcula la tangente de un ángulo en grados** > **Definiendo una FUNCIÓN que convierte grados en radianes** code format="pascal" PROGRAM Tangen_4 ;

FUNCTION fnrGradosRadianes (rAngulo : Real) : Real ; BEGIN fnrGradosRadianes := rAngulo * PI / 180 ; END ;

FUNCTION fnrTangenteGrad (rAnguloGrad : Real) : Real ; VAR rAnguloRad : Real ; BEGIN rAnguloRad     := fnrGradosRadianes (rAnguloGrad) ; fnrTangenteGrad := Sin (rAnguloRad) / Cos (rAnguloRad) ; END ;

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

BEGIN {- programa principal ---} Write ('Introduce un ángulo en grados: ') ; ReadLn (rAnguloGrad) ;

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

ReadLn ; END. code > **Definiendo una FUNCIÓN que calcula la tangente de un ángulo en grados** code format="pascal" PROGRAM Tangen_5 ;

FUNCTION fnrTangenteGrad (rAnguloGrad : Real) : Real ; VAR rAnguloRad : Real ; BEGIN rAnguloRad     := rAngulo * PI / 180 ; fnrTangenteGrad := Sin (rAnguloRad) / Cos (rAnguloRad) END ;

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

BEGIN {- programa principal ---} Write ('Introduce un ángulo en grados: ') ; ReadLn (rAnguloGrad) ;

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

ReadLn ; END. code