text
壹元二次方程求解
ax^2+bx+c=0
endtext
input "請輸入a的值：" to a
input "請輸入b的值：" to b
input "請輸入c的值：" to c
m=b*b-4*a*c
if m>=0
x1=(-b+sqrt(m))/(2*a)
x2=(-b-sqrt(m))/(2*a)
?"x1的值是：",x1
?"x2的值是：",x2
else
?"此方程無實根!"
endif