Программирование задач с разветвляющейся структурой
Условный оператор If .
Однострочная запись Многострочная запись
If <условие верно> Then S 1 If <условие верно> Then S 1
If Not <условие верно> Then S2 Else S2 End If
Кроме этих основных структур ветвления имеются структуры, производные от них.
Блочный оператор.
If <условие> Then
S 1
S2
Else
S3
S4
End If
При написании блочного оператора If не допускается запись выполняемой команды непосредственно за оператором Then, то есть в первой строке оператора If, а выполняемые операторы размещаются между ключевыми словами If и End If .
Оператор для последовательной проверки нескольких условий (блочные операторы ветвления):
If <условие> Then
группа операторов 1
Else If <условие> Then
группа операторов 2
Else If <условие> Then
группа операторов 3
Else оператор 4
End IF
Оператор множественного выбора (Select Case) используется тогда, когда проводится многократное сравнение одной и той же переменной с различными значениями, либо интервалами значений какой-либо величины. Синтаксис оператора имеет вид:
Select Case testValue
Case Value 1
Группа операторов 1
Case Value 2
Группа операторов 2
Case Else
Группа операторов 3
End Select,
где testValue – аргумент, определяющий величину, которая будет использоваться при выполнении проверок. Эта величина может быть любым числовым или строковым выражением, включая литералы, переменные или функции.
|
|
Каждая условная группа команд (то есть, команд, выполняемыхпри выполнении условия) начинается с оператора Case. Оператор Case определяет выражение Value, с которым будет сравниваться аргумент testValue .
При выполнении оператора Select Case программа выполнит сегмент кода, связанный с первым из операторов Case, проверяемая величина в котором удовлетворит требуемому условию. При этом будут выполнены все команды между данным и последующим оператором Case (либо оператором End If). Если значение аргумента не равно значению параметра оператора Case, программа перейдёт к следующему оператору Case.
Оператор Select Case можно использовать двумя различными способами для выполнения сравнения значения переменной с заданным числовым интервалом. Для задания границ интервала следует использовать ключевое слово To ( например, для чисел от 1 до 100 - Case 1 To 100).
Для задания ограничения в виде одностороннего интервала используется ключевое слово Is и любая из операций сравнения (< ,<= , > , >= , < > ).
Например, выделить числа больше 50 – Case Is > 50.
Пример использования оператора Select Case для определения размеров оплаты труда на основе сравнения строковых переменных, характеризующих должность, и базовую ставку.
|
|
Totpay = 0#
Paygrd = txtGrade.Text
Payhrs = Val(txtGrade.Text)
Select Case Paygrd
Case " слесарь "
Totpay = Payhrs* 4.35
Case "секретарь "
Totpay = Payhrs* 4.85
Case "замдиректора "
Totpay = Payhrs* 5.35
Case "директор "
Totpay = Payhrs * 5.85
End Select
В пределах одного блока Select Case и в одном операторе Case можно задать различные типы условий: можно задать отдельное значение, интервал, определяемый с помощью ключевого слова To, и интервал, определяемый с помощью ключевого слова Is. Например: Case 1, 3 To 10 Is > 15.
Условное выражение (IF) используется для обработки условных выражений, когда переменной надо присвоить значение по результатам проверки условия:
result = IF( < условие >, trueValue, falseValue).
В качестве аргумента условия может использоваться любое допустимое логическое выражение. В качестве аргументов trueValue и falseValue могут использоваться числовые, литеральные переменные и функции. Если условие выполняется, то переменной result будет присвоено trueValue, в противном случае – falseValue.
Пример. inptGrade = Val (InputBox ("Введите оценку теста ")
txtStatus.Text = IF (inptGrate >70, "Принят ", "Не принят ")
В данном примере в текстовом окне txtStatus, если оценка превышает 70, появится надпись «Принят», в противном случае – «Не принят».
|
|
Задание 3. Написать программу для реализации алгоритма решения задачи с разветвляющейся структурой (задание 3 темы 6.2). Примерная форма приложения представлена на рис. 3.
Рис. 3. Образец формы для задания 3
Дата добавления: 2018-11-24; просмотров: 301; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!