convertir+radianes+en+grados+minutos+y+segundos

=__**Convertir Radianes en Grados, Minutos y Segundos**__=

Programa que lee el valor de un ángulo en radianes y muestra su valor en grados, minutos y segundos
code format="pascal" PROGRAM Radianes_Grados_Minutos_Segundos ;

{--- Variables del Programa Principal -} VAR rRadianes                   : Real    ; rGrados, rMinutos, rSegundos : Real ; iGrados, iMinutos, iSegundos : Integer ;

BEGIN { Programa Principal ---}

Write ('Escribe el valor de un Angulo en radianes: ') ; ReadLn (rRadianes) ;

rGrados := rRadianes * 180 / PI ;

iGrados  := Trunc (rGrados) ;

rMinutos := Frac  (rGrados)  * 60 ; iMinutos := Trunc (rMinutos)      ;

rSegundos := Frac (rMinutos)  * 60 ; iSegundos := Round (rSegundos)     ;

WriteLn (rRadianes:0:5, ' radianes equivalen a ',            iGrados, ' grados ', iMinutos, ' minutos ', iSegundos, ' segundos')   ;

ReadLn ; END. code

code format="pascal" PROGRAM Radianes_Grados_Minutos_Segundos ;

{--- Variables del Programa Principal -} VAR rRadianes                   : Real    ; rGrados, rMinutos, rSegundos : Real ; iGrados, iMinutos, iSegundos : Integer ;

BEGIN { Programa Principal ---}

Write ('Escribe el valor de un Angulo en radianes: ') ; ReadLn (rRadianes) ;

rGrados := rRadianes * 180 / PI ;

Write (rRadianes:0:5, ' radianes equivalen a ', Trunc (rGrados), ' grados ' ) ;

rMinutos := Frac  (rGrados)  * 60 ;

Write ( Trunc (rMinutos), ' minutos ') ;

rSegundos := Frac (rMinutos)  * 60 ;

WriteLn ( Round (rSegundos), ' segundos')  ;

ReadLn ; END. code