Question

Que lea el valor de un ángulo en radianes, luego que calcule y muestre su valor en grados, minutos y segundos.

Answer 1

Pseudocódigo Pseint para convertir ángulos de radianes a grados con minutos y segundos. Se adjunta imagen de código y diagrama de flujo.

Algoritmo convertidorAngulos

• // Definir variables

Definir resultado,dato,_grados,_partedecimal,_segundos,divisor Como Real

Definir _decimal,digito,partedecimal Como Caracter

Definir a Como Entero

Escribir '****Convertidor de radianes a grados**** '

• // Ingresar el dato

Escribir 'Escriba el ángulo en radianes'

Leer dato

• // Convertir radianes a grados e imprimirlo

resultado <- (dato*180)/pi

_grados <- trunc(resultado)

Escribir 'Grados:',_grados

• // Separar la parte decimal de los grados para convertirlo en minutos

_decimal <- ConvertirATexto(resultado)

Para a<-0 Hasta Longitud(_decimal) Hacer

 digito <- SUBCADENA(_decimal,a,a)

 Si digito='.' Entonces

  partedecimal <- SUBCADENA(_decimal,a+1,Longitud(_decimal))

 FinSi

FinPara

_partedecimal <- ConvertirANumero(partedecimal)

digito <- '1'

Para a<-1 Hasta Longitud(partedecimal) Hacer

 digito <- digito+'0'

FinPara

divisor <- ConvertirANumero(digito)

_minutos <- (_partedecimal/divisor)*60

_minutosT <- ConvertirATexto(_minutos)

_minutos <- trunc(_minutos)

Escribir 'Minutos:',_minutos

• // Separar la parte decimal de los minutos para convertirlo en segundos

Para a<-0 Hasta Longitud(_minutosT) Hacer

 digito <- SUBCADENA(_minutosT,a,a)

 Si digito='.' Entonces

  partedecimal <- SUBCADENA(_minutosT,a+1,Longitud(_minutosT))

 FinSi

FinPara

_segundos <- ConvertirANumero(partedecimal)

digito <- '1'

Para a<-1 Hasta Longitud(partedecimal) Hacer

 digito <- digito+'0'

FinPara

divisor <- ConvertirANumero(digito)

_segundos <- (_segundos/divisor)*60

Escribir 'Segundos:',_segundos

FinAlgoritmo

Para saber más acerca de conversión de radianes a grados consulte: https://brainly.lat/tarea/12550509

#SPJ1