Codificación de Los Problemas Secuenciales
❖ Problema #1
Suponga que un individuo desea invertir su capital en un banco y desea saber cuanto
dinero ganará después de un mes si el banco paga a razón de 2% mensual.
Algoritmo:
Algoritmo Capital_Optenido
Definir var1, var2,var3 Como Real;
escribir " Introducir capital a invertir en el Banco";
leer Var1;
var2 <- var1 * 0.02;
var3 <- var2 + var1;
Escribir " Su interes al paso de un mes, es de:", var2;
Escribir "Su capital final es de:",var3;
FinAlgoritmp
❖ Problema #2
Un vendedor recibe un sueldo base más un 10% extra por comisión de sus ventas, el
vendedor desea saber cuánto dinero obtendrá por concepto de comisiones por las
tres ventas que realiza en el mes y el total que recibirá en el mes tomando en cuenta
su sueldo base y comisiones.
Algoritmo:
Proceso Problema_2
Definir Porcentaje_Comisiones, Sueldo_Base, Comisiones, Salario_Total Como Real;
Porcentaje_Comisiones <- 0.10;
Definir var1, var2, var3 Como Real;
Escribir "Incresar el Valor de la Primera Venta";
Leer var1;
Escribir "Incresar el Valor de la Segunda Venta";
Leer var2;
Escribir "Incresar el Valor de la Tercera Venta";
Leer var3;
Comisiones <- (var1 + var2 +var3) * Porcentaje_Comisiones;
Sueldo_Base <- var1+var2+var3;
Salario_Total <- Comisiones + Sueldo_Base;
escribir " El porcentaje de este mes en comisiones es de ", comisiones;
Escribir "por comisiones y un Salario Total de ",Salario_Total;
FinProceso
❖ Problema # 3
Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente
desea saber cuánto deberá pagar finalmente por su compra.
Algoritmo:
Proceso Problema_3
definir vari1, var2, var3, precio_Total Como Real;
Escribir " Ingresar el valor del Objeto a Comprar";
leer vari1;
var2<- vari1 * 0.15;
precio_total<- vari1-var2;
Escribir " Con un descuento del 15 % usted se esta ahorrando un total de ", var2 ;
escribir " Por la compra de un objeto con el precio de ", vari1, " le quedaria en ", precio_total;
FinProceso
❖ Problema #4
Un alumno desea saber cuál será su calificación final en la materia de Algoritmos.
Dicha calificación se compone de los siguientes porcentajes:
55% del promedio de sus tres calificaciones parciales.
30% de la calificación del examen final.
15% de la calificación de un trabajo final.
Algoritmo:
Proceso Problema_4
Definir Parcial_1, Parcial_2, Parcial_3, Examen_Final, Trabajo_Final,
Promedio_de_los_parciales, calificaion_final Como Real;
Escribir "Ingresar nota del Parcial 1";
Leer Parcial_1;
Escribir "Ingresar nota del Parcial 2";
Leer Parcial_2;
Escribir "Ingresar nota del Parcial 3";
Leer Parcial_3;
Promedio_de_los_Parciales <- (Parcial_1+Parcial_2+Parcial_3)/3 ;
Escribir "Ingresar calificcion del Examen Final";
Leer Examen_Final;
Escribir "Ingresar calificcion del Trabajo Final";
Leer Trabajo_Final;
calificaion_final<-(Promedio_de_los_Parciales * 0.55)+ (Examen_Final * 0.3)
+(Trabajo_Final * 0.15) ;
Escribir " la Calificación del alumno en la materia de Algoritmos es de ",
calificaion_final;
FinProceso
❖ Problema #5
Un maestro desea saber qué porcentaje de hombres y que porcentaje de mujeres hay
en un grupo de estudiantes.
Algoritmo:
Proceso Problema_5
Definir Total_de_hombres, total_de_mujeres, total_de_estudiantes, porcentaje_de_hombres,
porcentaje_de_mujeres Como Real;
escribir " Ingresar la cantidad de Hombres del Aula";
leer Total_de_hombres;
escribir "Ingresar la cantidad de mujeres del Aula";
Leer total_de_mujeres;
total_de_estudiantes <- Total_de_hombres + total_de_mujeres;
porcentaje_de_hombres<- (Total_de_hombres/total_de_estudiantes) *100;
porcentaje_de_mujeres<- (total_de_mujeres/total_de_estudiantes) *100;
escribir "En el Aula hay un porcentaje de Hombres de ", porcentaje_de_hombres, " % y un
porcentaje de mujeres del", porcentaje_de_mujeres, "%" ;
FinProceso
❖ Problema #6
Realizar un algoritmo que calcule la edad de una persona.
Algoritmo:
Proceso Problema_6
Definir year_en_el_que_naciste, year_actual, Edad_actual Como Real;
Escribir "Ingrese el año en el que nació la persona";
leer year_en_el_que_naciste;
Escribir " Ingrese el año actual en que se encuentra";
leer year_actual;
Edad_actual<- year_actual-year_en_el_que_naciste;
Escribir " su edad Actual es de", Edad_actual, "Años" ;
FinProceso
❖ Problema #7
Leer un número y escribir el valor absoluto del mismo.
Algoritmo:
Proceso Problema_7
definir num1, valor_adsoluto Como Real;
Escribir " Ingrese un Numero Real";
leer num1;
Si num1 < 0 Entonces
valor_adsoluto <- num1 * (-1);
sino
valor_adsoluto <- num1;
FinSi
Escribir "El valor adsoluto del numero ingresado es de ", valor_adsoluto;
FinProceso
❖ Problema#8
La presión, el volumen la temperatura de una masa de aire se relacionan por la
fórmula
Masa <- (presión * volumen)/(0.37 * (temperatura + 460))
Calcular la masa de aire de un neumático de un vehículo que está compostura en un
servicio de alineación y balanceo.
Algoritmo:
Proceso Problema_8
definir presion, volumen, temperatura, masa Como Real;
Escribir "ingrese la presion del neumatico";
leer presion;
Escribir "ingrese el volumen del neumatico";
leer volumen;
Escribir "ingrese la temperatura";
leer temperatura;
masa<- (presion * volumen)/(0.37 * (temperatura + 460));
Escribir " la masa del neumatico es de", masa;
FinProceso
❖ Problema #9
Calcular el número que una persona debe tener por cada 10 segundos de ejercicio, si
la formula es: num.pulsaciones & lt;-(220 - edad)/10.
Algoritmo:
Proceso Problema_9
definir Edad, pulsaciones Como Real;
escribir "Ingrese su Edad Actual";
Leer Edad;
pulsaciones<- (220-Edad)/10;
Escribir "Segun su edad usted tendra", pulsaciones, " pulsaciones por cada 10s de ejercicio";
FinProceso
❖ Problema #10
Todos los lunes, miércoles y viernes, una persona corre la misma ruta y cronometra
los tiempos obtenidos. Determinar el promedio que la persona tarda en recorrer
la ruta en una semana cualquiera.
Algoritmo:
Proceso Problema_10
definir tiempoLunes, tiempoMiercoles, tiempoJueves, promediosemanal Como Real;
escribir "Ingresel tiempo que tarda los lunes";
leer tiempoLunes; escribir "minutos";
escribir "Ingrese el tiempo que tarda los Miercoles";
leer tiempoMiercoles; escribir "minutos";
Escribir "Ingrese el tiempo que tarda los Jueves";
leer tiempoJueves; escribir "minutos";
promediosemanal<- (tiempoJueves+tiempoLunes+tiempoMiercoles)/3;
Escribir "El promedio de tiempo que tardas en correr la ruta en una semana es: ", promediosemanal;
escribir "minutos";
FinProceso
❖ Problema #11
Tres personas deciden invertir su dinero para fundar una empresa. Cada una de
ellas invierten una cantidad distinta. Obtener el porcentaje que cada quien invierte
con respecto a la cantidad total invertida.
Algoritmo:
Proceso Problema_11
definir InversionPersona1, inversionPersona2, inversionPersona3, totalInvertido,
porcentajePersona1, porcentajepersona2, porcentajepersona3 Como Real;
Escribir "Ingrese la cantidad invertidad de la persona #1";
leer InversionPersona1;
escribir "Ingrese la cantidad invertida de la persona #2";
leer inversionPersona2;
escribir " Ingrese la cantidad invertida de la persona #3";
leer inversionPersona3;
totalInvertido<- InversionPersona1+inversionPersona2+inversionPersona3;
porcentajePersona1<- (InversionPersona1/totalInvertido) * 100;
porcentajepersona2<- (inversionPersona2/totalInvertido) * 100;
porcentajepersona3<- (inversionPersona3/totalInvertido) * 100;
escribir "La persona #1 coopero a la empresa con un total de = ", porcentajePersona1, " % del
total.";
escribir "La persona #2 coopero a la empresa con un total de = ", porcentajePersona2, " % del
total.";
escribir "La persona #3 coopero a la empresa con un total de = ", porcentajePersona3, " % del
total.";
FinProceso
❖ Problema #12
Leer el sueldo de tres empleados y aplicarles un aumento del 10, 12 y 15%
respectivamente. Desplegar los resultados.
Algoritmo:
Proceso Problema_12
definir sueldo1, sueldo1masaumento, sueldo2, sueldo2masaumento, sueldo3,
sueldo3masaumento, sueldoTotal1, sueldoTotal2, sueldoTotal3 Como Real;
Escribir "Ingrese el sueldo de la primera persona";
leer sueldo1;
sueldo1masaumento <- sueldo1 * 0.10;
Escribir "Ingrese el sueldo de la segunda persona";
leer sueldo2 ;
sueldo2masaumento <- sueldo2 * 0.12;
escribir "Ingrese el sueldo de la tercera persona";
leer sueldo3 ;
sueldo3masaumento <- sueldo3 * 0.15;
sueldoTotal1 <- sueldo1+sueldo1masaumento;
sueldoTotal2<- sueldo2+sueldo2masaumento;
sueldoTotal3 <- sueldo3+sueldo3masaumento;
Escribir " el Sueldo de la persona #1 con el aumento del 10% es de =", sueldototal1;
Escribir " el Sueldo de la persona #2 con el aumento del 12% es de =", sueldototal2;
Escribir " el Sueldo de la persona #3 con el aumento del 15% es de =", sueldototal3;
FinProceso
❖ Problema #13
Escriba un programa que calcule el área de un triángulo rectángulo, dada la altura
la base. Área <-(base * altura)/2.
Algoritmo:
Proceso Problema_12
definir base, altura, area Como Real;
Escribir "Ingrese la medidad de la base del triangulo";
leer base;
Escribir "Igrese la medida de la altura del triangulo";
leer altura;
Area <- (base * altura)/2 ;
Escribir " El area del Triangulo es de =", Area;
FinProceso
❖ Problema 14
Escriba un programa al cual ingrese la velocidad de un móvil expresada en metros
por segundo e imprimirlo en el siguiente cartel pantalla en kilómetro por hora.
Algoritmo:
Proceso Problema_14
Definir velocidad1, velocidad2 Como Real;
escribir "Ingresar la velocidad en metros sobre segundos del automovil";
leer velocidad1;
velocidad2 <- velocidad1 * 3.6;
Escribir " la velocidad es de =", velocidad2,"en kilometros sobre hora" ;
FinProceso
❖ Problema #15
Modifique el programa anterior de manera tal que por pantalla aparezca el siguiente
cartel. “los XXX m/s equivalen a YYY K/H” (Donde XXX es el valor engrasado e
YYY es el resultado)
Algoritmo :
Proceso Problema_15
Definir velocidad1,velocidad2 Como Real;
Escribir 'Ingresar la velocidad en metros sobre segundos del automovil';
Leer velocidad1;escribir, velocidad1, "m/s";
velocidad2 <- velocidad1*3.6;
Escribir "La velocidad =", velocidad1, "m/s es igual a =", velocidad2, "Km/h" ;
FinProceso
