Графическое решение квадратных уравнений - VB
Формулировка задачи:
Помогите пожайлуста решить графически квадратное уравнение в visual basic!!!!
Решение задачи: «Графическое решение квадратных уравнений»
textual
Листинг программы
Private Sub Command1_Click()
a=inputbox ("введите переменную")
b=inputbox ("введите переменную")
c=inputbox ("введите переменную")
d=b^2-4*a*c
if d>=0 then
x1=-b+sqrd/2*a
x2=-b-sqrd/2*a
else
x1="нет корней"
x2="нет корней"
end if
print x1,x2
scale (-5,0)-(5,0)
line (0,-5)-(0,5)
for x=-5 to x=5
y=x^2
pset (x,y)
next
print
End Sub