Algoritmo

Contenido
Eliminación de gauss
Para obtener la solución de un sistema de ecuaciones lineales Ax=b y el determinante de A, proporcionar los
Datos: Nnúmero de ecuaciones, A matriz coeficientes y b vector de términos independientes.
Resultados: el vector solución x y el determinante de A o mensaje de falla“hay un cero en la diagonal principal”.

PASO 1. Hacer DET =1
PASO 2. Hacer I=1
PASO 3. Mientras I<=N-1, repetir los pasos 4 a 14
PASO 4. Hacer DET=DET* A(I,I)
PASO 5. Si DET = 0 IMPRIMIR mensaje “hay un cero en la diagonal principal” y terminar. De otro modo continuar
PASO 6. Hacer K= I+1
PASO 7.Mientras K <=N, repetir los pasos los pasos 8 a 13.
PASO 8. Hacer J=I+1
PASO 9. Mientras J <= N, repetir los pasos 10 y 11
PASO 10. HacerA(K,J)=A(K,J)-A(K,I)*A(I,J)/A(I,I).
PASO 11. Hacer J = J + 1.
PASO 12. Hacer b(K) = b(K)-A(K,I)*b(I)/A(I,I).
PASO 13. Hacer K = K + 1
PASO 14.Hacer I = I +1
PASO 15. Hacer DET = DET * A (N,N).
PASO 16. Si DET= 0 IMPRIMIR mensaje “HAY UN CERO EN LA DIAGONAL PRINCIPAL” y .TERMINAR. De otro modo continuar.
PASO 17. Hacer x (N) = b (N) / A (N,N).
PASO 18. Hacer I =N – 1
PASO 19. Mientras I>=1, repetir lospasos 20 a 26
PASO 20. Hacer x (I) = b (I).
PASO 21. Hacer J = I + 1.
PASO 22. Mientras J<= N, repetir los pasos 23 y 24.
PASO 23. Hacer x (I) = x(I)- A (I,J)* x(J).
PASO 24. Hacer J= J+1
PASO 25. Hacer x (I) = x (I)/ A (I,J).
PASO 26. Hacer I = I-1
PASO 27. IMPRIMIR x y DET y TERMINAR