用计算机程序解决问题资料.ppt

用计算机程序解决问题 2x2+5x+3=0 2x2+8x+8=0 7x2+8x+9=0 用计算机程序解决问题 普通计算方法： 根据公式： X=-b + Sqr(b * b - 4 * a * c)/ (2 * a) 根的情况： 通过判断D=b*b-4ac的值来确定。 用计算机程序解决问题 读入a,b,c,的值 计算D=b*b-4ac 如果: 1.D0,则方程无实数根； 2.D=0时有两个相同的实数根X1=X2=-b/2a; 3.D0时，有两个不相同的实数根: X1=-b+Sqr(b * b - 4 * a * c)/2a X2=-b- Sqr(b * b - 4 * a * c)/2a 一元二次方程计算程序代码 Private Sub Command1_Click() Print 请输入方程系数a,b,c (a不为0) Let a = InputBox(请输入a) Let b = InputBox(请输入b) Let c = InputBox(请输入c) Print a=; a Print b=; b Print c=; c Let X0 = b * b - 4 * a * c If X0 0 Th