Есть ли у уравнения реальные корни - VB

Узнай цену своей работы

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

даны a, b, c реальные цифры. Решать есть ли у ax^2 + bx+c=0 уравнения реальные корни

Решение задачи: «Есть ли у уравнения реальные корни»

textual
Листинг программы
Option Explicit
Dim WithEvents cb As CommandButton, l&, t&, w&, h&
Const r = 90
 
Private Sub cb_Click()
    Dim a, b, c, d, s$
 
    'Ввод
    Do: a = InputBox("Введите коофициент *a*")
    Loop Until IsNumeric(a)
    Do: b = InputBox("Введите коофициент *b*")
    Loop Until IsNumeric(b)
    Do: c = InputBox("Введите коофициент *c*")
    Loop Until IsNumeric(c)
 
    'Вычисления
    d = b * b - 4 * a * c
    s = "Дискриминант d = " & d & vbLf
    
    'Вывод
    If d < 0 Then
        MsgBox s & "Решений нет"
    Else
        MsgBox s & "Первый корень x1 = " & (-b - Sqr(d)) / (2 * a) & vbLf & _
                    "Второй корень x2 = " & (b - Sqr(d)) / (2 * a)
    End If
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Me.Caption = "ax^2 + bx+c=0"
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Начать"
        .Visible = 1
    End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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