Question

编写一个程序求一元二次方程ax2+bx+c=0的解。

Answer 1

将二次方程求解公式翻译成编程语言就可以了。
这是在VB中的用法。需要在窗口上定义Text1
Text2
Text3
Label1
Label2
Label3
Label4
Command1等控件用于输入a,b,c数据,显示提示，显示答案和计算。
Sub
Command1_Click()
Dim
a，b,c,x1,x2
As
Single
a
=
Val(Text1.Text)
b
=
Val(Text2.Text)
c
=
Val(Text3.Text)
If
b
*
b
-
4
*
a
*
c
>
0
Then
x1
=
(-b
+
Sqr(b
*
b
-
4
*
a
*
c))
/
(2
*
a)
x2
=
(-b
-
Sqr(b
*
b
-
4
*
a
*
c))
/
(2
*
a)
Label4.Caption
=
"方程有两实根，分别为："
+
Str(x1)
+
Str(x2)
ElseIf
b
*
b
-
4
*
a
*
c
=
0
Then
x2
=
(-b)
/
(2
*
a)
Label4.Caption
=
"方程有一根，为："
+
Str(x2)
Else
Label4.Caption
=
"方程没有实根"
End
If
使用其他编程语言可以以此类推。