Найти дискриминант для заданного уравнения - VB
Формулировка задачи:
y=a*x^2+b*x+c
помогите, плиз!
Решение задачи: «Найти дискриминант для заданного уравнения»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д