Ejercicio: Raices Reales

Las raices reales de la expresion ax^2 + bx + c = 0 se obtienen a traves de la formula

Si b^2 - 4ac >= 0
Escribir un programa para calcular las raices reales, de ser posible, de una ecuacion de segundo grado.

Datos A,B,C con A diferente de 0

Donde:
A,B,C son variable de tipo real. Representan los coeficientes de la ecuacion

Codigo Fuente

01 Module Module1
02 
03     Sub Main()
04         'variables
05         Dim A, B, C As Double
06         ' almacena la raiz de la ecuacion
07         Dim x1, x2 As Double
08         ' almacena el discriminante de la ecuacion
09         Dim dis As Double
10 
11         Console.WriteLine("RAICES REALES")
12         Console.Write("A=")
13         A = Val(Console.ReadLine)
14         Console.Write("B=")
15         B = Val(Console.ReadLine)
16         Console.Write("C=")
17         C = Val(Console.ReadLine)
18         'calculo de la discriminante
19         dis = (B ^ 2) - (4 * A * C)
20         If dis >= 0 Then
21             x1 = ((-B) + Math.Sqrt(dis)) / (2 * A)
22             x2 = ((-B) - Math.Sqrt(dis)) / (2 * A)
23         End If
24         Console.WriteLine("Raices reales: X1=" & x1 & " X2=" & x2)
25         Console.Read()
26     End Sub
27 
28 End Module

Resultado
Para A(3), B(9), C(1.5)  X1=-0.177 X2=-2.823
Para A(2.5), B(-6), C(-4)  X1=2.994 X2=-0.544

 

Posted in: Ejercicios,Estructuras de Control,Visual Basic