顺序结构与数据类型.pptVIP

* 顺序结构程序与基本数据类型 求一元二次方程x2+3x+2=0的两个实数根。 解:方程的系数是常量，分别用a，b，c表示，可运用数学上现成的求根公式求方程的根，采取如下方法: ① 先求出d=b2-4ac；（求根公式中需用开方运算的那部分） ② 再用求根公式算出x1，x2的值。(x1，x2 = ? ) ③ 输出x1，x2. Pascal程序: program Ex16； Const a=1； {常量说明 } b=3； c=2； ｛a，b，c表示方程系数｝ Var d : integer； ｛d为整型变量｝ X1，X2: Real； ｛X1，X2为实型变量｝ Begin d:=b*b-4*a*c； x1:=(-b+sqrt(d))/(2*a)； ｛求方程的根｝ x2:=(-b-sqrt(d))/(2*a)； Writeln(X1=，X1，:6，X2=，X2)；{输出结果} Readln