Составить в basic решение квадратного уравнения с переменными 2,7,-4

Question

Информатика

Талья

2 января, 03:42

Составить в basic решение квадратного уравнения с переменными 2,7,-4

+3

Ответы (1)

Знаете ответ на вопрос?

Лабарни · Answer 1

Dim a As Double, b As Double, c As Double, d As Double

Input a, b, c

d = b ^ 2 - 4 * a * c

If d < 0 Then

Print "Нет действительных корней"

Else

If d = 0 Then

Print - b / (2 * a)

Else

d = Sqr (d)

Print (-b - d) / (2 * a), (-b + d) / (2 * a)

End If

End If