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

Задание №1

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

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

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

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

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

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

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

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

.

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

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

Private Sub Command1_Click()

Dim t As Single, k As Single, q As Single

t = InputBox("введите t")

k = Sqr(t)

If k > 2.7 Then

q = k ^ 0.5

Else

q = 11.5 * k ^ (2 / 3)

End If

Print "t=" & t, "q=" & q

End Sub

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

Задание №2

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

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

При решении контрольных примеров переменной присвоить значения:

1) x = 6,8; 2) x = 12,5; 3) x = 196

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

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

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

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

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

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

где .

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

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

Private Sub Command1_Click()

Dim x As Single, c As Single, y As Single

Const pi As Single = 3.14

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

c = x ^ 0.5 - pi

If c < 0 Then

y = c ^ 3 + 9.33

Else

If (c < 10) And (c > 0) Then

y = Tan(4 * c) / (7.1 + c)

Else

y = 0

End If

End If

Print "y=" & y, "x=" & x

End Sub

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