Welcome to collectivesolver - Programming & Software Q&A with Examples. A website you can trust. All programs tested and work.

Contact: aviboots(AT)netvision.net.il


Instant Grammar Checker - Correct all grammar errors and enhance your writing

Teach Your Child To Read

Survey Junkie is the #1 place online for your audience to earn rewards for their opinion.

100%
Managed VPS Hosting
Affordable. Secure. Your Own Virtual Private Hosting. Faster than AWS and Rackspace

Bonsai Boy of New York Bonsai Trees and Accessories
Liquid Web - Highest Level of Performance and Security with Managed Dedicated Servers

Disclosure We are a professional Programming & Software Q&A website, that receives compensation from some of the links whose we show you with Information. It means that my content may contain affiliate links.

21,340 questions

28,140 answers

573 users

How to find the roots of a quadratic equation in VB.NET

1 Answer

0 votes
Imports System

Public Class Program
	Public Shared Sub quadratic_equation_roots(ByVal a As Double, ByVal b As Double, ByVal c As Double)
        Dim discriminant As Double = (b * b) - (4 * a * c)
        Dim root1, root2 As Double

        If discriminant > 0 Then
            root1 = (-b + Math.Sqrt(discriminant)) / (2 * a)
            root2 = (-b - Math.Sqrt(discriminant)) / (2 * a)
            Console.WriteLine("root1 = " & root1 & Environment.NewLine & "root2 = " & root2)
        ElseIf discriminant = 0 Then
			root1 = -b / (2 * a)
			root2 = -b / (2 * a)
            Console.WriteLine("root1 = root2 = " & root1)
        ElseIf discriminant < 0 Then
            Dim real As Double = -b / (2 * a)
            Dim imaginary As Double = Math.Sqrt(-discriminant) / (2 * a)
            Console.WriteLine("root1 = " & real & "+" & imaginary & "i" & Environment.NewLine & "root2 = " & real & "-" & imaginary & "i")
        End If
    End Sub

    Public Shared Sub Main()
        Dim a As Double = 3, b As Double = 5, c As Double = -9
        quadratic_equation_roots(a, b, c)
        Console.WriteLine()
		
        a = 3
        b = 5
        c = 7
        quadratic_equation_roots(a, b, c)
        Console.WriteLine()
		
        a = 2
        b = 4
        c = 2
        quadratic_equation_roots(a, b, c)
    End Sub
End Class



' run:
'
' root1 = 1.08876043244513
' root2 = -2.7554270991118

' root1 = -0.833333333333333+1.2801909579781i
' root2 = -0.833333333333333-1.2801909579781i

' root1 = root2 = -1
'

 




answered Jan 11 by avibootz
...