Решить квадратное уравнение - 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

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

12   голосов , оценка 4.167 из 5