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

1 Задача.

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

Входные данные:

x – переменная вещественного типа

Выходные данные:

F – переменная вещественного типа

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

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

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

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

Private Sub Command1_Click()

Dim x As Single, F As Single

x = InputBox("x")

If x > 5.2 Then

F = x * Log(x)

Else

F = x ^ 3

End If

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

End Sub

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

2 Задача.

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

Входные данные:

x – переменная вещественного типа.

Выходные данные:

y – переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x")

If x < 0 Then

y = x

Else

If 0 <= x And x <= 1 Then

y = Abs(Abs(x) - 1)

Else

y = Abs(x ^ 2 - 1)

End If

End If

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

End Sub

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