Вывести корни квадратного уравнения - VB

Узнай цену своей работы

Формулировка задачи:

здравствуйте, помогите пожалуйста в решении не столь заурядной задачи) вводится квадратное уравнение типа Ax+By+C=0 и в поля A1 и B1 надо вывести их корни, в случае если корней нет, то вывести "корней нет"

Решение задачи: «Вывести корни квадратного уравнения»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = TextBox1.Value
b = TextBox2.Value
c = TextBox3.Value
If a <> 0 And b * b * 2 - 4 * a * c > 0  Then
x1 = (-b / 2 + (b * b * 2 - 4 * a * c) ^ 1 / 2) / 2 / a
x2 = (-b / 2 - (b ^ 2 - 4 * a * c) ^ 1 / 2) / 2 / a
MsgBox ("корни уравнения" & x1 & " and " & x2)
ElseIf a = 0 And b <> 0 Then
x = -c / b
MsgBox ("уравнение имеет один корень" & x)
Else
MsgBox ("уравнение не имеет корней")
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы