Решить квадратное уравнение - VB (60753)
Формулировка задачи:
ПОМОГИТЕ ПОЖАЛУЙСТА))))) СПС ЗАРАНЕЕ
Решение задачи: «Решить квадратное уравнение»
textual
Листинг программы
Private Sub main() Dim A As Long, B As Long, C As Long, d As Double A = InputBox("Введите A") B = InputBox("Введите B") C = InputBox("Введите C") d = B ^ 2 - 4 * A * C If d < 0 Then MsgBox "Решения нет." ElseIf d = 0 Then MsgBox -B / (2 * A) Else MsgBox "2 корня:" & vbLf & _ (-B + Sqr(d)) / (2 * A) & vbLf & _ (-B - Sqr(d)) / (2 * A) End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д