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

Задание №1

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

Входные данные: x – вещественного типа

Выходные данные: Z – вещественного типа

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

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

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

**

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

Private Sub Command1_Click()

Dim x As Single

Dim Z As Single

x = InputBox("Введите x")

If x <= 0 Then

Z = (1 / (100 * Tan(x))) + 4

Else

Z = Sqr(2 * x) * (3 * x) ^ (1 / 3)

End If

Print "Z = " & Z & " x = " & x

End Sub

6. Отладка приложения: **

Ручной счёт: x = -1; Z = 3,99 x = 2; Z = 3,63

Задание №2

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

Входные данные: a – вещественного типа

Выходные данные: y – вещественного типа

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

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

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

**

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

Private Sub Command1_Click()

Dim x As Single

Dim y As Single

Const pi As Single = 3.14

x = InputBox("Введите x")

If x <= -4 Then

y = 3 + 4 * x + x ^ 2

Else

If x >= 1.5 Then

y = 5 * Log(x)

Else

y = x * Sin(x + pi) - 5

End If

End If

Print "x = " & x & " y = " & Format(y, "0.00")

End Sub

6. Отладка приложения: **

Ручной счёт: x = -5; y = 8 x = 0; y = -5 x = 3; y = 5,49