怎样用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