API tools faq
paste
Advertisement
xNatural

22 06 2017 algoritmo

xNatural
Jun 22nd, 2017
250
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.23 KB | None | 0 0
raw download clone embed print report
  1. subproceso ordenamiento(dim_elementos por referencia , largo)
  2. Definir valortemporal, indice, x_indice como entero;
  3. valortemporal = 0;
  4.  
  5. para indice = 0 hasta (largo-1) con paso 1 hacer
  6. para x_indice = 0 hasta (largo-1) con paso 1 hacer
  7. si x_indice != 0 entonces
  8. si dim_elementos[x_indice - 1] > dim_elementos[x_indice] Entonces
  9. valortemporal = dim_elementos[x_indice];
  10. dim_elementos[x_indice] = dim_elementos[x_indice - 1];
  11. dim_elementos[x_indice - 1] = valortemporal;
  12. FinSi
  13. FinSi
  14. FinPara
  15. FinPara
  16.  
  17. finsubproceso
  18. Proceso procesoOrdenamiento
  19. Definir cantidad,elementos,i Como Entero;
  20.  
  21. Escribir "ingrese la cantidad de elementos";
  22. leer cantidad;
  23.  
  24. dimension elementos[cantidad];
  25.  
  26. para i = 0 hasta (cantidad-1) con paso 1 hacer
  27. elementos[i] = azar(1500)+1;
  28. Escribir Sin Saltar elementos[i],"| ";
  29. FinPara
  30. Escribir "";
  31. ordenamiento(elementos,cantidad);
  32.  
  33. Para i = 0 hasta (cantidad-1) con paso 1 Hacer
  34. si i == (cantidad - 1) entonces
  35. Escribir elementos[1];
  36. Sino
  37. Escribir Sin Saltar elementos[i],", ";
  38. FinSi
  39. FinPara
  40. FinProceso
  41.  
  42.  
  43. ---------------------
  44.  
  45. subproceso ordenamiento(dim_elementos por referencia , largo)
  46. Definir valortemporal, indice, x_indice como entero;
  47. valortemporal = 0;
  48.  
  49. para indice = 0 hasta (largo-1) con paso 1 hacer
  50. para x_indice = 0 hasta (largo-1) con paso 1 hacer
  51. si x_indice != 0 entonces
  52. si dim_elementos[x_indice - 1] > dim_elementos[x_indice] Entonces
  53. valortemporal = dim_elementos[x_indice];
  54. dim_elementos[x_indice] = dim_elementos[x_indice - 1];
  55. dim_elementos[x_indice - 1] = valortemporal;
  56. FinSi
  57. FinSi
  58. FinPara
  59. FinPara
  60.  
  61. finsubproceso
  62. Proceso procesoOrdenamiento
  63. Definir cantidad,elementos,i Como Entero;
  64.  
  65. Escribir "ingrese la cantidad de elementos";
  66. leer cantidad;
  67.  
  68. dimension elementos[cantidad];
  69.  
  70. para i = 0 hasta (cantidad-1) con paso 1 hacer
  71. elementos[i] = azar(1500)+1;
  72. Escribir Sin Saltar elementos[i],"| ";
  73. FinPara
  74. Escribir "";
  75. ordenamiento(elementos,cantidad);
  76.  
  77. Para i = 0 hasta (cantidad-1) con paso 1 Hacer
  78. si i == (cantidad - 1) entonces
  79. Escribir elementos[1];
  80. Sino
  81. Escribir Sin Saltar elementos[i],", ";
  82. FinSi
  83. FinPara
  84. FinProceso
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!