• Составьте программу решения квадратного уравнения ax(x-в квадрате)+
    +bx +c=0. Коэффициенты a,b,c введите с клавиатуры.Выведите на экран
    ЗНачения корней x1,x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение <Нет корней>, если уравнение не имеет корней

Ответы 3

  • пришлось немного подредактировать, но вроде должно работать
  • язык visual basic
    • Автор:

      spence
    • 6 лет назад
    • 0
  • Sub f1() Dim a, b, c, d, cord, x1, x2 As Single a = InputBox(" x^2") b = InputBox(" x") c = InputBox(" свободный") d = 0 d = (b * b) - 4 * a * c If d < 0 Then MsgBox ("решений нет") cord = Sqr(d) x1 = (-b + cord) / (2 * a) x2 = (-b - cord) / (2 * a) if d = 0 then msgbox CStr(x1) MsgBox ("корни квадратного уравнения равны " + CStr(x1) + "и" + CStr(x2)) End Sub
    • Автор:

      rex11
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years