对一元二次方程ax^2+bx+c=0求解,若有实根则输出实根,否则输出无实根,用VFP程序设计
问题描述:
对一元二次方程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 CASE CASE DELTA>0 ?"方程有两个不相等的实数根:" ?(-B+SQRT(DELTA))/(2*A) ?(-B-SQRT(DELTA))/(2*A)...