leer varios números desde inputbox
Publicado por Alejandro Caro (11 intervenciones) el 29/05/2011 19:00:46
ejercicio.
Escriba un código para un algoritmo que encuentre las raices reales de la ecuación de segundo grado:
ax2 + bx + c = 0, donde a, b y c son valores leídos de la entrada.
Tengo dos preguntas: Una es como hago para que visual basic lea esos tres números y los almacene en la memoria y concatene esos valores con la cadena de texto print.
Escriba un código para un algoritmo que encuentre las raices reales de la ecuación de segundo grado:
ax2 + bx + c = 0, donde a, b y c son valores leídos de la entrada.
Tengo dos preguntas: Una es como hago para que visual basic lea esos tres números y los almacene en la memoria y concatene esos valores con la cadena de texto print.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim x1, x2, a, b, c, d, quadratic As Integer
d = InputBox("Ingrese a b c:")
'como hago para que visual basic lea esos tres números y los almacene en la memoria
quadratic = ((b ^ 2) - 4) * a * c
If (Sqr(quadratic) >= 0) Then
x1 = (-b + Sqr(quadratic) / 2 * a)
x2 = (-b - Sqr(quadratic) / 2 * a)
Else
x1 = x2 = (-b / 2 * a)
End If
Print ("Los valores de x1 y x2 son:" & f & f) ' como hago para que agregue los valores en este print
If (Sqr(quadratic) < 0) Then
Print (f & f & "son complejos.")
End If
End Sub
Valora esta pregunta
0
