Решение примера 1
На область определения y = f(x) накладываются следующие ограничения:
Условие 1 обусловлено аргументом логарифма, условие 2 определяется отсутствием 0 в знаменателе дроби, условие 3 определяет неотрицательность подкоренного выражения. Изобразим ограничения области определения функции 1. 2. 3.
Суммируя все ограничения, получим область определения y = f(x): x = (1,2]. Алгоритм расчета функции
Алгоритм может быть реализован на VB следующим образом: Sub primer1() Dim x As Double ' Объявление переменной для аргумента Dim y As Double ' Объявление переменной для функции x = 1.1 ' Ввод значения аргумента функции If (x > 1 And x <= 2) Then ' Оператор проверки значения аргумента на вхождение ' в область определения y = Sqr((2 - x) / Log(x)) ' Вычисление функции MsgBox "В x = " & x & " y = " & y ' Отображение аргумента и вычисленной для него функции Else MsgBox "В x = " & x & Chr(10) & Chr(13) & "функции нет" ' Отображение сообщения о невозможности рассчитать функцию, ' т.к. аргумент не входит в область определения End If ' Завершение оператора проверки End Sub Результаты работы программы:
Для x = 1 ' Ввод значения аргумента функции
|
на оси x.
или 
