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

Задание №1

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

Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник.

Входные данные: a – первый угол, переменная вещественного типа, b – второй угол, переменная вещественного типа.

Выходные данные: Res – вывод о существовании треугольника, переменная логического типа.

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

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

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

Private Sub Command1_Click()

Dim a As Single

Dim b As Single

Dim Res As Boolean

a = InputBox("a = ")

b = InputBox("b = ")

If a + b < 180 Then

Res = True

Else

Res = False

End If

Print "При a = " & a & "; b = " & b & ". Существование треугольника: " & Res

End Sub

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

**

Ручной счёт: При a = 30; b = 60 c = 180 – 30 – 60 = 90 => Треугольник существует При a = 90; b = 115,8 c = 180 – 90 – 115,8 = - 25,8 => Треугольника не существует

Задание №2

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

Входные данные: x – аргумент функции, переменная вещественного типа.

Выходные данные: y – значение функции, переменная вещественного типа.

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

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

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

Private Sub Command1_Click()

Dim x As Single

Dim y As Single

x = InputBox("x = ")

If x <= 0 Then

y = x ^ 3

Else

If x <= 1.2 Then

y = Cos(x)

Else

y = x * Log(x)

End If

End If

Print "При x = " & x & "; y = " & y

End Sub

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

**

Ручной счёт: При x = - 2 y = (-2)³ = -8 При x = 0,785 y = cos(0,785) = 0,707 При x = 2 y = 2 * ln(2) = 1,386

Полученные результаты соответствуют графику