Структура развилка / 27

Задание 1

1. Постановка задачи

Входные данные: x – аргумент функции, переменная вещественного типа.

Выходные данные: y – значение функции, переменная, вещественного типа.

2. Математическая модель задачи

3. Разработка алгоритма

4. Разработка визуальной части проекта

5. Код приложения

Private Sub Command1_Click()

Dim x As Single, y As Single

Const pi As Single = 3.1415926

x = InputBox("x=")

If (-2 * pi <= x) And (x <= pi) Then

y = Sin(x)

Else

y = x * Sin(x)

End If

MsgBox ("x = " & x & Chr(13) & " y = " & y)

End Sub

6. Отладка программы

Ручной счёт: x = 1; y = sin(1) = 0,84 x = 2π; y = 2π sin(2π) = 0

Задание 2

1. Постановка задачи

Входные данные: X – аргумент функции, переменная вещественного типа.

Выходные данные: Y – значение функции, переменная, вещественного типа.

2. Математическая модель задачи

3. Разработка алгоритма

4. Разработка визуальной части проекта

5. Код приложения

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x=")

If x <= -1 Then

y = 1 / Abs(x)

Else

If (-1 < x) And (x <= 0) Then

y = 1

Else

y = Log(Exp(x))

End If

End If

MsgBox ("x = " & x & Chr(13) & " y = " & y)

End Sub

6. Отладка программы

Полученные результаты соответствуют графику.