Решить квадратное уравнение - VB (62466)
Формулировка задачи:
очень прошу!!!!Решить любое квадратное уравнение
Решение задачи: «Решить квадратное уравнение»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д