输入系数a、b和c,并使用内部子程序来求解方程ax2+bx+c=0。注意,根有三种情况,无根,重复根,两个根。
时间: 2024-05-16 12:12:02 浏览: 8
好的,这是一个关于求解二次方程的问题。我们使用公式 x1,2 = (-b ± √(b²-4ac)) / 2a 来求解二次方程。由于根有三种情况,我们需要在内部子程序中进行判断和输出。代码如下:
```
Input a, b, c
If a = 0 Then
Print "这不是一个二次方程!"
Else
delta = b^2 - 4*a*c
If delta < 0 Then
Print "方程无实根!"
Else If delta = 0 Then
x = -b / (2*a)
Print "方程有一个重根,x = ", x
Else
x1 = (-b + Sqr(delta)) / (2*a)
x2 = (-b - Sqr(delta)) / (2*a)
Print "方程有两个根,x1 = ", x1, ",x2 = ", x2
End If
End If
```
希望以上代码和说明对你有所帮助!