怎样用VFP在表单中做一个解一元二次方程的程序 aX^2+bX+C=0

题目

怎样用VFP在表单中做一个解一元二次方程的程序 aX^2+bX+C=0

答案

一元二次方程的程序 aX^2+bX+C=0的求根公式：x=(-b±√b^2-4ac)/2a
解方程条件：b^2-4ac>=0
VFP简单程序,在命令按钮（command）属性“Click”事件中加入以下语句：
input "请输入a：" to a
input "请输入b：" to b
input "请输入c：" to c
pd=b*b-4*a*c &&先计算b^2-4ac
IF pd>=0 &&判断方程是否有解（b^2-4ac>=0有解）
x1=(-b+sqrt(pd))/2*a &&计算方程的第一个解" -b+√b^2-4ac)/2a "
x2=(-b-sqrt(pd))/2*a &&计算方程的第二个解" -b-√b^2-4ac)/2a "
"x1=：",x1 &&显示方程的第一个解
"x2=：",x2 &&显示方程的第二个解
ELSE
messagebox("b^2-4ac