$$ [A|b] \xrightarrow{\text{Pivoteo + Triangulación}} [U|c] \xrightarrow{\text{Retrosustitución}} x $$
Leer A, b, n
Para k desde 1 hasta n-1 Hacer:
// --- PROCESO 1: PIVOTEO PARCIAL ---
Fila_Max = k
Para i desde k+1 hasta n Hacer:
Si (|A[i,k]| > |A[Fila_Max,k]|) Entonces Fila_Max = i
Si (Fila_Max != k) Entonces IntercambiarFilas(A, b, k, Fila_Max)
// --- PROCESO 2: TRIANGULACIÓN (ELIMINACIÓN) ---
Para i desde k+1 hasta n Hacer:
Factor = A[i,k] / A[k,k]
Para j desde k hasta n Hacer:
A[i,j] = A[i,j] - Factor * A[k,j]
Fin Para
b[i] = b[i] - Factor * b[k]
Fin Para
Fin Para
// --- PROCESO 3: RETROSUSTITUCIÓN ---
X[n] = b[n] / A[n,n]
Para i desde n-1 hasta 1 con paso -1 Hacer:
Suma = 0
Para j desde i+1 hasta n Hacer:
Suma = Suma + A[i,j] * X[j]
Fin Para
X[i] = (b[i] - Suma) / A[i,i]
Fin Para
Mostrar X