Программа для вычислений квадратного уроавнения, нужно найти ошибки - VB

Формулировка задачи:

                    Листинг программы
                
REM  *****  BASIC  *****
 
Sub Main
 
    inputbox "введите значение a" , a
    
    inputbox "введите значение b" , b
    
    inputbox "введите значение c" , c
    
        DIM d as integer
        d = (b*b) - ( 4 * a * c )
    If 0 > D Then print "корней нет"
    
    If 0 = D Then X1 = (-b + Sqr(d)) / (2 * a)
    
    If 0 < D Then X1 = (-b + Sqr(d)) / (2 * a) ; X2 = (-b - Sqr(d)) / (2 * a)
    
    Print "Результат" , X1, X2
 
End Sub

Решение задачи: «Программа для вычислений квадратного уроавнения, нужно найти ошибки»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы