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