Advertisement
xNatural

sin terminar

May 11th, 2017
245
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.35 KB | None | 0 0
  1. Proceso sin_titulo
  2. Definir cantidad,contador,validadorSexo,edad,mas35,hm65,mm18 Como Entero;
  3. Definir nombre,sexo como caracter;
  4. contador = 0;
  5. nombre = "";
  6. cantidad = 0;
  7.  
  8. Mientras cantidad < 3 || cantidad > 10 hacer
  9. Escribir "Ingrese un numero de personas entre 3 y 10.";
  10. Leer cantidad;
  11. Limpiar Pantalla;
  12. FinMientras
  13.  
  14. Mientras contador != cantidad hacer
  15. Escribir "Persona numero: ",contador;
  16. //nombre minimo 4 caracteres
  17. Escribir "Ingrese su nombre completo.";
  18. Leer nombre;
  19. Mientras longitud(nombre) < 4 hacer
  20. Escribir "Ingrese su nombre completo.";
  21. Leer nombre;
  22. FinMientras
  23.  
  24. //sexo 'f' o 'm'
  25. sexo = "";
  26. validadorSexo = 0;
  27. Mientras validadorSexo == 0 hacer
  28. Si sexo == "M" || sexo == "F" entonces
  29. validadorSexo = validadorSexo + 1;
  30. Sino
  31. Escribir "Ingrese la primera letra de su sexo: m(masculino) o f(femenino)";
  32. Leer sexo;
  33. sexo = Mayusculas(sexo);
  34. FinSi
  35. FinMientras
  36. //edad 0 y 200
  37. edad = -1;
  38. Mientras edad < 0 || edad > 200 hacer
  39. Escribir "Ingrese su edad.";
  40. Leer edad;
  41. Si edad > 35 && edad < 201 entonces
  42. mas35 = mas35 + 1;
  43. FinSi
  44. FinMientras
  45. contador = contador + 1;
  46. Si sexo ==
  47. FinMientras
  48.  
  49. Escribir "Personas mayores de 35 años: ",mas35;
  50. Escribir "Mujeres menores de 18: ",mm18;
  51. Escribir "Hombres mayores de 65: ",hm65;
  52. FinProceso
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement