Графическое решение квадратных уравнений - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д