Roots of a quadratic function: Difference between revisions

Content added Content deleted

Inline

@@ Line 848: / Line 848: @@
 =={{header|IS-BASIC}}==
-<lang IS-BASIC>100 PROGRAM "Quadratic.bas"
+<lang IS-BASIC>
+PROGRAM "Quadratic.bas"
-INPUT PROMPT "a= ,b= ,c= ":A,B,C
+PRINT "Enter coefficients a, b and c:":INPUT PROMPT "a= ,b= ,c= ":A,B,C
-LET D=B^2-4*A*C
+IF A=0 THEN
-SELECT CASE SGN(D)
+PRINT "The coefficient of x^2 can not be 0."
-CASE 0
+ELSE
-PRINT "The single root is ";-B/2/A
+LET D=B^2-4*A*C
-CASE 1
+SELECT CASE SGN(D)
-PRINT "The real roots are ";(-B+SQR(D))/(2*A);"and ";(-B-SQR(D))/(2*A)
-CASE -1
+CASE 0
-PRINT "The complex roots are ";-B/2/A;"+/- ";STR$(SQR(-D)/2/A);"*i"
+PRINT "The single root is ";-B/2/A
+CASE 1
-END SELECT</lang>
+PRINT "The real roots are ";(-B+SQR(D))/(2*A);"and ";(-B-SQR(D))/(2*A)
+CASE -1
+PRINT "The complex roots are ";-B/2/A;"+/- ";STR$(SQR(-D)/2/A);"*i"
+END SELECT
+END IF</lang>
 =={{header|J}}==