ECUACION DE SEGUNDO GRADO Hacer un algoritmo para resolver una ecuación de segundo grado. La ecuación de segundo segundo grado es ax2 + bx + c = 0 y a ≠ 0. Las soluciones o raíces de la ecuación son:
un 70% y el restante 30% lo pagará solicitando crédito al fabricante. El fabricante cobra por concepto de intereses un 20% sobre la cantidad que se le pague a crédito. Hacer un algoritmo que determine cómo se pagaría una compra determinada.
SERVICIO MILITAR Una persona es apta para prestar el servicio militar obligatorio cuando: es mayor de 18 años, menor de 25 años, y género género masculino. Realizar un algoritmo que permita determinar si una persona es apta o no para prestar el servicio militar.
VALOR MATRICULA Se ha establecido un programa para estimular a los alumnos, el cual consiste en lo siguiente: si el promedio global obtenido por un alumno en el último periodo es mayor o igual que 4, se le hará un descuento del 30% sobre la matrícula y no se le cobrará IVA; si el promedio obtenido es menor que 4 deberá pagar la matrícula completa, la cual debe incluir el 10% de IVA. Hacer un algoritmo que calcule el valor a pagar si se conocen las notas finales de las 6 materias que cursaron. MONTO DE COMPRA Una empresa quiere hacer una compra de varias piezas de la misma clase a una fábrica. La empresa, dependiendo del monto total de la compra, decidirá qué hacer para pagar al fabricante. Si el monto total de la compra excede de $500.000 la empresa tendrá la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% y el r esto lo pagará solicitando un crédito al fabricante. Si el monto total de la compra no excede de $500 000 la empresa tendrá capacidad de invertir de su propio dinero
DESCUENTO COMPRA
1
Una tienda ha puesto en oferta la venta al por mayor de cierto producto, ofreciendo un descuento del 15% por la compra de más de 3 docenas y 10% en caso contrario. Diseñe un algoritmo que determine el monto de la compra, el monto del descuento y el monto a pagar.
ESTACIONAMIENTO En una playa de estacionamiento cobran $1500 la primera hora y $1000 a partir de la segunda hora. Diseñe un algoritmo que determine cuánto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas.
DESCUENTO NUMERO AZAR En un supermercado se hace una promoción, mediante la cual el cliente obtiene un descuento dependiendo de un número que se escoge al azar. Si el número escogido es menor que 74 el descuento es del 15% sobre el total de la compra, si es mayor o igual a 74 el descuento es del 20%. Obtener cuánto dinero se le descuenta.
FUNCION PARTE DECIMAL
Hacer un programa que determine si un número tiene o no parte fraccionaria. Usar la función trunc la cual elimina la parte decimal de un número real. trunc es similar a la función parte entera, por ejemplo [2.5] es 2.
NOTA CURSO Determinar si un alumno aprueba o reprueba un curso, sabiendo que aprobará si su promedio de tres calificaciones es mayor o igual a 3.0; reprueba en caso contrario.
NUMERO PAR/IMPAR Diseñe un algoritmo que determine si un número es o no par.
2
Proceso Mayor_Ascendente
Proceso Menos_Descendente Escribir "Ingrese el primer numero"; Leer n1; Escribir "Ingrese el segundo numero"; Leer n2; Escribir "Ingrese el tercer numero"; Leer n3; mayor <- 0; Si n1 > n2 Entonces mayor <- n1; medio <- n3; menor <- n2; Si n1 < n3 Entonces mayor <- n3; medio <- n2; menor <- n1; Sino Si n2 > n3 Entonces medio <- n2; menor <- n3; FinSi FinSi Sino mayor <- n2; medio <- n3; menor <- n1; Si n2 < n3 Entonces mayor <- n3; menor <- n1; medio <- n2; Sino Si n1 > n3 Entonces medio <- n1; menor <- n3; FinSi FinSi FinSi Escribir "Los numeros ordenados en orden ascendente son:", " ",mayor," - ",medio," - ",menor; FinProceso 2)
Escribir "Ingrese el primer numero"; Leer n1; Escribir "Ingrese el segundo numero"; Leer n2; Escribir "Ingrese el tercer numero"; Leer n3; mayor <- 0; Si n1 > n2 Entonces mayor <- n1; medio <- n3; menor <- n2; Si n1 < n3 Entonces mayor <- n3; medio <- n2; menor <- n1; Sino Si n2 > n3 Entonces medio <- n2; menor <- n3; FinSi FinSi Sino mayor <- n2; medio <- n3; menor <- n1; Si n2 < n3 Entonces mayor <- n3; menor <- n1; medio <- n2; Sino Si n1 > n3 Entonces medio <- n1; menor <- n3; FinSi FinSi FinSi Escribir "Los numeros ordenados en orden ascendente son:", " ",menor," - ",medio," - ",mayor; FinProceso 3) Proceso semana escribir 'ingresar Nª de dias: '; leer dias; Segun dias Hacer 1: escribir 'lunes'; 2: escribir 'martes'; 3: escribir 'miercoles';
3
4: escribir 'jueves'; 5: escribir 'viernes'; 6: escribir 'sabado'; 7: escribir 'domingo'; De Otro Modo: escribir 'numero no valido'; FinSegun FinProceso 4) Proceso mes escribir 'ingresar Nª de mes: '; leer mes; Segun mes Hacer 1: escribir 'enero'; 2: escribir 'febrero'; 3: escribir 'marzo'; 4: escribir 'abril'; 5: escribir 'mayo'; 6: escribir 'junio'; 7: escribir 'julio'; 8: escribir 'agosto'; 9: escribir 'setiembre'; 10: escribir 'octubre'; 11: escribir 'noviembre'; 12: escribir 'diciembre';
De Otro Modo: escribir 'numero no valido'; FinSegun FinProceso 5) Proceso notanumerica escribir 'ingresar nota numerica: '; leer nota;
Segun nota Hacer 0: escribir 'cero'; 1: escribir 'uno'; 2: escribir 'dos'; 3: escribir 'tres'; 4: escribir 'cuatro'; 5: escribir 'cinco'; 6: escribir 'seis'; 7: escribir 'siete'; 8: escribir 'ocho'; 9: escribir 'nueve'; 10: escribir 'diez'; De Otro Modo: escribir 'numero no valido'; FinSegun FinProceso
6) Proceso notas promedio<-0 escribir 'ingresar notas del alumno: '; leer n1; leer n2; leer n3; promedio<-(n1+n2+n3)/3 Si promedio>0 y promedio<5 Entonces escribir 'el alumno es pesimo'; Sino si promedio>6 y promedio<10 Entonces escribir 'el alumno es malo'; Sino si promedio>11 y promedio<15 Entonces escribir 'el alumno es regular'; Sino si promedio>16 y promedio<20 Entonces escribir 'el alumno es excelente'; FinSi FinSi FinSi FinSi
4
escribir 'el promedio final es: ',promedio; FinProceso 7) Proceso porcentaje hombre y mujeres total<-0 porh<-0 porm<-0 escribir 'ingresar porcentaje de hombre: '; leer h; escribir 'ingresar porcentaje de muejers: '; leer m; total<-h+m; porh<-(h*100)/total escribir 'el porcentaje de hombre es: ',porh; porm<-(m*100)/total escribir 'el porcentaje de mujeres es:',porm; FinProceso 8) Proceso alumno total<-0 porh<-0 porm<-0 escribir 'ingresar alumno Aprobados: '; leer a; escribir 'ingresar alumno Desaprobado: '; leer d; total<-a+d; porh<-(a*100)/total escribir 'el porcentaje de aprobado es: ',porh; porm<-(d*100)/total escribir 'el porcentaje de desaprobado es: ',porm; FinProceso 9) Proceso camisas monto1<-0 totalapagar<-0 descuento<-0 escribir 'ingresar cantidad de camisas: '; leer cantidad; escribir 'ingresar precio x cada camisas: '; leer precio; Si (cantidad>3) Entonces monto1<-cantidad*precio; descuento<-monto1*0.20; totalapagar<-monto1-descuento; Sino monto1<-cantidad*precio; descuento<-monto1*0.10; totalapagar<-monto1-descuento;
FinSi escribir 'el monto es: ',monto1; escribir 'el descuento es: ',descuento; escribir 'el total a pagar es: ',totalapagar; FinProceso 10) Proceso pantalones monto1<-0 totalapagar<-0 descuento<-0 escribir 'ingresar cantidad de pantalones: '; leer cantidad; escribir 'ingresar precio x cada pantalon: '; leer precio; Si (cantidad>4) Entonces monto1<-cantidad*precio; descuento<-monto1*0.10; totalapagar<-monto1-descuento; Sino monto1<-cantidad*precio; descuento<-monto1*0.05; totalapagar<-monto1-descuento; FinSi escribir 'el monto es: ',monto1; escribir 'el descuento es: ',descuento; escribir 'el total a pagar es: ',totalapagar; FinProceso
11) Proceso sueldo pagar<-0 promedio<-0 Para i<-0 Hasta 4 Con Paso 1 Hacer escribir 'digitar sueldo: '; leer sueldo; pagar<-pagar+sueldo; promedio<-pagar/4; FinPara escribir 'el total a pagar es: ',pagar; escribir 'el promedio del sueldo es: ',promedio; FinProceso 12) Proceso descendente n<-12 Mientras n>=0 Hacer escribir 'numero descendente es :',n; n<-n-1 FinMientras FinProceso
5
13) Proceso multiplode5 n<-5 Mientras n<=100 Hacer escribir 'numero descendente es :',n; n<-n+5 FinMientras FinProceso
Ejercicio 1.Proceso arreglo Continuar<-"si"; Mientras Continuar="si" Hacer Dimension C[100], P[100], G[100]; Escribir "Ingrese la Cantidad de Viviendas que se alquilan actualmente"; Leer Cant_vivi; Para i<-1 Hasta Cant_vivi Hacer Escribir "Ingrese Cuanto se Paga mensualmente por la Vivienda,",i, ":"; Leer C[i]; FinPara Para i<-1 Hasta Cant_vivi Hacer Escribir "Ingrese que porcentaje se obtiene de ganancia por la Vivienda,",i, ":"; Leer P[i]; Porcentaje<-P[i]/100; FinPara Para i<-1 Hasta Cant_vivi Hacer G[i]<-C[i]*Porcentaje; Escribir "La Ganancia que se obtiene de la Casa,",i, ":"; Escribir "Es de:", G[i]; FinPara Si Cant_vivi>100 Entonces Escribir "Cantidad de Viviendas no disponible"; FinSi Escribir "¿Desea continuar?"; Leer Continuar; FinMientras Escribir “Gracias por usar Una pagina y un programa desarrollado por Omar Web Technology”; FinProceso Ejercicio 2.Proceso sueldo_de_empleados Escribir "Bienvenidos, por favor ingrese el sueldo del primer Empleado"; Leer Empleado1; Escribir "Ahora por favor ingrese el sueldo del segundo Empleado"; Leer Empleado2;
Escribir "Para finalizar ingrese el sueldo del tercer Empleado"; Leer Empleado3; Aumento1<-Empleado1*0.10; Salario1<-Empleado1+Aumento1; Escribir "El Sueldo con un aumento del 10 % al Primer Empleado es de:", Salario1; Aumento2<-Empleado2*0.12; Salario2<-Empleado2+Aumento2; Escribir "El sueldo con un aumento del 12% al Segundo Empleado es de:", Salario2; Aumento3<-Empleado3*0.15; Salario3<-Empleado3+Aumento3; Escribir "El sueldo con un aumento del 15% al Tercer Empleado es de:", Salario3; Escribir “Gracias por usar Una pagina y un programa desarrollado por Omar Web Technology”;
FinProceso Ejercicio 3.Proceso calculo_de_superficies opcion<-0; Escribir "CALCULO DE SUPERFICIES (version 1.0)"; Escribir "Para hallar el Area de un Cuadrado presione 1"; Escribir "Para hallar el Area de un Circulo presione 2"; Escribir "Para hallar el Area de un Rectangulo presione 3"; Escribir "Para hallar el Area de un Trapecio presione 4"; Escribir "Para hallar el Area de un Triangulo presione 5"; Leer opcion; Si opcion=1 Entonces Escribir "Para calcular el area de un Cuadrado, ingrese el valor del lado"; Leer lado; Areacuadrado<-lado*lado; Escribir "El valor del Area del cuadrado es de:", Areacuadrado; Escribir "Gracias por usar nuestro programa, desarrollado por Pseint y el estudiante Omar"; Sino Si opcion=2 Entonces Escribir "Para hallar el area de un circulo, ingrese el valor del radio"; Leer radio; Areacirculo<-3.14*radio*radio; Escribir "El area de un circulo es de:", Areacirculo; Escribir "Gracias por usar nuestro programa, desarrollado por Pseint y el estudiante Omar"; Sino Si opcion=3 Entonces Escribir "Para hallar el valor del Rectangulo, ingrese el valor de la base"; Leer base;
6
Escribir "Ahora ingrese la altura"; Leer altura; Arearectangulo<-base*altura; Escribir "El Area del Rectangulo es", Arearectangulo; Escribir "Gracias por usar nuestro programa, desarrollado por Pseint y el estudiante Omar"; Sino Si opcion=4 Entonces Escribir "Para encontrar el Area de un Trapecio, ingrese el valor de la base1"; Leer base1; Escribir "Ingrese ahora la base2"; Leer base2; Escribir "Finalmente ingrese el valor de la altura"; Areatrapecio<-(base1+base2)*altura/2; Escribir "El area de un trapecio es de:", Areatrapecio; Escribir "Gracias por usar nuestro programa, desarrollado por Pseint y el estudiante Omar"; Sino Si opcion=5 Entonces Escribir "Para hallar el valor del area de un triangulo, por favor ingrese el valor de la base"; Leer base; Escribir "Ahora ingrese el valor de la altura"; Leer altura; Areatriangulo<-(base*altura)/2; Escribir "El area del Triangulo es de:", Areatriangulo; Escribir "Gracias por usar nuestro programa, desarrollado por Pseint "; FinSi FinSi FinSi FinSi FinSi FinProceso Ejercicio 4.Proceso calificacion_aprobado Escribir "Bienvenido Estimado Docente"; Escribir "Por favor, Ingrese la Calificacion del Estudiante"; Leer Calificacion; Si Calificacion>8 Entonces Escribir "El Alumno, Aprobo el Examen"; Sino Escribir "El Alumno, No Aprobo el Examen"; FinSi Escribir “Gracias por usar Una pagina y un programa desarrollado por Omar Web Technology”; FinProceso Ejercicio 5.Proceso sin_titulo Continuar<-"s";
Mientras Continuar= "s" Hacer Escribir "Estimado Usuario, ingrese El nombre del Paciente"; Leer Nombre; Escribir "Ingrese el Numero de Dias Hospitalizado"; Leer Dh; Escribir "Que tipo de Enfermedad posee segun las opciones"; Escribir "Presione 1 Fiebre Costo/Paciente/Dias = 1500"; Escribir "Presione 2 Dengue Costo/Paciente/Dias = 1700"; Escribir "Presione 3 Influenza Costo/Paciente/Dias = 1900"; Leer Opcion; Segun Opcion Hacer 1: Total<-Dh*1500; Escribir "Paciente:", Nombre; Escribir "Dias Hospitalizado:", Dh; Escribir "Tipo de Enfermedad:", Opcion; Escribir "Total a Pagar", Total; 2: Total<-Dh*1700; Escribir "Paciente:", Nombre; Escribir "Dias Hospitalizado:", Dh; Escribir "Tipo de Enfermedad:", Opcion; Escribir "Total a Pagar", Total; 3: Total<-Dh*1900; Escribir "Paciente:", Nombre; Escribir "Dias Hospitalizado:", Dh; Escribir "Tipo de Enfermedad:", Opcion; Escribir "Total a Pagar:", Total; FinSegun Si Opcion>3 Entonces Escribir "Error, cierre y vuelva abrir el programa" FinSi Escribir "¿Desea Continuar?"; Leer Continuar FinMientras Escribir “Gracias por usar Una pagina y un programa desarrollado por Omar Web Technology”;
FinProceso Ejercicio 6.Proceso contador N<-0; contador<-0; sumador<-0; Mientras contador<=8 Hacer contador<-contador+2; sumador<-sumador+contador; FinMientras Escribir "El valor de los numeros impares es:", sumador;
7
FinProceso
FinProceso
Ejercicio 7.Proceso positivos_y_se_detiene_en_negativos numero<-0; contador<-0; Escribir "Ingrese el numero"; Leer numero; Mientras numero>0 Hacer contador<-contador+1; Escribir "Ingrese el numero"; Leer numero; FinMientras Escribir "El numero es:", contador; FinProceso
Ejercicio 10.Proceso empresa_arreglos Dimension Obrero (200); Escribir "Ingrese el precio del salario pagado por horas trabajadas"; Leer Sph; Escribir "ingrese la Cantidad de Obreros de su empresa"; Leer Cant_obreros; Para i<-1 Hasta Cant_obreros Hacer Escribir "Ingrese el nombre del Obrero"; Leer Obrero (i); Escribir "Ingrese la cantidad de horas trabajadas"; Leer Ht; Si Ht>40 y Ht<=48 Entonces Tp<-Sph^2*Ht; Escribir "El nombre del trabajador::",i; Escribir " ", Obrero(i); Escribir "El precio a pagar por horas extras es de:", Tp; FinSi Si Ht>48 Entonces Tp<-Sph^3*Ht; Escribir "El nombre del trabajador::",i; Escribir " ", Obrero(i); Escribir "El precio a pagar por horas extras es de:", Tp; FinSi Si Ht<=40 Entonces Tp<-Sph*Ht; Escribir "El nombre del trabajador::",i; Escribir " ", Obrero(i); Escribir "El precio a pagar es de:", Tp; FinSi FinPara Escribir "Gracias por Usar un programa desarrollado por Omar Landaeta"; FinProceso
Ejercicio 8.Proceso Vectores Dimension V1(500), V2(500) Escribir "Por favor ingrese la cantidad de vectores a almacenar" Leer Cant_vect; Para i<-1 Hasta Cant_vect Hacer Escribir "Ingrese el valor del vector", i; Leer V1 (i); FinPara Para i<-1 Hasta Cant_vect Hacer V2(i)<- V1(i)^2; Escribir "El valor al cuadrado de la posicion:", i; Escribir "Es de:", V2(i); Escribir "Y el valor Original es de:", V1(i); FinPara Escribir "Gracias por Usar un programa desarrollado por Omar Landaeta"; FinProceso Ejercicio 9.Proceso Ecuación_d_ Segundo_grado Escribir "Bienvenido, por favor ingrese un valor para a"; Leer a; Escribir "Ahora ingrese un valor para b"; Leer b; Escribir "Ingrese un valor para c"; Leer c; J<- b^2-(4*a*c); Si J<0 Entonces Escribir "No procesa"; Sino X1<- -b + RC (J)/2*a; X2<- -b - RC (J)/2*a; Escribir "El Valor de X1 es:", X1; Escribir "El Valor de X2 es:", X2; FinSi
8
