《求解一元二次方程的实数根》由会员分享，可在线阅读，更多相关《求解一元二次方程的实数根（4页珍藏版）》请在金锄头文库上搜索。
1、1实践六 求解一元二次方程的实数根1、实践目标（1）掌握赋值、选择语句的使用方法。（2）学会用顺序、选择结构编写程序。2、任务描述编写程序要求：输入一元二次方程的三个系数，输出求解结果。3、操作提示（1）分析问题。计算一元二次方程 的实数根，根据02cbxa方程系数的变化，利用 可判断实数根的情况：有两个相同的cb42实数根、有两个不同的实数根或者无实数根。设 ，则方cad*4程的实数根情况如表 6-1。表 6-1d 的情况 有无实数根 实数根为多少情况 1 d0 有两个不同的实数根X1=(-b+sqr(d)/(2*a)X2=(-b-sqr(d)/(2*a)情况 2 d=0 有两个不同的实数根
2、 X1=X2=(-b)/(2*a)情况 3 d0?X1=(-b+sqr(d)/(2*a)X2=(-b-sqr(d)/(2*a)无实数根结束3From1 Caption 求一元二次方程的实数根Label1 Caption 系数 aLabel2 Caption 系数 bLabel3 Caption 系数 cLabel4 Caption X1=Label5 Caption X2=Label6 Caption （空白）Text （空白）Text1BackColor &H0000FFFF&（黄色）Text （空白）Text2BackColor &H0000FFFF&（黄色）Text （空白）Text3B
3、ackColor &H0000FFFF&（黄色）Text （空白）Text4BackColor &H0000FFFF&（黄色）Text （空白）Text5BackColor &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 Doublea=Val(Text1. Text)b=Val(Text2.Text)c=Val(
4、Text3.Text)d= If d0 ThenX1= X2= Text4.Text=Str(X1)Text5.Text=Str(X2)4Label6.Caption=“有两个不同的实数根”ElseIf ThenX1=(-b)/(2*a)X2=X1Text4.Text=Str(X1)Text5.Text=Str(X2)Label6.Caption=“有两个不同的实数根”ElseText4.Text=“”Text5.Text=“”Label6.Caption=“ ”End IfEnd IfEnd Sub扩展与提高（4）当输入的系数 a=0 时，上述程序将产生溢出错误，且方程不再是一元二次方程。请修改上述程序，增加判断方程是否是一元二次方程，解决溢出错误。
