Программы циклической структуры
END IF
ELSE
. . .
На языке VISUAL BASIC
Программы ветвящейся структуры
Для составления разветвляющихся программ используются операторы безусловной и условной передачи управления (см. рис. 2.2). В разветвляющихся вычислительных процессах последовательность выполнения операций заранее не определена и ставится в зависимость от результатов проверки заданных условий.
Оператор безусловного перехода.
Общий вид оператора
GO TO m,где m метка. Этот оператор передает управление первому оператору в строке с меткой m.
Условные операторы. Условные операторы служат для изменения порядка выполнения операторов в зависимости от выполнения или невыполнения какого - либо условия.
Условные операторы могут использоваться для организации циклов и ветвлений.
Общий вид условных операторов
1) IF «условие» THEN (или GO TO) m;
2) IF «условие» THEN «действие»;
3) IF «условие» THEN «действие 1» ELSE «действие 2»;
4) IF «условие 1» THEN
«Блок 1»
ELSEIF «условие 2» THEN
«Блок 2»
«Блок n»
где условие имеет вид:
(арифметическое выражение 1) θ (арифметическое выражение 2)
θ - одна из операций отношения <, <=, >, >=, =, <>;
m - метка; действие - любой оператор BASICа, в том числе это может быть другой условный оператор.
Сочетание THEN IF позволяет "вкладывать" условия друг в друга. Например,
IF Q >= 3.5 THEN IF Q < 7.4 THEN 20
Действие условного оператора заключается в следующем:
если условие удовлетворяется, то в первом случае осуществляется переход к строке с меткой m=20, во втором и в третьем случаях выполняется оператор, следующий за THEN.
Если условие не удовлетворяется, то в первом случае осуществляется переход к оператору, следующему за условным. Во втором случае осуществляется переход к первому оператору следующей строки,
т. е. все операторы в строке, следующие за условным оператором, при этом игнорируются. В третьем случае выполняется действие, записанное после ключевого слова ELSE.
Возможна одновременная проверка нескольких условий, соединенных словами:
OR - условие считается выполненным, если выполняется хотя бы одно из проверяемых условий;
AND - условие выполнено, если выполняются все проверяемые условия одновременно;
XOR - условие выполнено, если выполняется ровно одно из двух проверяемых условий.
Пример 3. Вычислить
где .
Рис. 2.2. Блок - схема разветвляющегося вычислительного процесса
Программа для примера 3 (см. рис. 2.2.):
Предварительно в Excel необходимо создать лист входных данных:
Код программы:
Sub Pr3()
m = Cells(1, 2)
n = Cells(2, 2)
X = 3 * Cos(m / n)
If X < 0 Then
Y = X ^ 2 + 3 * X - 7
ElseIf X >= 1 Then
Y = Exp(X)
Else
Y = 2 * X - 1
End If
Cells(3, 1) = "X=": Cells(3, 2) = X
Cells(4, 1) = "Y=": Cells(4, 2) = Y
End Sub
После ввода текста программы макроса и ее запуска результат появится в ячейках диапазона A3:B4.