PRINCIPIO DE ALGORITMO ESTRUCTURAS CONDICIONALES Practica N°04 APELLIDOS Y NOMBRES: VALENCIA PAIVA, Olger Guido 1. Digite el nombre del cliente y su importe de compra, en caso que su importe sea 150 o más, se le descontará el 12%. Mostrar el descuento otorgado y el importe de compra final. Seudocódigo Proceso DESCT_Impor definir nomb como caracter Definir impor,desct,IMPF Como Real Escribir "digite nombre"; leer nomb escribir "ingrese importe"; leer impor si impor>=150 entonces desct<-(impor*0.12) IMPF<-impor-(impor*0.12) sino desct=0 IMPF=150 FinSi Escribir nomb " su descuento es: ",desct; escribir nomb " su importe final es:",IMPF; FinProceso
2. Ingrese el nombre de un alumno y las notas de su examen parcial, examen final y el promedio de prácticas; muestre el nombre del alumno y su promedio final solo si el alumno está aprobado. Tenga en cuenta que para el cálculo del promedio la nota del examen final tiene peso doble. Seudocódigo Proceso ALUM_APRO definir nomb Como Caracter
definir EXPA,EXF,PP,PF Como Real escribir "ingrese nombre"; leer nomb escribir "digite nota de examen parcial "; leer EXPA escribir "digite nota de examen final"; leer EXF escribir "digite nota de promedio de practicas"; leer PP PF<-(EXPA*0.25)+(PP*0.25)+(EXF*0.5) si PF>=11.5 entonces escribir nomb " su promedio final es ",PF; Sino Escribir nomb "UD.esta desaprobado "
FinSi FinProceso
3. Digite dos números enteros diferentes, muestre el mayor. Seudocódigo Proceso mayormenor definir NUM1,NUM2 Como Entero escribir "digite primer numero:"; leer NUM1 escribir "digite segundo numero:"; leer NUM2 si NUM1
4. Ingrese el nombre del trabajador, su sueldo básico y el número de hijos, se deberá mostrar su bonificación y el sueldo final. Tenga en cuenta que la empresa está dando una bonificación del 7% del sueldo básico sólo en el caso el trabajador tuviese hijos. Seudocódigo Proceso bono_hijo Definir nomb Como Caracter Definir SB,BON Como Real Definir NH como entero Escribir "ingrese su nombre"; leer nomb escribir "digite su sueldo"; leer SB escribir "ingrese numero de hijos"; leer NH si NH>0 entonces ST<-SB+(SB*0.07) BON<-(SB*0.07) escribir nomb "su sueldo final es: ",ST; Escribir nomb " su bono es: ",BON; sino BON=0 Escribir nomb "su sueldo final es ",SB; Escribir nomb "su bono es ",BON; FinSi FinProceso
5. Digite un número natural, en caso sea superior 100 se mostrará su 30% de no ser así visualice su 150%. Seudocódigo Proceso porcentajee definir NUMN como real definir PORC como real Escribir "ingrese numero natural"; leer NUMN si NUMN>100 entonces PORC<-(NUMN*0.3) escribir " el porcentaje es ",PORC; Sino PORC<-(NUMN*1.5) Escribir " el porcentaje es ",PORC; FinSi FinProceso
6. Digite un numero entero y muestre el mensaje “par positivo” o “par negativo” según sea el caso Seudocódigo Proceso PositivoNegativo definir Num Como entero Escribir "digite numero" Leer Num si Num<0 Entonces escribir "el numero es par negativo" sino escribir "el numero es par positivo" FinSi FinProceso
7. Ingrese por teclado un número natural de hasta 2 cifras, si tiene una cifra muestre lo mínimo que le falta para ser un número de 2 cifras; de lo contrario muestre lo mínimo que le falta para ser un número de 3 cifras. Seudocódigo Proceso doscifras definir NUMN, DC como real escribir "ingrese numero natural"; leer NUMN si NUMN>9 entonces DC<- 100-NUMN escribir "lo que falta para tener tres cifras es: ",DC; sino DC<- 10-NUMN Escribir "lo que falta para tener dos cifras es:",DC; FinSi FinProceso
8. Digite el nombre del cliente, la cantidad en soles a cambiar y el tipo de moneda a la que se desea cambiar, en este caso sólo será dólares o euros, se deberá visualizar la cantidad en la moneda extranjera cambiada. Tenga en cuenta el siguiente tipo de cambio $1 = S/ 2.5 y €1 = S/ 3.85. Seudocódigo Proceso cambiodolar Escribir "Ingrese el nombre del cliente:"; Leer nombre_del_cliente; Escribir"Ingrese el valor de soles:"; Leer soles; Escribir "Seleccione el valor de tipo de cambio.";
Escribir " 1.- dolares"; Escribir " 2.- euros"; Leer tipo_de_cambio; Si tipo_de_cambio=1 O tipo_de_cambio=2 Entonces cantidad <- soles/2.5; SiNo cantidad <- soles/3.85; FinSi Escribir "nombre del cliente: ", nombre_del_cliente; Escribir "Valor de cantidad: ", cantidad; FinProceso
9. Ingrese el nombre del trabajador, la cantidad de horas trabajadas y el valor de la hora normal. Muestre la cantidad de horas extras y el pago del trabajador. Tenga en cuenta que el valor de la hora extra es 50% más que el valor de la hora normal y que el trabajo es de lunes a sábado. Seudocódigo Proceso salario Escribir "digite nombre del empleado"; Leer e; Escribir "digite numero de horas trabajadas"; Leer h; Si h>=40 Entonces h<-h+(h*0.5) Sino FinSi Escribir "Digite el valor de la hora trabajada"; Leer v; sal<-(h*v); Escribir "empleado " ,e, " Su salario es: ",sal,"" ; FinProceso
10. Ingrese un número natural de dos cifras y muestre el mensaje “Es capicúa” o “No es capicúa” según sea el caso. Seudocódigo Proceso capicua Escribir "ingrese numero de 2 cifras" leer num; uni<-num mod 10; dec<-trunc(num/10); si uni=dec Entonces Escribir "es capicua"; Sino escribir "no es capicua"; FinSi FinProceso
11. Calcular el pago semanal de un trabajador. Los datos a ingresar son: total de horas trabajadas y el pago por hora. Si el total de horas trabajadas es mayor a 40 la diferencia se considera como horas extras y se paga un 50% más que una hora normal. Si el sueldo bruto es mayor a s/. 500.00, se descuenta un 10% en caso contrario el descuento es 0.
Seudocódigo Proceso salarios Definir HTT, HE Como Entero Definir pagosem, PHE,PHT, sueldobruto,desc Como Real Escribir "ingrese las horas que ha trabajado esta semana" leer HTT PHT<-500/40 PHE<-(500/40)*1.5 sueldobruto<-(PHT*HTT)+(PHE*HE) Si HTT>40 Entonces HE<-HTT-40 Sino HE<-0 Fin Si Si sueldobruto>500 Entonces pagosem<-sueldobruto-0.1*sueldobruto Sino pagosem<-sueldobruto FINSI escribir "su pago semanal es:" ,pagosem FinProceso
12. Se pide leer tres notas del alumno, calcular la nota definitiva en un rango de 0 a 20 y enviar un mensaje donde diga si el alumno aprobó o reprobó el curso. Seudocódigo Proceso notadef definir not1,not2,not3 como real definir def Como Real Escribir "ingrese notas"; leer not1,not2,not3 def<-(not1+not2+not3)/3 si def < 11 entonces escribir "reprobo curso" sino Escribir "aprobo el curso" FinSi FinProceso
13. Un vendedor recibe una comisión de 10% de la venta hechas si ésta fue al menos S/10000 y 8.5% en caso contrario. Haga un algoritmo que muestre lo que obtiene un vendedor por Comisión. Seudocódigo Proceso comision definir ven,co Como Real escribir "ingrese monto de venta"; leer ven; si ven>=10000 entonces co<-ven*0.1 sino co<-ven*0.085 FinSi Escribir "monto por comision es ",co; FinProceso
14. Hacer un programa que muestre, de 3 notas de un alumno, cuántas tiene aprobadas y cuántas desaprobadas. Seudocódigo Proceso aprobados Escribir "ingrese notas"; leer not1,not2,not3 aprob=0 desaprob=0 si not1>=11.5 entonces CA=aprob+1 Sino CD=desaprob+1 FinSi
si not2>=11.5 entonces CA=CA+1 Sino CD=CD+1 FinSi si not3>=11.5 Entonces CA=CA+1 Sino CD=CD+1 FinSi Escribir "aprobados ",CA; Escribir "desaprobados ",CD; FinProceso
15. Una empresa de seguros asegura una casa ante desastres cobrando una prima anual de acuerdo al valor de la casa. Para los primeros $25000 cobra el 3% del valor y para el valor restante 5%. Por ejemplo, si una casa está valorizada en $ 30000, cobrará 3% sobre los $25000 y 5% al resto, es decir 5% a $ 500. Haga un programa que muestre el monto que un cliente debe pagar por asegurar su casa. Descarte casas con valores superiores a los $ 100000. Seudocódigo
Proceso aseguradora definir VC,R,II,IR,CT Como Real escribir "ingrese valor de la casa no mas de 100K"; leer VC I=25000 R<-VC-I II<-I*0.03 escribir "el interes inicial es ",II; IR<-R*0.05
escribir "el interes restante es ",IR; CT<-II+IR escribir "el cobro por asegurar es ",CT;
FinProceso
16. Haga un algoritmo que calcule la velocidad de un móvil, pudiendo el espacio estar en metros o kilómetros y el tiempo en horas o segundos. El resultado debe mostrarlos en Km/h o m/s. Proceso velocidad definir v,unidad_dist,unidad_tiemp Como Real //Escribir "Ingrese el nombre del cliente:"; Escribir "Seleccione la unidad de distancia."; Escribir " 1.- km"; Escribir " 2.- m"; Leer unidad_dist; Escribir"Ingrese el valor de distancia:"; Leer dist; escribir "seleccione la unidad de tiempo"; escribir " 1.- hrs"; escribir " 2.- segundos"; leer unidad_tiemp escribir "ingrese el valor del tiempo:"; leer tiemp Si unidad_dist=1 O unidad_dist=2 Entonces si unidad_tiemp=1 o unidad_tiemp=2 entonces v <- dist/tiemp; FinSi finsi si unidad_dist=1 y unidad_tiemp=1 entonces escribir "la velocidad es ",v " km/h"; finsi si unidad_dist=1 y unidad_tiemp=2 Entonces v<-dist/(tiemp/3600) escribir "la velocidad es ",v " km/h"; FinSi si unidad_dist=2 y unidad_tiemp=1 Entonces
v<- dist/(tiemp*3600) escribir "la velocidad es ",v " m/s";
FinSi si unidad_dist=2 y unidad_tiemp=2 Entonces v<- dist/tiemp escribir "la velocidad es ",v " m/s"; FinSi FinProceso
17. Hacer un algoritmo que muestre la suma, la resta, la división y la multiplicación de dos números. En el caso de la resta, se debe restar siempre el número menor del mayor. En el caso de la división, no se podrá efectuar si el segundo número es 0.
Proceso operaciones_basicas Definir A,B como entero definir S,R,M,D Como Real
Escribir "digite los numeros"; leer A,B S<-A+B M<-A*B R<-A-B si A
Escribir "la suma es ",S; Escribir "el producto es ",M; Escribir "la resta es ",R; Escribir "la division es ",D; FinProceso
18. Hacer un algoritmo que imprima el nombre de un artículo, clave, precio original y su precio con descuento. El descuento lo hace en base a la clave, si la clave es 01 el descuento es del 10% y si la clave es 02 el descuento en del 20% (solo existen dos claves). Proceso articulo_n Escribir "Nombre articulo"; leer art escribir "clave del articulo 01 o 02"; leer clav Escribir "precio original del articulo"; leer pre si clav=01 entonces desc<-pre-(pre*0.1) Sino desc<-pre-(pre*0.20) FinSi Escribir "nombre del articulo ", art; Escribir "clave del articulo ",clav; Escribir "precio original del articulo ",pre; escribir "precio con descuento ",desc; FinProceso
19. Leer 2 números; si son iguales que los multiplique, si el primero es mayor que el segundo que los reste y si no que los sume. Proceso leernumeros Escribir "Introduzca 2 numeros" leer num1,num2 si num1=num2 Entonces resul<-num1*num2 Sino si num1>num2 Entonces resul<-num1-num2; Sino resul<-num1+num2; FinSi FinSi escribir " el resultado es:",resul FinProceso
20. En el curso de algorítmica se tiene el siguiente ponderado de promedio final: PF = Pexamenes * 50% + PPrácticas + Pactitudinal * 10% Por la presentación de 3 a 4 trabajos tienen 1 punto más en el promedio final y si presentó entre 5 y 6 la bonificación es de dos puntos y si realizó más de 7 trabajos la bonificación es de 3 puntos. Realizar un algoritmo que permita calcular el promedio final. Proceso promedio_final
definir PE,PP,PA,TP como entero definir prom,PF como real escribir " ingresar valor de promedio de examenes"; leer PE escribir "ingresar valor de promedio de paracticas"; leer PP escribir "ingresar valor de promedio actitudinal"; leer PA escribir "ingresar numero de trabajos presentados"; leer TP prom<-(PE*0.5)+(PP*0.4)+(PA*0.1) si TP>=3 o PT<=4 entonces PF<- prom +1 finsi si TP>=5 o PT<=6 entonces PF<- prom +2 FinSi si TP>7 Entonces PF<- prom +3 FinSi escribir "el promedio final es ",PF; FinProceso
