问题标题：
求一元二次方程ax2+bx+c=0的根（对任意系数a,b,c）.是VFP数据库请写出它的查询语句..
问题描述：
求一元二次方程ax2+bx+c=0的根（对任意系数a,b,c）.是VFP数据库请写出它的查询语句..
聂翔回答：
clear
text
一元二次方程求解
ax^2+bx+c=0
endtext
input"请输入a的值："toa
input"请输入b的值："tob
input"请输入c的值："toc
m=b*b-4*a*c
ifm>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程无实根!"
endif
查看更多
