CLEAR
?"请输入数据A"
INPUT TO A
?"请输入数据B"
INPUT TO B
?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
DO CASE
CASE DELTA>0
?"方程有两个不相等的实数根:"
?(-B+SQRT(DELTA))/(2*A)
?(-B-SQRT(DELTA))/(2*A)
CASE DELTA=0
?"方程有两个相等的实数根!"
?-B/(2*A)
CASE DELTA
CLEAR
?"请输入数据A"
INPUT TO A
?"请输入数据B"
INPUT TO B
?"请输入数据C"
INPUT TO C
DELTA=B*B-4*A*C
DO CASE
CASE DELTA>0
?"方程有两个不相等的实数根:"
?(-B+SQRT(DELTA))/(2*A)
?(-B-SQRT(DELTA))/(2*A)
CASE DELTA=0
?"方程有两个相等的实数根!"
?-B/(2*A)
CASE DELTA