Структура развилка / Лр развилка (3)

Задача №1

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

1.1 Словесное описание задачи

1.2 Состав входных и выходных переменных

Входные переменные:

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

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

Выходные переменные:

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

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

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

Dim d As Single, x As Single, F As Single

x = InputBox("x=")

If x > 0 Then

d = Log(x) / Log(10)

Else

If x < 0 Then

d = 4.1 ^ (x + 0.6)

Else

d = InputBox("d=")

End If

End If

F = d + x ^ 5

Print "x=" & x, "d=" & d, "F=" & F

End Sub

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

Задание №2

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

1.1 Словесное описание задачи

1.2 Состав входных и выходных переменных

Входные переменные:

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

Выходные переменные:

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

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

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

Dim x As Single, Y As Single

x = InputBox("x=")

If x < 0 Then

Y = Sqr(Abs(x))

Else

Y = Abs(x)

End If

Print "x=" & x, "Y=" & Y

End Sub

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