7.3 Método de intercalación 173 Algoritmo Orden_filas entero n, i, j ,lugar real A[1000,1000], min, aux inicio Leer (n, m) ! dimensiones de la matriz Repetir Para i 1, n Repetir Para j 1,m Leer (A[i,j]) finpara finpara ! Comienza el ordenamiento Repetir Para i 1, n-1 ! i es la fila a ordenar min A[i,1] lugar i Repetir Para j i+1, n Si (A[j,1] < min) entonces min A[j,1] ! cambiar el mínimo lugar j ! posición del mínimo finsi finpara Repetir Para j1, m ! intercambiar toda la fila aux A[i,j] A[i,j] A[lugar,j] A[lugar,j] aux finpara finpara Repetir Para i 1, n Repetir Para j 1, m Escribir (A[i,j]) finpara finpara Fin
Created with BuildVu