Задание к уроку 20
Занятие 18. Ветвление в алгоритмах и задачах
Компьютерные программы хорошо умеют использовать алгебру логики ( булеву логику, алгебру высказываний). В этой логике ответы на все вопросы всегда или "Да" (True) или "Нет"(False) ⇒нет никаких "возможно", "похоже" или "почти".
Примеры использования булевой логики:
- 4 = 4 ? Да (True);
- 3 = 3 + 1 ? Нет (False);
- 3 = (6+ 12)/(1 + 5) ? Да (True).
Как видите, в каждом примере ответ - или "да" или "нет". Именно так программа принимает решения:
- Если ответ "Да" (True), программа делает одно.
- Если ответ Нет (False) - другое.
Пример
Ветвление в Visual Basic.Net
Для реализации алгоритма с ветвлением необходим оператор условия. Его конструкция может иметь одну или несколько строк.
Одна строка:
If условие Then группа операторов 1 [Else группа операторов 2] |
Несколько строк:
If условие Then
группа операторов 1
[Else
группа операторов 2]
End If |
Квадратные скобки не ставятся, а лишь показывают то, что находящееся между ними содержимое можно опустить в случае необходимости.
Работает этот оператор следующим образом:
- Проверяется условие.
- Если условие истинно, то исполняется группа операторов 1.
- Если условие ложно, то исполняется группа операторов 2.
Рассмотрим примеры задач, алгоритмы решения которых не являются линейными.
Задание 1. Разработать проект определения знака числа.
1. Блок - схема
2. Интерфейс
3. Программный код
Private Sub Button1_Click(...............) Handles Button1.Click
Dim a As Short
a = Val(InputBox("a=", "ввод данных"))
If a > 0 Then MessageBox.Show("число положительное") Else MessageBox.Show("число отрицательное") |
End Sub
или
Private Sub Button1_Click(.........) Handles Button1.Click
Dim a As Short
a = Val(InputBox("a=", "ввод данных"))
If a > 0 Then
MessageBox.Show("число положительное")
Else
MessageBox.Show("число отрицательное")
End If |
End Sub
или
If a > 0 Then
MessageBox.Show("число положительное")
Else : MessageBox.Show("число отрицательное")
End If |
Варианты записи программного кода:
1.
|
Private Sub Button1_Click()
Dim a As Integer
a = Val(InputBox("a=", "ввод данных"))
If a > 0 Then MessageBox.Show ("число положительное")
If a <0 Then MessageBox.Show ("число отрицательное")
End Sub
|
2.
Private Sub Button1_Click()
Dim a As Integer
a = Val(InputBox("a=", "ввод данных"))
If a > 0 Then MessageBox.Show("число положительное")
If a = 0 Then MessageBox.Show("число равно нулю") Else MessageBox.Show("число отрицательное")
End Sub
|