vf编程 急 在线~~~~加分~~~~~~~···

来源：百度知道 编辑：UC知道 时间：2024/06/18 09:24:07
求一元二次方程a*x^2+b*x+c=0,要求输入一元二次方程abc的值

CLEAR
?"请输入数据A"
INPUT TO A
?"请输入数据B"
INPUT TO B
?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
DO CASE
CASE DELTA>0
?"方程有两个不相等的实数根:"
??(-B+SQRT(DELTA))/(2*A)
??(-B-SQRT(DELTA))/(2*A)
CASE DELTA=0
?"方程有两个相等的实数根:"
??-B/(2*A)
CASE DELTA<0
?"方程有两个复根:"
REAL=-B/(2*A)
IMG=SQRT(-DELTA)/(2*A)
?ALLTRIM(TRIM(REAL))+"+"+ALLTRIM(STR(IMG))+"I"
?ALLTRIM(TRIM(REAL))+"-"+ALLTRIM(STR(IMG))+"I"
ENDCASE