'===========================================================================
' Subject: QUADRATIC FORMULA                 Date: 10-16-97 (02:09)       
' Author:  Brian Wilkins                     Code: QB, QBasic, PDS        
' Origin:  sonic@digital.net               Packet: ALGOR.ABC
'===========================================================================
' **** Quadratic Formula by Brian Wilkins
' **** This program will ask for A, B, & C, then using the quadratic formula
' **** It will give you a solution, or a N.R.S


CLS
INPUT "Enter A,B,C (seperate with commas) : ", A, B, C
D = (B ^ 2) - (4 * A) * C
IF D < 0 THEN PRINT "NO REAL SOLUTION" ELSE x = (-1 * B + D ^ (.5)) / (2 * A): x1 = (-1 * B - D ^ (.5)) / (2 * A): PRINT "The answer is:": PRINT x, x1
END