// Programa: Ecuación 1

// Autores: lidia y pablo

// Descripción: este programa nos muestra la solución de la

// ecuación de primer grado*/

 

Program Ecuacion1

 

      Method Main()

 

            Var valora As Decimal

            Var valorb As Decimal

            Var valorx As Decimal

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

            ConsoleWriteLine("   a x + b = 0")

            ConsoleWriteLine("")

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

            While valora=0

                  ConsoleWriteLine("SI a ES CERO NO TENDREMOS UNA ECUACIÓN DE PRIMER 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)

            valorx=(valorb*-1)/(valora)

            ConsoleWriteLine("")

            ConsoleWrite("Entonces x = "+valorx)

           

      End Method

 

End Program