5. Elaborar un programa y pseudocodigo para leer el valor de un angulo en
radianes o grados y que imprima el seno, coseno, tangente, contangente y
secante. Debe solicitar el valor del angulo y enseguida una g que
significa grados o r si esta en radianes en caso contrario indicar error
en caracter. (recuerde para convertir grados a radianes
=ValorAngulo*3.1416/180.0)
Pseudocodigo:
inicio
valor,radi:doble
tipo:char
write "Introduzca el valor de su angulo: "
read valor
write "Introduzca el tipo de angulo(r= radianes, g= grados): "
read tipo
if(tipo=='r')
then
{
write "El seno de su angulo es: "<<sin(valor)
write "El coseno de su angulo es: "<<cos(valor)
write "La tangene de su angulo es: "<<tan(valor)
write "La cotangente de su angulo es: "<<(1/tan(valor))
write "La secante de su angulo es: "<<(1/cos(valor))
}
else
{
if(tipo=='g')
then
{
radi=((valor*3.1416)/180.0);
write "El seno de su angulo es: "<<sin(radi)
write "El coseno de su angulo es: "<<cos(radi)
write "La tangene de su angulo es: "<<tan(radi)
write "La cotangente de su angulo es: "<<(1/tan(radi))
write "La secante de su angulo es: "<<(1/cos(radi))
}
else
{
if(tipo!='g' and tipo!='r')
then
{
write "Error de caracter, por favor corrijalo"
}
}
}
fin
Codigo:
