查人人中国名人网幼儿园三八节活动感想:vfp简单编程题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 10:57:16
求二元一次方程ax^2+bx=c=0的根
input \"请输入系数a=\" to a
input \"再输入系数b=\" to b
input \"再输入系数c=\" to c
d=dalta(a,b,c)
if d<0
=messagebox(\"无实数根！\",48,\'提示信息\')
else
? \"方程两根是：X1=\"+alltrim(str((-b+sqrt(d))/2))+\",X2=\"+alltrim(str((-b-sqrt(d))/2))
endif
return
function dalta
parameters a0,b0,c0
c0=b0*b0-4*a0*c0
return c0