Программа для вычислений квадратного уроавнения, нужно найти ошибки - 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

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы