Приложение - проект cravnenie;
проект funkziy
Занятие 20. Вложенные операторы ветвления. Составные логические выражения
I. Вложенные операторы ветвления.
Внутри ветвления могут находиться как линейные фрагменты алгоритма, так и другие ветвления.
В языке Visual Basic.NET вложенные операторы ветвления If имеют вид:
Вариант 1 Вариант 2
If <условие 1> Then
<Операторы 1>
Elself <условие 2> Then
<Операторы 2>
End If
|
if <условие 1> then
<Операторы 1>
elseif <условие 2> then
<Операторы 2>
. . .
elseif <условие n-1> then
<Операторы n-1>
else
<Операторы n>
endif
|
Оператор работает следующим образом:
- если (If) выполняется <условие 1>, то (Then) будет выполнена последовательность операторов <Блок 1>,
- иначе если (ElseIf) выполняется <условие 2>, то (Then) будет выполнен <Блок 2> ,
и т.д.,
Пример алгоритма с ветвлением в ветвлении.
Даны два числа. Определить, равны ли они. Если нет, то какое из них больше?
Блок - схема алгоритма.
Программный код.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, y As Integer
x = Val(InputBox("", "Введите первое число"))
y = Val(InputBox("", "Введите второе число"))
If x = y Then
MessageBox.Show(Str(x) & "=" & Str(y), "сравнение чисел")
ElseIf x > y Then
MessageBox.Show(Str(x) & ">" & Str(y), "сравнение чисел")
Else : MessageBox.Show(Str(x) & "<" & Str(y), "сравнение чисел")
End If
End Sub
II. Составные логические выражения
Логическое выражение в команде ветвления может быть простым или составным. Составные логические выражения образуются из простых путем использования операций конъюнкции(and), дизъюнкции (or), отрицания (not). Порядок выполнения этих операций в Visual Basic такой же, как и в математической логике.
Пример. Вычислить значение заданной функции
| Блок-схема задания. |
Интерфейс проекта. |
 |
 |
Программный код.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y As Single
x = Val(TextBox1.Text)
If (x > -3) And (x < 5) Then
y = 2 * x - 12
Label5.Text = "выполняется условие true"
Else
y = 7 - 8 * x
Label5.Text = "выполняется условие false"
End If
Label4.Text = y
End Sub
Задания : Занятие 20.1
| 
