对一元二次方程ax^2+bx+c=0求解,若有实根则输出实根,否则输出无实根,用VFP程序设计

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