5 DEFDBL A-Z
10 PRINT "equation is y=Ax^2+Bx+C"
15 PRINT "solve for x when y goes to zero"
20 PRINT "quadratic formula is x=(-B+-((B^2)-(4*AC))^(1/2))/(2*a)"
30 INPUT "A?", A
40 INPUT "B?", B
50 INPUT "C?", C
55 IF ((B ^ 2) - (4 * A * C)) < 0 THEN GOTO 130
60 E = (-B + ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)
70 F = (-B - ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)
75 PRINT "(-B + ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)="
80 PRINT E
85 PRINT "(-B - ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)="
90 PRINT F
95 GOTO 120
100 PRINT (A * (E ^ 2)) + (B * E) + C
110 PRINT (A * (F ^ 2)) + (B * F) + C
120 END
130 G = ((B ^ 2) - (4 * A * C))
140 G = -1 * G
150 H = (G ^ (1 / 2)) / (2 * A)
160 I = -1 * H
170 J = (-1 * B) / (2 * A)
175 PRINT "(-B + ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)="
180 PRINT "("; J; ","; H; ")"
185 PRINT "(-B - ((B ^ 2) - (4 * A * C)) ^ (1 / 2)) / (2 * A)="
190 PRINT "("; J; ","; I; ")"
200 END