一元二次方程 题目描述： 　　　　方程ax＾2

一元二次方程

题目描述：

　　　　方程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．