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

Question

Информатика

Алтуган

13 сентября, 17:29

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

+4

Ответы (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