Информатика. Индришенок В.И - 26 стр.

                                -26-

     Отыскание корня уравнения удобно оформить отдельной
функцией.
     Для определения интервалов изоляции корней необходимо
просмотреть последовательно пары соседних значений функции
при заданном шаге разбиения области задания функции. При вы-
полнении условия отрицательности произведения соседних зна-
чений функции следует обратиться к функции отыскания корня.
     Пример: построение графика функции Y(x)=x2-2x-3 и опре-
деление точек пересечения с осью абсцисс.
'Определение типов переменных:
Public mx, mn, a, b, d, x, ff As Double
Public num As Integer
Public i As Integer
Public xmin As Integer
Public xmax As Integer
Public ymin As Integer
Public yman As Integer
Public epsilon As Double
Public X1 As Double
Public X2 As Double
Public Maxstr, Minstr, Tmpstr As String
'Динамическое определение массива
Dim f() As Double
'Вывод таблицы значений функции и экстремальных значений:
Private Sub Command_TABL_Click()
a = Val(AText.Text)
b = Val(BText.Text)
d = Val(StepText.Text)
num = Int((b - a) / d)
ReDim f(num + 1)
mx = a ^ 2 - 2 * a - 3
mn = a ^ 2 - 2 * a - 3
TablList.Clear
For i = 0 To num
     x = a + i * d
     Tmpstr = Str(x) & "          "
     f(i) = x ^ 2 - 2 * x - 3
     If mx < f(i) Then mx = f(i)
     If mn > f(i) Then mn = f(i)
     Tmpstr = Tmpstr + Str(f(i))