Разветвления в циклических программах

Если некоторые действия в программе, например вычисления по формулам, должны происходить только при выполнении какого-либо условия, то такая программа называется разветвляющейся, а разветвление вычислений обеспечивается условным оператором.

Для записи проверяемого условия используются операции сравнения:(больше), = (больше либо равно),(меньше),

Каждое условие всегда имеет два значения: либо оно верно (True – правда), либо неверно (False – ложь). Проверяемое условие может быть и сложным, состоящим из нескольких простых условий. Для записи сложного условия используются логические операции объединения: And – сложное условие верно, когда оба простых условия верны, иначе сложное условие будет ложным; Or – сложное условие верно, когда хотя бы одно из простых условий верно, и будет ложным только, когда все простые условия будут ложными.

Например, сложное условие xy And a = 5 будет верно только тогда, когда верны одновременно оба условия xy и a = 5. Сложное условие xy Or x = a будет верно тогда, когда выполняются либо условие xy, либо a = 5,либо оба этих условия одновременно.

Объединяя условия логическими операциями And и Or, можно составить и более сложное условие, например:

x = 1 And x = 10 Or x = 15

Это условие будет верно, если х находится внутри интервала [1:10] либо если х = 15.

Условный оператор If

Условный строчный оператор имеет общий вид If…Then…Else… (если…тогда…иначе…) и представляет в общем случае конструкцию:

IfThenElse

которая имеет следующий логический смысл: если условие выполняется, то нужно выполнить оператор1, иначе – следует выполнить оператор2.

В операторе может отсутствовать Else.

Если при проверке условия должны выполняться несколько операторов, то условный оператор записывается в блочной форме и заканчивается строкой с ключевыми словами End If:

IfThen

Else

End If

Когда необходимо проверить более одного условия, можно использовать вложение операторов If друг в друга.

Пример 6.1. Программа вычислений значений w с использованием строчного условного оператора If:

; ;

Исходные данные: x = 0.5(0.5)4, n = 7. Текст программы:

Sub CommandButton1_Click()

Dim x As Single, y As Single, w As Single, n As Single

n = Val(InputBox(Введите n))

For x = 0.5 To 4 Step 0.5

y = Exp(-2 * x) + 1

z = Log(x) / (x + 1)

If xz ^ 2 Then w = Sqr(x * y) Else w = n * x + 2

Msgbox (“w=”w)

End Sub

Пример 6.2. Вычислить значение yдля вводимых с клавиатуры некоторых значений n и x:

Программа:

Статьи к прочтению:

Урок и 31 32Циклические алгоритмы5мин 16с

Похожие статьи: