以下是核心算法:其中Text1,Text2,Text3是三个文本输入框,接受a,b,c三个系数.x1,x2为根
Dim a As Single,b As Single,c As Single,d As Single,ds As Single
Dim x1 As String,x2 As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
ds = Sqr(Abs(d))
If d > 0 Then
x1 = Str((-b + ds) / 2 * a)
x2 = Str((-b - ds) / 2 * a)
ElseIf d = 0 Then
x1 = Str(-b / 2 * a):x2 = x1
Else
b = Round(-b / (2 * a),7):c = Round(ds / (2 * a),7)
x1 = Str(b) + "+" + Str(c) + "i"
x2 = Str(b) + "-" + Str(c) + "i"
End If
——————————————————————转贴
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
数学人气:756 ℃时间:2020-01-27 23:31:28
优质解答
我来回答
类似推荐
- 输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
- 用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
- 已知关于X的一元二次方程ax2+bx+c=0的两根x1,x2满足x2/x1+x1/x2=14/5,且反比例函数y=a/x的图像与抛物线y=ax2+bx+c的对称轴交于点(6,-1/12),求这条抛物线的解析式.
- 若x1、x2是一元二次方程ax2+bx+c=0(a≠0,a、b、c为系数且为常数)的两个根,则x1+x2=−b/a,x1•x2=c/a,这个定理叫做韦达定理.如:x1、x2是方程x2+2x-1=0的两个根,则x1+x
- 用java 编写一程序,求解一元二次方程:aX2+bX+c=0.参数a、b及c从命令行做参数输入 java
猜你喜欢
- 1一条公路,工人们第一天修了全长的百分之三十,第二天比第一天少修了1.2千米,还剩3.6千米,这条路长多少米?
- 2如果关于x的一元二次方程ax2+bx+c=0(a≠0)中的二次项系数与常数项之和等于一次项系数,求证:-1必是该方程的一个根.
- 3Both,both…and,both of的用法及区别?
- 4与朱元思书从流飘荡任意东西在文中有什么表达作用
- 5.After he gave a report about the school,Mr.White____ the visitors around it.
- 6甲圆的直径与乙圆的半径相等,甲圆的周长是乙圆周长的几分之几,甲圆的面积是乙圆面积的几分之几
- 7结构蛋白的合成、加工和分泌与哪些细胞结构直接有关?在哪里合成?有什么作用?
- 8学校科技小组人数的七分之五是男生,男生有21人,女生有多少人
- 9如何加强知识与发展智力之间的必然联系
- 10为什么不用谢要用you are welcome