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
Pseudocódigo
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. E nivel de grado de los estudiantes universitarios se determina de manera típica de acuerdo con la siguiente tabla:
Menor que 32 primer grado, 32 a 63 segundo año, 64 a 95 tercer año, 96 o más último año.
Usando esta información, escriba un programa que acepte el número de créditos que ha completado un estudiante, determine el grado del estudiante y lo despliegue. Haga la solución algoritmo, pseudocódigo y diagrama de flujo.
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
Pseudocódigo
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. Elabore un programa usando if anidados para leer el número de mes entre 1 y 12 y que imprima el nombre del mes correspondiente: Si es 1 Enero, si es 2 Febrero...etc. Haga el pseudocódigo.
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. Dos triángulos son congruentes si tienen la misma forma y tamaño, es decir, sus ángulos y lados correspondiente son iguales. Elaborar un programa que lea los tres lados, ángulos y los lados de dos triángulos e imprima si son congruentes. Hacer diagrama de flujo.
5. Haga un programa que permita leer una letra e imprima si es vocal o consonante.
Pseudocódigo:
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. Elabore un programa y su pseudocódigo para calcular e imprimir el precio de un terreno del cual se tiene los siguientes datos: largo, ancho y precio por metro cuadrado. Si el terreno tiene más de 300 metros cuadrados se hace un descuento de 5%, si el terreno tiene más de 400 metros se hace un descuento de 8%, si tiene más de 500 metros el descuento es 10%.
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 cliente ordena cierta cantidad de componentes electrónico led, resistencias y capacitores. Si se compran más de 50 partes tiene un descuento de 15%. Los datos que se tienen por cada tipo de articulo son: la cantidad pedida y el precio unitario. Además, si se paga de contado todo tiene un descuento de 5%. Elaborar un programa y un diagrama de flujo que calcule e imprima el costo total de la orden, tanto para el pago de contado como para el caso de pago de crédito.
8. En un almacén de venta de trajes, si uno compra dos el segundo es a mitad de precio, si se compra 3 el tercero es gratis y si compra más de 4 tiene un 30% de descuento. Imprima el subtotal a pagar, el descuento y el total a pagar. Haga el diagrama de flujo.
9. Elaborar un programa y pseudocódigo para leer el valor de un ángulo en radianes o grados y que imprima el seno, coseno, tangente, cotangente y secante. Debe de preguntar el valor del angulo si está en radianes o grados.
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 y diagrama de flujo para leer números enteros y verificar si están en orden ascendente, descendente o sin ordenar.
