// Programa: Ecuación 2

// Autores: lidia y pablo

// Descripción: este programa nos muestra las soluciones de

// la ecuación de segundo grado, si es que existen

 

Program Ecuacion2

 

      Method Main()

 

            Var valora As Decimal

            Var valorb As Decimal

            Var valorc As Decimal

            Var valorx1 As Decimal

            Var valorx2 As Decimal

            Var discriminante As Decimal

           

            SetConsoleTextAlignment("center")

            ConsoleWriteLine("Vamos a resolver una ecuación de segundo grado de la forma:")

            ConsoleWriteLine("   a x^2 + b x + c = 0")

            ConsoleWriteLine("")

           

            valora=ConsoleReadDecimal("Introduzca el valor de a = ",True)

            While valora=0

                  ConsoleWriteLine("SI a ES CERO NO TENDREMOS UNA ECUACIÓN DE SEGUNDO GRADO")

                  ConsoleWriteLine("POR FAVOR INTRODUZCA UN VALOR DISTINTO DE CERO")

                  valora=ConsoleReadDecimal("Introduzca el valor de a = ",True)

            End While

            valorb=ConsoleReadDecimal("Introduzca el valor de b = ",True)

            valorc=ConsoleReadDecimal("Introduzca el valor de c = ",True)

            discriminante=(valorb*valorb)+(4*(valora)*(valorc*-1))

            If discriminante>=0 Then

                  valorx1=((valorb*-1)+sqrt(discriminante))/(2*(valora))

                  valorx2=((valorb*-1)+(sqrt(discriminante))*-1)/(2*(valora))

                  ConsoleWriteLine("")

                  ConsoleWriteLine("*****DOS SOLUCIONES REALES*****")

                  ConsoleWrite("x = "+valorx1)

                  ConsoleWriteLine("")

                  ConsoleWrite("x = "+valorx2)

                  If valorx1=valorx2 Then

                        ConsoleWriteLine("")

                        ConsoleWriteLine("***SOLUCIÓN DOBLE***")

                  End If

            Else

                  ConsoleWriteLine("")

                  ConsoleWriteLine("*****NO EXISTEN SOLUCIONES REALES*****")

            End If

           

      End Method

 

End Program