Программирование разветвляющихся процессов. Линейный синтаксис

Проанализируем работу данного фрагмента при следующих заданных значениях параметров a= 5, b= 7 . При данных значениях параметров a и b , условие расположенное после ключевого слова IF не соблюдается, а следовательно, результатом выполнения программного кода будет значение y= 5 + 7 =12 . Начинающий программист, проверив  на тестовом примере программу, убеждается в правильности ее работы. Но, в программе имеется логическая ошибка! При значениях параметров a= 5, b= 3, условие расположенное после ключевого слова IF соблюдается, и начинают выполняться два оператора присваивания: сначала y= 5 − 3 = 2, а затем - оператор y= 5 + 3 = 8 . Таким образом, окончательным значением арифметического выражения будет 8, что приведет, при истинности условия, к неверному результату, хотя при несоблюдении условия программа работает корректно. Для того, чтобы избежать подобные недоразумения, в первых версиях языка программирования Basic использовался оператор безусловного перехода GOTO. Этот оператор передает управление на строчку программного кода приложения, перед которой ставится метка. Формат оператора безусловного перехода имеет следующий вид:    <операторы>

…

GOTO <метка>

<операторы> <метка>:

<операторы>

Фрагмент программы, рассмотренного выше примера, будет корректно работать, если в нее внести следующие изменения: IF a>b THEN y=a-b : GOTO m1 y=a+b m1:

Однако следует заметить, что в настоящее время использование оператора GOTO в программном коде является плохим стилем программирования, а в учебном процессе может привести к снижению оценки при решении задачи, так как Visual Basic в своем арсенале содержит достаточное количество управляющих конструкций, позволяющих избежать использование оператора GOTO.

Линейный синтаксис оператора условного перехода имеет второй вид формата, который наиболее подходит к решению рассмотренной выше задачи:

IF <условие>  THEN <оператор1> ELSE <оператор2> <оператор3>

Если <условие>, расположенное после ключевого слова IF соблюдается (является истинным), то выполняется <оператор1>, <оператор2> пропускается, затем выполняется <оператор3>. При несоблюдении условия <оператор1> пропускается, а выполняются операторы <оператор2>  и <оператор3>. Блок-схема данного типа синтаксиса условного оператора имеет вид:

Рассмотренный выше фрагмент программного кода, при использовании данного формата оператора записывается следующим образом:

IF a>b THEN y=a-b ELSE y=a+b

Рассмотрим следующий пример. Пусть требуется вычислить значение выражения в зависимости от условий. 

       ^                 если x < 7

y =                                   

                            если x ≥ 7

Составим блок-схему алгоритма решения данной задачи.

Таблица 6. Описание интерфейса

Программный код приложения будет иметь вид:

Private Sub Command1_Click() Dim x As Single, y As Single x = CSng(Text1.Text)

If x >= 7 Then y = Sqr(x) Else y = Sqr(Abs(x - 7))

Text2.Text = CStr(y)

End Sub

Private Sub Command2_Click()

End End Sub

Рассмотренная выше  задача может быть решена еще одним способом:

Private Sub Command1_Click() Dim x As Single, y As Single x = CSng(Text1.Text)

If x >= 7 Then y = Sqr(x) 

If x<7 Then y = Sqr(Abs(x - 7)) Text2.Text = CStr(y)

End Sub

В данном случае использованы два оператора условного перехода, следующие друг за другом. Такое использование линейного синтаксиса оператора возможно при решении следующей задачи. Пусть требуется вычислить значение параметра y в зависимости от

Изображение формы приведено на рисунке 8. 

Рис. 8. Рисунок формы. 

Блок-схема для решения данной задачи изображена ниже:

При составлении блок-схемы  этой задачи, можно заметить,  что три условия являются взаимоисключающими друг друга, поэтому в блок-схеме  используется два условных блока: если a не меньше чем b и если a не равно b, то, следовательно, a больше чем b. Таким образом, если мы имеем дело с взаимоисключающими условиями, то условных блоков будет на единицу меньше чем условий. 

Программный код задачи приведен ниже:

Private Sub Command1_Click()

Dim a As Integer, b As Integer, y As Single a = CInt(InputBox("a=")) b = CInt(InputBox("b="))

If a < b Then y = a + b

If a = b Then y = (a + b) / 2

If a > b Then y = a - b

MsgBox "y=" + CStr(y)

End Sub

Private Sub Command2_Click()

End End Sub

Рассмотрим одну из распространенных ошибок наиболее часто встречающуюся при решении таких задач. Следующий программный код будет неверен!

Private Sub Command1_Click()

Dim a As Integer, b As Integer, y As Single a = CInt(InputBox("a=")) b = CInt(InputBox("b="))

If a < b Then y = a + b

If a = b Then y = (a + b) / 2 Else y = a - b

MsgBox "y=" + CStr(y)

End Sub

Здесь ошибка заключается в том, что при соблюдении условия a<b, выполнится оператор присваивания  y=a+b и управление будет передано на следующий оператор IF. При выполнении второго оператора условного перехода условие a=b не соблюдается (так как a<b) и выполняется ветвь ELSE. В результате значение параметра y станет равным y=a-b, а значение