Вывести корни квадратного уравнения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д