求一元二次方程阿ax2(方)+bx+c=0的根(包括实根和复根)
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/14 23:37:58
求一元二次方程阿ax2(方)+bx+c=0的根(包括实根和复根)
急.
急.
以下是核心算法:其中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
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的根(包括实根和复根)
c语言一元二次方程ax2+bx+c=0的实根,然后输出
一元二次方程ax方+bx+c=0(a不等于0)的两实根为x1和x2.求x1的三次方加x2的三次方.
一元二次方程ax2+bx+c=0的两个根为-3和-1,则二次函数y=ax2+bx+c的对称轴是( )
vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,
vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,
“一元二次方程ax2+bx+c=0有一个正根和一个负根”是“ac<0”的( )
关于VB的题 从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”
一元二次方程ax2+bx+c=0的两根为x1和x2
已知x1,x2是一元二次方程ax2+bx+c=0的两个根,求证:ax2+bx+c=a(x-x1)(x-x2).
一道高一的代数证明题设x1、x2分别为关于x的一元二次方程ax2+bx+c=0和-ax2+bx+c=0的一个非零实根,且
编写函数程序求方程解编写函数求方程ax2+bx+c=0的所有解(包括实根和非实根).提示:要考虑a=0,b2-4ac>0