'Tyler Katsoff

'10/26/2020

'Quadratic Program

Imports System

Public Module Module1

    Public Sub Main()

        Dim aValue As Decimal

        DIm bValue As Decimal

        Dim cValue As Decimal

        Dim xValue1 As Decimal

        Dim xValue2 As Decimal

        Console.WriteLine("Enter the value of 'a' here:")

        aValue = Console.ReadLine()

        Console.WriteLine("Enter the value of 'b' here:")

        bValue = Console.ReadLine()

        Console.WriteLine("Enter the value of 'c' here:")

        cValue = Console.ReadLine()

        xValue1 = -1 * bValue + Math.Sqrt(bValue ^ 2 - 4 * aValue * cValue) / 2 * aValue

        xValue2 = -1 * bValue - Math.Sqrt(bValue ^ 2 - 4 * aValue * cValue) / 2 * aValue

        Console.WriteLine ("x = " & xValue1 & " or x = " & xValue2)

    End Sub

End Module