Pages

lunes, 21 de enero de 2013

Calcular raíces de una ecuación cuadrática Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que calcule las raíces de una ecuación de segundo grado (ax²+bx+c=0).

Solución
  • Entrada: 1 0 9
  • Salida: 3 y -3
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim disc, a, b, c, X1, X2 As Double
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        disc = Math.Pow(b, 2) - 4 * a * c
        If (a <> 0) Then
            If ((disc) < 0) Then
                TextBox4.Text = "Tiene raices imaginarias"
            Else
                X1 = (-b + (Math.Sqrt(disc))) / (2 * a)
                X2 = (-b - (Math.Sqrt(disc))) / (2 * a)
                TextBox4.Text = "La raices son X1 = " +
                    Trim(X1) + " X2 = " + Trim(X2)
            End If
        Else
            TextBox4.Text =
        "coeficiente cuadratico debe ser diferente de cero"
        End If
    End Sub
End Class

3 comentarios:

Anónimo dijo...

una pregunta que me urge mucho, corri tu programa .exe y veo que en tu label4 puedes hacer que te de el resultado y aparte que diga que la raiz es imaginaria, que codigo pusiste para poder hacer que en ese label salga el resultado . porfas me urge mucho. mil gracias :)

Anónimo dijo...

hola

Anónimo dijo...

de aqui del cetys hermano sube mas de esos programas parcero

Publicar un comentario en la entrada