LOCAL △,a,b,c,x1,x2
a=2
b=-8
c=-10
△=b*b-4*a*c
IF a=0 &&方程条件 a≠0,不是2次方程,但能解
IF b=0
MESSAGEBOX("你输入a=0,b=0,太多零",0,"太多领")
ELSE
x1=-c/b
x2=x1
ENDIF
ELSE
IF △>0
x1=(-b+SQRT(△))/(2*a)
x2=(-b-SQRT(△))/(2*a)
ELSE
x1="∽"
x2="∽"
ENDIF
ENDIF
?x1,x2
a=2
b=-8
c=-10
△=b*b-4*a*c
IF a=0 &&方程条件 a≠0,不是2次方程,但能解
IF b=0
MESSAGEBOX("你输入a=0,b=0,太多零",0,"太多领")
ELSE
x1=-c/b
x2=x1
ENDIF
ELSE
IF △>0
x1=(-b+SQRT(△))/(2*a)
x2=(-b-SQRT(△))/(2*a)
ELSE
x1="∽"
x2="∽"
ENDIF
ENDIF
?x1,x2