Advertisement
xNatural

18.04.2017

Apr 18th, 2017
254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.34 KB | None | 0 0
  1. //actividad
  2.  
  3. Proceso sin_titulo
  4. Definir edad como entero;
  5. Definir nombre,direccion,sexo como caracter;
  6. Escribir "ingrese un nombre.";
  7. Leer nombre;
  8. mientras Longitud(nombre) <= 2 hacer
  9. Escribir "Ingrese un nombre .minimo 3 caracteres.";
  10. Leer nombre;
  11. FinMientras
  12.  
  13. Escribir "edad (entre 0 y 130)";
  14. Leer edad;
  15. Mientras edad < 0 || edad > 130 hacer
  16. Escribir "edad no valida";
  17. Leer edad;
  18. FinMientras
  19.  
  20. Escribir "seleccione un sexo (masculino y femenino)";
  21. Leer sexo;
  22. sexo = minusculas(sexo);
  23. Mientras sexo != Minusculas("masculino") && sexo != minusculas("femenino") hacer
  24. Escribir "Sexo no disponible xdxdXD";
  25. Leer sexo;
  26. FinMientras
  27.  
  28. Escribir "ingrese su direccion";
  29. Leer direccion;
  30. Escribir direccion;
  31. FinProceso
  32.  
  33.  
  34.  
  35. //
  36.  
  37. Proceso sin_titulo
  38. Definir numero1,numero2,numero3 Como Entero;
  39. numero1 = 0;
  40. numero2 = 0;
  41. numero3 = 0;
  42.  
  43. mientras numero1 < 13 hacer
  44. Escribir numero1;
  45. Escribir numero2;
  46. Escribir numero3;
  47. numero1 = numero1 + 1;
  48. numero2 = numero1 * numero2 + numero3;
  49. numero3 = numero2 + numero1;
  50. FinMientras
  51.  
  52. Escribir "se salio del ciclo";
  53.  
  54. FinProceso
  55. //
  56.  
  57. Proceso sin_titulo
  58. Definir numero1 Como Entero;
  59. numero1 = 0;
  60.  
  61. mientras numero1 < 10 hacer
  62. Escribir numero1;
  63. numero1 = numero1 + 1;
  64. FinMientras
  65.  
  66. Escribir "se salio del ciclo";
  67.  
  68. FinProceso
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement