### LANGUAGE: Visual Basic

### CHALLENGE: Write the definition of a function named quadratic that receives three double parameters a,b,c.

If the value of a is 0 then the function prints the message “no solution for a=0” and returns.

If the value of “b squared” – 4ac is negative, then the code prints out the message “no real solutions” and returns.

Otherwise the function prints out the largest solution to the quadratic equation.

### SOLUTION:

Function quadratic(a as double, b as double, c as double) as double Dim x,y as double If (a = 0) Then System.Console.Writeline("no solution for a=0") ElseIf ((b*b - 4*a*c) < 0) System.Console.Writeline("no real solutions") Else x = ((-b + Math.Sqrt(b*b - 4*a*c)) / (2*a)) y = ((-b - Math.Sqrt(b*b - 4*a*c)) / (2*a)) If (x > y) Then System.Console.Writeline(x) Else System.Console.Writeline(y) End If End If End Function