Структура развилка / 30
.docxЗадание 1
1. Постановка задачи
Определить, не приводит ли суммирование двух целых чисел А и В к переполнению (т. е. к результату, большему чем заданная величина С). Если будет переполнение, то сообщить об этом; иначе вывести сумму этих чисел.
Входные данные:
A – переменная целого типа,
B – переменная целого типа,
C – переменная целого типа.
Выходные данные:
S – значение функции, переменная целого типа
2. Математическая модель задачи
3. Разработка алгоритма
4. Разработка визуальной части проекта
5. Код приложения
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, S As Integer
A = InputBox("A=")
B = InputBox("B=")
C = InputBox("C=")
S = A + B
If S <= C Then
Print S & " при A = " & A & " B = " & B & " C = " & C
Else
Print "переполнение при A = " & A & " B = " & B & " C = " & C
End If
End Sub
6. Отладка программы
Ручной счёт: 3 + 5 = 8 ≤ 10 4 + 7 = 11 > 3
Задание 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
If x > 0 Then
y = Log(x) + 1
Else
y = Abs(x)
End If
Else
y = x ^ 3
End If
Print "x = " & x & " y = " & y
End Sub
6. Отладка программы
Результаты соответствуют графику