一元二次方程 

题目描述： 

　　　　方程ax＾2+bx+c=0，要求给出它的实数解． 

　　输 入： 

　　　　三个实数：a，b，c，是方程的三个系数(a≠0)． 

　　输 出： 

　　　　如果无实数解，则输出"No solution"；

　　　　如果有两个相等的实数解，则输出其中一个，四舍五入到小数点后面3位；

　　　　如果有两个不等的实数解，则解与解之间用逗号隔开，同样要四舍五入到小数点后3位。 

　　输入样例： 

　　　　　　l 2 1 

　　输出样例： 

　　　　　　-1.000 

　　程 序： 

　　　　program Program41；

　　　　var

　　　　　a，b，c，m：real；

　　　　begin

　　　　　read (a，b，c)；

　　　　　m：=b*b -4*a*c；

　　　　　if ( ① )then

　　　　　　begin

　　　　　　　write ( ② ：0：3)；

　　　　　　　write( ` , ` );

　　　　　　　write ((-1*b-sqrt(m))／(2*a)：0： ③ )；

　　　　　　end

　　　　　　else if ( ④ )then

　　　　　　　write( ⑤ )

　　　　　　　else begin

　　　　　　　　　　write (`No solution`)；

　　　　　　　　　 end

　　　　end．