Practica No. 4 - Octubre 10 del 2013

1.-Escriba un programa que acepte un angulo, en grados y despliegue el tipo de angulo correspondiente a los grados introducidos.

ALGORITMO

1-.Inicio
2-.Declaracion de variables
 angulo  real
3-.Lectura de variables
 write "Introduce los grados del angulo"
 read angulo
4-.Comparar
 if (angulo==90.0) then
 write "El angulo es recto"
 else
 if (angulo<90.0) then
 write "El angulo es agudo"
 else
 if (angulo>90.0) then
 write "El angulo es obtuso"
5-.Fin


PSEUDOCODIGO

Inicio
Declaracion de variables
angulo  real
write "Introduce los grados del angulo"
read angulo
if (angulo==90.0) then
write "El angulo es recto"
else
if (angulo<90.0) then
write "El angulo es agudo"
else
if (angulo>90.0) then
write "El angulo es obtuso"

Fin

2. Escriba un programa que acepte el numero de créditos que ha completado un estudiante, determine su grado y los despliegue.

ALGORITMO

1-.Inicio
2-.Declaracion de variables
 creditos    entero
3-.Lectura de variables
 write "Introduce los creditos"
 read creditos
4-.Comparar
 if(creditos<32)
 write"Primer año"
 else
 if(creditos>=32 and creditos<=63)
 write"Segundo año"
 else
 if(creditos>=64 and creditos<=95)
 write"Tercer año"
 else
 if(creditos>=96)
 write"Ultimo año"
5-.Fin

PSEUDOCODIGO

Inicio
creditos   int
write "Introduce los creditos"
read creditos
if(creditos<32)
write"Primer año"
else
if(creditos>=32 and creditos<=63)
write"Segundo año"
else
if(creditos>=64 and creditos<=95)
write"Tercer año"
else
if(creditos>=96)
write"Ultimo año"

Fin

3. Un programa para leer el numero de mes entre 1 y 12 y que imprima el nombre del mes correspondiente.

Pseudocódigo

Inicio
mes int
Write "Indroduzca el numero del mes"
Read mes
if (mes==1) Then
     Write"El mes es Enero"
else
{
 if (mes==2) Then
    Write"El mes es Febrero"
   else
    {
      if (mes==3) Then
    Write"El mes es Marzo"
      else
      {
      if (mes==4) Then
    Write"El mes es Abril"
      else
      {
      if (mes==5) Then
      Write"El mes es Mayo"
      else
      {
      if (mes==6) Then
    Write"El mes es Junio"
      else
    {
      if (mes==7) Then
    Write"El mes es Julio"
      else
      {
      if (mes==8) Then
    Write"El mes es Agosto"
      else
      {
      if (mes==9) Then
       Write"El mes es Septiembre"
      else
      {
      if (mes==10) Then
    Write"El mes es Octubre"
      else
      {
      if (mes==11) Then
       Write"El mes es Noviembre"
      else
      {
      if (mes==12) Then
    Write"El mes es Diciembre"
 else
  {
 Write"Solo hay doce meses"
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }

Fin

4. Elabore un programa que lea los tres lados ángulos y lados de dos triángulos e imprima si son congruentes. 

Diagrama de Flujo

5. Haga un programa que permita leer una letra e imprima si es vocal o consonante.

Pseudocodigo

Inicio

letra char

write"Introduzca una letra" 

read letra

if((letra=='a')or(letra=='A')or(letra=='e')or(letra=='E')or(letra=='i')or(letra=='I')

or(letra=='o')or(letra=='O')or(letra=='u')or(letra=='U'))

write"La letra es vocal"

else

write"La letra es consonante"

Fin 

6. Calcular e imprimir el precio de un terreno

Pseudocódigo:
Inicio
ancho,largo,ppm,a,st,total,desc Real
write "Ancho del terreno: "
read ancho
write "Largo del terreno: "
read largo
write "Precio por metro cuadrado: "
read ppm
a=ancho*largo
st=ppm*a
if ((a>300)and(a<400))
{
desc=st*0.05
   total=st-desc
   "El precio es de: ",total," pesos"
}
else
{
if ((a>400)and(a<500))
   {
desc=st*0.08
   total=st-desc
"El precio es de: ",total," pesos"
}
else
{
   if (a>500)
      {
desc=st*0.10
    total=st-desc
"El precio es de: ",total," pesos"
      }
else
"El precio es de: ",st," pesos"
}
}
getch();
return 0;
}
Fin

7. Un programa que calcule e imprima el costo total de la orden.

Diagrama de Flujo

8. Imprima el subtotal a pagar, el descuento y el total a pagar.

9. Elaborar un programa para leer el valor de un angulo en radianes o grados y que imprima el seno, coseno, tangente, cotangente y secante.
Pseudocódigo

Inicio
angulo, ldeangulo real
char tangulo
Write"Introduzca r si su angulo esta en radianes"
Write"Introduzca g si su angulo esta en grados"
Read tangulo
if (tangulo=='r')
 {
 Write"Introduzca el angulo en radianes"
   Read angulo
   if (angulo==0)
    {
 Write"El seno del angulo en radianes es: ",sin(angulo)
    Write"El coseno del angulo en radianes es: ",cos(angulo)
    Write"El tangente del angulo en radianes es: ",tan(angulo)
    }
 else
    {
    Write"El seno del angulo en radianes es: ",sin(angulo)
    Write"El coseno del angulo en radianes es: ",cos(angulo)
    Write"El tangente del angulo en radianes es: ",tan(angulo)
    ldeangulo=1.0/(tan(angulo));
    Write"El cotangente del angulo en grados es: ",ldeangulo
    ldeangulo=1.0/(sin(angulo));
    Write"El cosecante del angulo en radianes es: ",sin(angulo)
    ldeangulo=1.0/(cos(angulo));
    Write"El secante del angulo en radianes es: ",sin(angulo)
    }
   }
   else
   {
   if (tangulo=='g')
   {
   Write"Introduzca el angulo en grados"
   Read angulo
   angulo=(angulo*3.1416)/180.0
   if (angulo==0)
   {
 Write"El seno del angulo en radianes es: ",sin(angulo)
    Write"El coseno del angulo en radianes es: ",cos(angulo)
    Write"El tangente del angulo en radianes es: ",tan(angulo)
   }
   else
   {
    Write"El seno del angulo en radianes es: ",sin(angulo)
    Write"El coseno del angulo en radianes es: ",cos(angulo)
    Write"El tangente del angulo en radianes es: ",tan(angulo)
    ldeangulo=1.0/(tan(angulo));
    Write"El cotangente del angulo en grados es: ",ldeangulo
    ldeangulo=1.0/(sin(angulo));
    Write"El cosecante del angulo en radianes es: ",sin(angulo)
    ldeangulo=1.0/(cos(angulo));
    Write"El secante del angulo en radianes es: ",sin(angulo)
   }
 }
   }

Fin

10. Haga un programa para leer tres numero enteros y verificar si están en orden ascendente, descendente o sin ordenar.