[例1.6] 求一元二次方程x2+3x+2=0的两个实数根。

　　解:方程的系数是常量，分别用a，b，c表示，可运用数学上现成的求根公式求方程的根，采取如下方法:

　　①先求出d=b2-4ac；（求根公式中需用开方运算的那部分）

　　②再用求根公式算出x1，x2的值。(x1，x2=?)

　　③输出x1，x2.

　　Pascal程序:

　　programEx16；

　　Consta=1；{常量说明}

　　b=3；

　　c=2；｛a，b，c表示方程系数｝

　　Vard: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｛等待输入一个回车键｝

　　End.

　　本程序中的a，b，c均为常量；变量d是整数类型，而变量x1，x2则是实数类型，因为运算式中的Sqrt(d)开平方运算和(/)除法运算使结果为实数。Sqrt()是开平方函数，是Pascal系统的一个标准函数。

下一页阅读：习题1.1模仿例题编程