一道VFP程序设计题,急,在线等

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:05:45
求出任一元二次方程的解并将其输出。要求考虑方程无解，一个解和二个解三种情况。

set talk off
clear
store 0 to x,x1,x2

input "a=" to a
input "b=" to b
input "c=" to c

D=B^2-4*A*C

Do case
Case D>0
D2=sqrt(D)
X1=(-b+D2)/(2*a)
X2=(-b-D2)/(2*a)
? "x1 = "+ALLT(Str(x1,12,4))
? "x2 = "+ALLT(Str(x2,12,4))
Case D=0
x=-b/(2*a)
? "x1 = x2 = " + ALLT(Str(x,12,4))
Case D<0
messagebox("无实数解！")
EndC
return