实践六 求解一元二次方程的实数根 1、实践目标 （1）掌握赋值、选择语句的使用方法。 （2）学会用顺序、选择结构编写程序。 2、任务描述 编写程序要求：输入一元二次方程的三个系数，输出求解结果。 3、操作提示 （1）分析问题。计算一元二次方程的实数根，根据方程系数的变化，利用可判断实数根的情况：有两个相同的实数根、有两个不同的实数根或者无实数根。设，则方程的实数根情况如表6-1。 表6-1 d的情况 有无实数根 实数根为多少 情况1 d>0 有两个不同的实数根 X1=(-b+sqr(d)/(2*a)X2=(-b-sqr(d)/(2*a) 情况2 d=0 有两个不同的实数根 X1=X2=(-b)/(2*a) 情况3 d<0 无实数根 - （2）设计算法。根据分析结果将以下流程图补充完整： （3）程序实现。 ①新建工程，创建窗体。界面设计参照图6-1，属性设置参照表6-2。 表6-2 窗体中主要控件属性设置 对象 属性名称 属性值 From1 Caption 求一元二次方程的实数根 Label1 Caption 系数a Label2 Caption 系数b Label3 Caption 系数c Label4 Caption X1= Label5 Caption X2= Label6 Caption （空白） Text1 Text （空白） BackColor &H0000FFFF&（黄色） Text2 Text （空白） BackColor &H0000FFFF&（黄色） Text3 Text （空白） BackColor &H0000FFFF&（黄色） Text4 Text （空白） BackColor &H0000FFFF&（黄色） Text5 Text （空白） BackColor &H0000FFFF&（黄色） Command1 Caption 计算开始 ②完善下列程序代码，并将其输入计算按钮的代码窗口中。 Private Sub Command1 Click( ) Dim a As Double, b As Double, c As Double, d As Double, X1 As Double, X2 As Double a=Val(Text1. Text) b=Val(Text2.Text) c=Val(Text3.Text) d= If d>0 Then X1= X2= Text4.Text=Str(X1) Text5.Text=Str(X2) Label6.Caption=“有两个不同的实数根” Else If Then X1=(-b)/(2*a) X2=X1 Text4.Text=Str(X1) Text5.Text=Str(X2) Label6.Caption=“有两个不同的实数根” Else Text4.Text=“” Text5.Text=“” Label6.Caption=“ ” End If End If End Sub [扩展与提高] （4）当输入的系数a=0时，上述程序将产生溢出错误，且方程不再是一元二次方程。请修改上述程序，增加判断方程是否是一元二次方程，解决溢出错误。 Y Y N N 计算d←b^2—4*a*c 开始 输入系数a、b、c d>0 X1=(-b+sqr(d))/(2*a) X2=(-b-sqr(d))/(2*a) 无实数根 结束 3 2(
课件网) 顺序分支结构 复习： 程序有那三种结构？ 顺序结构 分支结构 循环结构 开始、结束框 处理框 判断框 输入、输出框 流程线 流程图的几种符号 看流程写答案 a=4 b=5 a=a+b c=3 a=a+c b=a-c 开始 输出a 输出 开始 输入y Y<0 输出”y是非负数” 输出”y是负数” 结束 Y N Y N 开始 结束 输出”y” 赋值语句: 变量名 (对象.属性)=表达式 a=4 b=5 a=a+b c=3 b=a-c a=a+c 求a= 赋值的过程是一个给予的过程，右边给左边的过程 例：要给一元二次方程的三个系数赋值，可以用三个赋值语句 a = 3 b = 2 c = 4 或写成： a = 3：b = 2： c = 4 VB程序中，可以一行写一个语句，也可以在一行上写几个语句，但多个语句之间必须用冒号（：）分隔。 变量名 = 表达式 对象名.属性名 = 表达式 R = Val(Text1.Text) Text2.Text = Str(3.1416*r*r) 文本框的名称，用户自己命名的 文本框的一个属性 赋值语句中的赋值符号与条件表达式中等号的区别 ： 在语句 if (x=8) then …… 中的等号与语句 x=(-b-sqr(d))/2*a 中的等号的作用有什么区别？ 分支结构（选择结构） 1.行If语句 （形式1） If 条件表达式 Then 语句1 Else 语句2 开始 表达式为true N Y 执行语句1 执行语句2 结束 If 条件表达式 Then 语句 开始 表达式 ... ...
