设计程序 公式法解一元二次方程

(1)输入a=2,b=3,c=-1;
(2)dt=b^2-4*a*c;
(3)如果dt<0,输出“原方程无解”，否则执行(4);
(4)如果dt=0,输出“原方程有相等实根x=”，-b/(2*a);
否则执行(5);
(5)输出"x1=",(-b+sqr(bt))/2*a;
输出"x2=",(-b-sqr(bt))/2*a;
(6)结束

cls