Программа для вычислений квадратного уроавнения, нужно найти ошибки - VB
Формулировка задачи:
Решение задачи: «Программа для вычислений квадратного уроавнения, нужно найти ошибки»
textual
Листинг программы
Rem ***** BASIC ***** Sub Main() Dim a As Double, b As Double, c As Double, d As Double, x1 As Double, x2 As Double a = InputBox("введите значение a", , 2) b = InputBox("введите значение b", , 3) c = InputBox("введите значение c", , 1) d = (b * b) - (4 * a * c) If 0 > d Then Print "корней нет" ElseIf 0 = d Then x1 = (-b + Sqr(d)) / (2 * a) Print "Результат", x1 Else x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print "Результат", x1, x2 End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д