Programación en Vb, escriba un programa para resolver una ecuación cuadrática de una variable y determinar si la ecuación tiene raíces.
Private Sub Command1_Click()
Atenuar a#, b#, c#, d#, x1#, x2#
a = Val(InputBox("a=", "Cuadro de entrada de datos", 1))
b = Val(InputBox("b=","
c = Val(InputBox("c=", "Cuadro de entrada de datos", 1))
Si a = 0 Entonces
Si b = 0 Entonces
Si c = 0 Entonces Imprima "Resolver: x tiene infinitas soluciones" De lo contrario Imprima "x no tiene solución "
Else
Imprimir "Solución: x=" & -c / b
Finalizar si
Else
d = b * b - 4 * a * c
Si d > 0 Entonces
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Imprimir "Solución: x1=" & x1,
Imprimir " x2 =" & x2
De lo contrario
x1 = -b / (2 * a)
Si d = 0 Entonces imprima "Solución: x=" & x1 <
Si d < 0 Entonces
Imprimir "Sin raíz real"
Finalizar si
Finalizar si
Fin si
Fin si
Fin si
Fin Sub.