Решение квадратного уравнения - VB
Формулировка задачи:
Решить квадратное уравнение ( алгоритм разветленный, и написать код)
Решение задачи: «Решение квадратного уравнения»
textual
Листинг программы
- a = Val(InputBox("Дай a", , 1))
- b = Val(InputBox("Дай b", , 2))
- c = Val(InputBox("Дай c", , 3))
- D = b ^ 2 - 4 * a * c
- If D >= 0 Then
- X1 = (-b + Sqr(D)) / (2 * a)
- X2 = (-b - Sqr(D)) / (2 * a)
- MsgBox X1 & vbNewLine & X2
- Else
- MsgBox "нет действительных корней"
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
