Ejerciio de computacion 2
- 1. 1) Clasificar a 50 personas la edad y el sexo al final deberá visualizar la calidad de personas masculinas mayores de edad, cantidad de personas mayores y menores. Además deberá indicar el porcentaje que representa la persona mayores y menores de edad. INICIO Clasificar Variable Edad= entero; P=entero; Sexo=carácter; Masculino-mayor:= entero; Femenina-menor:= entero; Persona-mayor:= entero; Persona-menor:= entero; Porcentaje-mayor:= real; Porcentaje-menor:= real; Inicialización P:=1; Edad:=0 Sexo.= “ * ; Masculino-mayor:=0; Femenino-menor:=0; Persona- mayor:=0; Persona-menor:=0; Porcentaje-mayor:=0 Porcentaje-menor:=0 Repita P= “1” hasta P=”50”1 Escriba (“Introduzca la edad”); Leer (“edad”); Escribir (“Introduzca el sexo”); Leer (“sexo”); Inicia si (“edad”) >=18 y (sexo):= “M” entonces; Masculino-mayor;=( masculino-mayor+1); si no si (edad)< ”18” y (sexo);= “F” entonces; Femenina-menor;=( Femenina-menor+1); Fin si Inicio Si (edad) ≥ ‘18’ Entonces; Persona-Mayor:=(Persona-Mayor + 1); Si no Persona-Menor:=(Persona-Menor + 1); Fin P:= (P + 1) Fin Porcentaje-Mayor:=((Persona-Mayor/50)*100); Porcentaje-Menor:=((Persona-Menor/50)*100); Imprimir (‘total de persona masculinas mayores de edad es’, Masculino-Mayor); Imprimir (‘total de personas femeninas menores de edad es’, Femenino-Menor);
- 2. Imprimir (‘total personas mayores es’, Persona-Mayor); Imprimir (‘total persona menores es’, Persona-Menor); Imprimir (‘porcentaje personas mayores es’, Porcentaje-Mayor); Imprimir (‘Porcentaje personas menores es’, Porcentaje-Menor); Fin . 2) Calcular todos los pagos hechos de un restaurante que lea 130 consumos y que si el consumo ingresado excede los bs 200 el descuento será del 15% Inicio algoritmo pago Variables Pago= Reales; Consumo= Entero; Pago total= Real; Inicio Pago:=0; Consumo:=0; Pago Total:=0; Hacer mientras (consumo) ≤’130’ ; Escribir (‘escribir pago’); Leer(pago); Consumo :=(consumo + 1); Descuento:=0; Si pago ≥ ‘200’ entonces; Descuento:= (pago * 0.15); Pago total:= (pago – descuento); Si no Pago total:= (Pago); fin sino Fin si Imprimir :=(pago total); Fin