如何用程序求一元二次方程？

[snowerhuayun]

如何用程序求一元二次方程？
例如：a*a + 4a + 40=0
求a值。（系数可以变化。）

[射天狼]

这是数学问题.

[didishu0807]

得到它的算法用代码实现

[jornet]

大学教程里的数据结构应该有这个 算法：好像叫牛顿什么什么算法，是逐渐逼近，取中，直到误差很小

[lihonggen0]

方程ax2+bx+c=0

若b2-4ac<0，则在 文本框中显示“无实根”

其它有两个解，你根据工式代入即可

[dandy1437]

http://www.vb-code.net/program.asp?mode=add&Cfile=http://www.csdn.net/cnshare/soft/11/11151.shtm&Cname=解方程(1.0)&Ctype=实用工具
去这个地址看看。

[踏平扶桑]

呵呵～～
b^2-4ac

[yijiansong]

找找算法方面的资料

[jornet]

Private Function qiujie(a As Double, b As Double, cha As Double) As Double
Dim c As Double
Dim y As Double
If a > b Then
c = a
a = b
b = c
End If
If fangcheng(a) * fangcheng(b) < 0 Then
c = (a + b) / 2
y = fangcheng(c)
If (y - 0) * (0 - y) * (-1) < cha Then
qiujie = y
ElseIf y > 0 Then
qiujie = qiujie(a, y, cha)
ElseIf y < 0 Then
qiujie = qiujie(y, b, cha)
Else
MsgBox "err1"
End
End If
ElseIf fangcheng(a) < 0 Then
qiujie = qiujie(a, b + 10, cha)
ElseIf fangcheng(a) > 0 Then
qiujie = qiujie(a - 10, b, cha)
Else
MsgBox "error"
End
End If


End Function

Private Function fangcheng(p As Double) As Double
fangcheng = p * p + 4 * p + 40
End Function
----------------------------------
这是递归方式实现，可以改成循环，效率 高

[danielinbiti]

最易理解的方法就是完全按照公式来
先判断b^2-4ac

[snowerhuayun]

忘记公式是什么了，谁能告诉我？

[planetike]

http://www.lnein.edu.cn/new/wlkt/csjxnr/zfx2/tbjx.htm

[hxy1982]

根据求2元一次方程的公式来写啊~！
lihonggen说的很清楚了

[龙华]

直接代如韦达定理不就出来答案了。
2a分之-ab加减根号b方减4ac