求方程ax2+bx+c=0的根。其中abc由键盘输入,设b2-4ac>0
第1题:
A、超线性
B、平方
C、线性
D、三次
第2题:
请补充main()函数,该函数的功能是求方程axs+bx+c=0的两个实数根。方程的系数a、b、C从键盘输入,如果判别式(disc=b*b-4*a*c)tb于0,则要求重新输人a、b、c的值。 例如,当a=1,b=2,c=1时,方程的两个根分别是:x1=-1.00,X2=-1.00。 注意:部分源程序给出如下。 请勿改动函数中的其他任何内容,仅在横线上填入所编写的若干表达式或语句。 试题程序:
第3题:
第4题:
第5题:
第6题:
第7题:
第8题:
第9题:
第10题:
第11题:
第12题:
超线性
平方
线性
三次
第13题:
以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序,请补充该程序。提示:
&8226;当a<>0时有两个根.设delta=b2-4ac,当delta>0时,有两个不同的实根.当delta=0时,有两个相同的实根。当delta<0时,有两个不同的虚根。
&8226;当a=0,b<>0时,有一个根。
&8226;当a=0、b=0时,方程无意义。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if【 】then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if【 】then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if【 】then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
第14题:
已知:关于x的方程2x2+kx-1=0
(1)求证:方程有两个不相等的实数根;
(2)若方程的一个根是-1,求另一个根及k值
第15题:
第16题:
第17题:
第18题:
第19题:
第20题:
第21题:
第22题:
由特征方程的劳斯表所得的辅助方程F(s)=0的根一定也是原特征方程的根。
第23题: