Пример 2. Представить аналитическими выражениями функцию y = f(x), заданную графически.

Представить аналитическими выражениями функцию y = f(x), заданную графически.

Изобразить блок-схему и написать программу для расчета y = f(x) при различных значениях x.

Решение примера 2

Функция y = f(x) – непрерывная и рассчитывается для трех интервалов значений аргумента: 1. x = (-∞, 0), 2. x = [0,1], 3. x = (1, +∞):

интервал 1 описывается уравнением ,

интервал 2 описывается уравнением или ,

интервал 3 описывается уравнением .

Алгоритм (блок-схема) расчета функции y=f(x) представлен на рисунке.

Алгоритм может быть реализован на VB следующим образом:

Sub primer2()

Dim x As Double ' Объявление переменной для аргумента

Dim y As Double ' Объявление аргумента для функции

x = 0.5 ' Ввод значения аргумента функции

Select Case x ' Оператор проверки значения аргумента

Case Is < 0 ' Условие принадлежности к первому интервалу

y = x + 1 ' Вычисление функции на первом интервале

Case Is <= 1 ' Условие принадлежности ко второму интервалу

y = Sqr(1 - x * x) ' Вычисление функции на втором интервале

Case Else ' Принадлежность аргумента третьему интервалу

y = 0 ' Вычисление функции на третьем интервале

End Select

MsgBox "В x = " & x & " y = " & y

' Отображение аргумента и вычисленной для него функции

End Sub

Результаты работы программы:

Для

x = -1.5 ' Ввод значения аргумента функции