一元二次方程公式

&&方程求解
clear all

input "请输入A：" to a
input "请输入B：" to b
input "请输入C：" to c

if(a=0 .AND. b=0) &&当a 、b都等于0时，数据错误
?"输入数据错误！"
return
endif

if a=0    &&判断当a＝0时，直接求解方程
x=-c/b
?"方程的解为：",x
return
endif

if b*b-4*a*c>=0 &&判断是否有解
x1=(-b+sqrt(b*b-4*a*c))/(2*a)
x2=(-b-sqrt(b*b-4*a*c))/(2*a)
?"方程的解为："
?"x1=",x1,
?"x2=",x2
else
?"方程无解"
endif