Algoritmia - kramer

Inicio

// Ingreso de coeficientes y términos constantes del sistema de ecuaciones

Leer a, b, c, d, e, f, g, h, i, j, k, l

// Calcular el determinante principal (D) del sistema

D = a * (e * k - f * j) - b * (d * k - f * i) + c * (d * j - e * i)

// Verificar si el determinante principal es diferente de cero

Si D <> 0 Entonces

    // Calcular los determinantes Dx, Dy y Dz para el método de Cramer

    Dx = d * (e * k - f * j) - g * (b * k - f * i) + h * (b * j - e * i)

    Dy = a * (g * k - h * j) - b * (d * k - h * i) + c * (d * j - g * i)

    Dz = a * (e * l - f * k) - b * (d * l - f * j) + c * (d * k - e * j)

    // Calcular las soluciones x, y, z utilizando los determinantes parciales

    x = Dx / D

    y = Dy / D

    z = Dz / D

    // Mostrar las soluciones

    Escribir "Soluciones del sistema:"

    Escribir "x =", x

    Escribir "y =", y

    Escribir "z =", z

Sino

    // Mostrar un mensaje indicando que el sistema no tiene solución única

    Escribir "El sistema no tiene solución única (Determinante principal D = 0)."

Fin Si

Fin