Write a sub-procedure to find the solution of quadratic equation ax2 +bx +c=0. The program should ask the value of a, b, and c from user in main module and pass them as parameter list when a sub program is called.
DECLARE SUB value(a, b, c)
CLS
PRINT
"Calculate ax^2+bx+c=0"
INPUT
"Enter a value of a"; a
INPUT
"Enter a value of b"; b
INPUT
"Enter a value of c"; c
CALL value(a, b, c)
END
SUB Triangle
LET d=(b*b-4*a*c)^1/2
LET x
= (-b+d)/2*a
LET y
= (-b-d)/2*a
PRINT
"Result of quadratic equation are x, y"; x, y
END SUB
No comments:
Post a Comment