vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/05 21:00:52
vb 一元二次方程
输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
![vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2](/uploads/image/z/16181272-64-2.jpg?t=vb+%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8B+%E8%BE%93%E5%85%A5%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8B+ax%5E2%2Bbx%2Bc%3D0%E7%9A%84%E7%B3%BB%E6%95%B0a%E3%80%81b%E3%80%81c%E3%80%81%E8%AE%A1%E7%AE%97%E5%B9%B6%E8%BE%93%E5%87%BA%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8B%E7%9A%84%E4%B8%A4%E4%B8%AA%E6%A0%B9%E3%80%81x1%E3%80%81x2)
Private Sub Form_Load()
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "在实数范围内无解!"
ElseIf b ^ 2 - 4 * a * c = 0 Then
MsgBox "只有一个" & Str(-b / 2 / a )
Else
MsgBox "第一个" & Str(-b / 2 / a + Sqr(b ^ 2 - 4 * a * c) / 2 / a) & ",第二个" & Str(-b / 2 / a - Sqr(b ^ 2 - 4 * a * c) / 2 / a)
End If
End Su
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "在实数范围内无解!"
ElseIf b ^ 2 - 4 * a * c = 0 Then
MsgBox "只有一个" & Str(-b / 2 / a )
Else
MsgBox "第一个" & Str(-b / 2 / a + Sqr(b ^ 2 - 4 * a * c) / 2 / a) & ",第二个" & Str(-b / 2 / a - Sqr(b ^ 2 - 4 * a * c) / 2 / a)
End If
End Su
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计
C语言 任意输入一元二次方程的系数a,b,c,计算并输出一元二次方程的所有根
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
设X1,X2是一元二次方程ax*2+bx+c=0的两个根,试推导x1+x2=-b/a,x1x2=c/a
求助:vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0
探索一元二次方程ax+bx+c=0(a、b、c为常数,a≠0)的两根x1、x2与系数a、b、c的关系
设一元二次方程ax^2+bx+c=0的两个根为X1,X2,那么X1-X2=(√b^2-4ac)/a
如果x1,x2是一元二次方程ax^2+bx+c的两个根,那么有x1+x2=-b/a,x1x2=c/a.这是一元二次方程的
已知实系数一元二次方程ax^2+bx+c=0有两个实数根x1,x2,a>b>c,求d=|x1-x2|的取值范围.