VISUAL BASIC Fórmula General
Bk-Girl
19 de Noviembre del 2008
Hola!!!, necesito ayuda, necesito programar la fórmula General , si alguien sabe comuniquese conmigo
x favor,
salu2
x favor,
salu2
concepcion
19 de Noviembre del 2008
necetito su ayuda para necesito saver como rerolver una formula general para ecuaciones
edgarinvillegas
19 de Noviembre del 2008
Busquen el metodo de Newton-Rapson, resuelve cualquier ecuación, busquen en internet que hay bastante.
Pero una formula "general" (con ese nombre) no existe igual me dejó en bolas cuando lei
Pero una formula "general" (con ese nombre) no existe igual me dejó en bolas cuando lei
tenaxluis
19 de Noviembre del 2008
Dim a, b, c, d, x1, x2 As Integer
Private Sub Command1_Click()
d = (b ^ 2 - 4 * a * c) ^ (1 / 2)
If (d < 0) Then
Print "Raiz Imaginaria"
If (d > 0) Then
x1 = ((-b + (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text4.Text = x1
x2 = ((-b - (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text5.Text = x2
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
a = CInt(Text1.Text)
End Sub
Private Sub Text2_Change()
b = CInt(Text2.Text)
End Sub
Private Sub Text3_Change()
c = CInt(Text3.Text)
End Sub
Private Sub Text4_Change()
x1 = ((-b + (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text4.Text = x1
End Sub
Private Sub Text5_Change()
x2 = ((-b - (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text5.Text = x2
End Sub
Private Sub Command1_Click()
d = (b ^ 2 - 4 * a * c) ^ (1 / 2)
If (d < 0) Then
Print "Raiz Imaginaria"
If (d > 0) Then
x1 = ((-b + (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text4.Text = x1
x2 = ((-b - (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text5.Text = x2
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
a = CInt(Text1.Text)
End Sub
Private Sub Text2_Change()
b = CInt(Text2.Text)
End Sub
Private Sub Text3_Change()
c = CInt(Text3.Text)
End Sub
Private Sub Text4_Change()
x1 = ((-b + (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text4.Text = x1
End Sub
Private Sub Text5_Change()
x2 = ((-b - (b ^ 2 - 4 * a * c)) ^ (1 / 2)) / 2 * a
Text5.Text = x2
End Sub
Ezequiel
19 de Noviembre del 2008
Perdon por mi ignorancia, pero formula general de que?
Rafa
19 de Noviembre del 2008
Creo que esa la necesitamos todos...debe ser algo asi como la piedra filosofal ¿no?
Norma
23 de Abril del 2010
no sean idiotas.....! la formula general es...:
menos(-)b mas(+) menos (-) la raiz de de b cuadrada (b2) menos 4 ac -todo eso sobre dos a-
menos(-)b mas(+) menos (-) la raiz de de b cuadrada (b2) menos 4 ac -todo eso sobre dos a-
leo
23 de Abril del 2010
no que tristeza responder despues de 4 años..
