Решение квадратного уравнения - VB

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

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

Решить квадратное уравнение ( алгоритм разветленный, и написать код)

Решение задачи: «Решение квадратного уравнения»

textual
Листинг программы
   a = Val(InputBox("Дай a", , 1))
   b = Val(InputBox("Дай b", , 2))
   c = Val(InputBox("Дай c", , 3))
   
   D = b ^ 2 - 4 * a * c
   If D >= 0 Then
     X1 = (-b + Sqr(D)) / (2 * a)
     X2 = (-b - Sqr(D)) / (2 * a)
     MsgBox X1 & vbNewLine & X2
   Else
     MsgBox "нет действительных корней"
   End If

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


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

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

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