&&方程求解
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