Структура развилка / 6
.docxЗадание №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)3 = -8 При x = 0,785 y = cos(0,785) = 0,707 При x = 2 y = 2 * ln(2) = 1,386
Полученные результаты соответствуют графику