Построение графика функции.
Построить график функции Y=X^2+2*X-5
Для -10 < Х < 10
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
Dim x, y, I As Single
|
‘описать переменные, как десятичные числа одинарной точности’
|
|
1 Масштаб
|
|
scale (-10, 10) - (10, -10)
|
‘задать масштаб’
|
|
2 Сетка
|
|
DrawWidth = 1
|
‘толщина линий’
|
|
For I = -10 to 10
|
‘начало цикла ’
|
|
Line (I, -10) - (I, 10), qbcolor(12)
|
‘вертикальные линии ’
|
|
Line (-10, I) - (10, I), qbcolor(12)
|
‘горизонтальные линии ’
|
|
Next I
|
‘конец цикла’
|
|
3 Ось абсцисс
|
|
DrawWidth = 2
|
‘толщина линий’
|
|
Line (-10, 0) - (10, 0), qbcolor(0)
|
‘горизонтальная линия - ось Х’
|
|
For I = -10 to 10
|
‘начало цикла ’
|
|
Pset (I,0)
|
‘вывести на экран точку’
|
|
Print I
|
‘вывести на экран значение переменной I
(подпись под точкой) ’
|
|
Next I
|
‘конец цикла’
|
|
4 Ось ординат
|
|
Line (0,-10) - (0,10), qbcolor(0)
|
‘вертикальная линия - ось Y’
|
|
For I = -10 to 10
|
‘начало цикла ’
|
|
Pset (0, I)
|
‘вывести на экран точку’
|
|
Print I
|
‘вывести на экран значение переменной I
(подпись под точкой) ’
|
|
Next I
|
‘конец цикла’
|
|
5 Построение графика
|
|
For X= -10 to 10 Step 0.01
|
‘начало цикла ’
|
|
Y = X^2 - 2*X-10
|
‘вычислить Y для заданного X’
|
|
Pset (X , Y), qbcolor(5)
|
‘вывести на экран точку
(построение графика) ’
|
|
Next X
|
‘конец цикла’
|
|
End Sub
|
‘конец процедуры’
|
|
|
