Найти дискриминант для заданного уравнения - VB

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

y=a*x^2+b*x+c помогите, плиз!

Код к задаче: «Найти дискриминант для заданного уравнения - VB»

textual
Private Sub Command2_Click()
a = Val(InputBox("Введіть значення a "))
b = Val(InputBox("Введіть значення b "))
c = Val(InputBox("Введіть значення c "))
Print "Дискриминант D = "; b ^ 2 - 4 * a * c
 
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ