Programación de ecuaciones en Vb
Marcar a, b, c, d, e, f como cadenas
Marcar X e Y como doble precisión
Subcomando privado 1_Click( )
A = Val(InputBox("Ingrese el coeficiente a1 de la primera ecuación Coeficiente b1 de la primera ecuación Y (el valor predeterminado se reemplaza por 0):")
C = Val(InputBox( "Ingrese el término constante de la primera ecuación, c1 (el valor predeterminado se reemplaza por 0):" )
D = Val(InputBox("Ingrese el coeficiente a2 de la segunda ecuación El coeficiente b2 de la segunda ecuación Y (reemplazada por 0 de forma predeterminada):")
F = Val(InputBox("Ingrese el término constante c2 de la segunda ecuación (reemplazada por 0 de forma predeterminada):" )
Si a = d, b = e, c & lt& gtfEntonces
MsgBox "La ecuación original no tiene solución"
Si no, Si a = 0, b = 0, c & lt& gt0 y d & lt& gt0 y e & lt& gt0 y f & lt& gt entonces 0
MsgBox "La ecuación original no tiene solución"
ElseIf a & lt& gt0 y b & lt& gt0 y c & lt& gt0 y d = 0 y e = 0 y f & lt& gt entonces 0
MsgBox "La ecuación original no tiene solución"
ElseIf (a / d ) = (b / e) Entonces
MsgBox "La ecuación original no tiene solución"
En caso contrario, a = d, b = e, c = f
MsgBox "La ecuación original no tiene solución"
ElseIf a = 0, b = 0, c = 0, d & lt& gt0 y e & lt& gt0 y f & lt& gt entonces 0
MsgBox "La ecuación original no tiene solución"
ElseIf a & lt& gt0 and b & lt& gt0 and c & lt& gt0, d = 0, e = 0, f = 0
MsgBox "Original La ecuación no tiene solución"
ElseIf a = 0 y b & lt& gt0 y c & lt& gt0 y d = 0 y e & lt& gt0 y f & lt& gt entonces 0
MsgBox" La ecuación original no tiene solución"
ElseIf a & lt& gt0 y b = 0 y c & lt& gt0 y d & lt& gt0 y e = 0 y f & lt& gttthen 0
MsgBox "La ecuación original no tiene solución"
Otros
X = (c*e - b*f) / (a* e - b * d)
Y = (c * d - a * f) / (b * d - a * e)
MsgBox La solución del sistema de ecuaciones original es: x = " &; X & amp, Y = " & ampY & amp. "
Terminará si...
Finalizar conector