Задание №1

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

Входные данные: q – переменная вещественного типа; a – переменная вещественного типа.

Выходные данные: P – произведение, переменная вещественного типа.

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

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

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

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

Private Sub Command1_Click()

Dim a As Single, b As Single, q As Single, C As Single

a = InputBox("a=")

q = InputBox("q=")

b = q * a

If b <= 10 Then

C = Sqr(b ^ 2 + 1)

Else

C = Log(10) * Log(b) / Log(10)

End If

Print "a = " & a, "q = " & q, "C = " & C

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 <= 1 Then

y = Tan(x)

Else

If x > 1.8 Then

y = Log(x) / Log(10)

Else

y = Sin(x)

End If

End If

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

End Sub

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