4.4.1. Алгоритмическая структура «Следование»
|
уществует большое количество алгоритмов, в которых |
||||||
|
команды должны быть выполнены последовательно одна за другой. |
||||||
|
Такие последовательности команд будем называть действиями, а |
||||||
С |
|
|
|
|
|
|
|
|
алгоритмы, состоящие из таких серий, линейными. |
|
|
|
|||
|
Алгоритм, в котором команды выполняются последовательно |
||||||
|
одна за другой, называется линейным алгоритмом. Его структура |
||||||
|
представлена в табл. 4. |
|
|
|
|
|
|
|
и |
|
|
|
|
Таблица 4 |
|
|
|
Структура линейного алгоритма |
|
|
|
||
|
Язык программ рован я VBA |
Язык блок-схем |
|||||
|
бА |
|
|
|
|
||
|
Действие 1 |
|
|||||
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Оператор 1 |
|
|
Действие 2 |
|
||
|
Оператор 2 |
|
|
|
|
|
|
|
|
|
|
. |
|
|
|
|
… |
|
|
|
. |
|
|
|
Оператор n |
|
|
|
. |
|
|
|
|
|
|
ействие n |
|
||
|
|
|
|
|
|
|
|
4.4.2.АлгоритмическаяДструктура «Ветвление»
Вотличие от линейных алгоритмовИ, в которых команды выполняются последовательно одна за другой, в алгоритмической структуре «Ветвление» та или иная серия команд выполняется в зависимости от истинности условия.
Условные выражения могут быть простыми и сложными. Простое условие включает в себя два числа, две переменных или два арифметических выражения, которые сравниваются между собой с
использованием операций сравнения. Например, a>b; a c=b; 2 8=4 4 и т.д. Сложное условие – это последовательность простых условий, объединенных между собой знаками логических операций. Например, a>b And a>c.
63
Структура «Ветвление» существует в двух основных вариантах
(табл. 5):
|
|
|
если – то |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
если – то – иначе. |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
С |
Алгоритмическая структура «Ветвление» |
Таблица 5 |
||||||||||||||||
|
|
|
|
|||||||||||||||
|
|
|
|
|
|
|
||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
Язык программ рован я VBA |
|
|
|
|
Язык блок-схем |
||||||||||||
|
|
|
|
|
1. если – то |
|
|
|
||||||||||
|
и |
|
|
|
|
|
да |
нет |
||||||||||
|
If услов |
е Then |
|
|
|
|
|
|
|
|
|
условие |
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
действ |
я |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End if |
|
|
|
|
|
|
действия |
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2. если – то –иначе |
|
|
|
|||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
Д |
||||||||||||
|
If условие Then |
|
|
|
|
|
|
да |
нет |
|||||||||
|
|
|
бА |
условие |
|
|
|
|||||||||||
|
действия 1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
Else |
|
|
|
|
|
|
действия 1 |
|
|
|
|
|
действия 2 |
|
|||
|
действия 2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
End If |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Пример. Проверить, можно ли построитьИтреугольник, если известны 3 стороны. Вывести результат на экран.
Алгоритм решения представить в виде блок-схемы и на языке программирования VBA.
64
Решение:
Блок-схема задачи
Начало
Ввод A,B,C
и |
(B+C>A) И |
|
|||
С |
да |
нет |
|||
(A+C>B) |
|||||
|
|
И (A+B>C) |
|
||
бА |
Вывод |
||||
Вывод |
|
|
|
||
”Можно” |
|
|
”Нельзя” |
||
|
|
Конец |
|
||
Программный код на языке программирования VBA: |
|||||
Sub primer1() |
|
|
|
|
|
Dim A As Integer,B As Integer, C As Integer |
|
||||
A=Val(InputBox(“Введите сторону “)) |
|
||||
B=Val(InputBox(“Введите сторону B“)) |
|
||||
C=Val(InputBox(“Введите сторону C“)) |
|
||||
|
|
|
И |
||
If A+B>C And B+C>A And A+C>B Then |
|
||||
MsgBox (“Можно”) |
Д |
||||
Else
MsgBox (“Нельзя”)
End If
End Sub
4.4.3. Алгоритмическая структура «Выбор»
Алгоритмическая структура «Выбор» применяется для реализации ветвления со многими вариантами серий команд. В структуру выбора входят несколько условий, проверка которых осуществляется в строгой последовательности их записи в команде
65
выбора. При истинности одного из условий выполняется соответствующая последовательность команд.
труктура «Выбор» существует в двух основных вариантах
(табл. 6):
|
|
|
выбор |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
С |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
|
|
выбор – иначе. |
|
|
|
|
|
|
|
|
|
Таблица 6 |
|||||
|
|
|
|
Алгоритмическая структура «Выбор» |
||||||||||||||
|
Язык программ рован я VBA |
|
|
|
Язык блок-схем |
|
||||||||||||
|
|
|
|
|
Выбор |
|
|
|
|
|
|
|
|
|
|
|
||
|
Select Case выражен е |
|
|
|
|
|
да |
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
Case Услов |
е1 |
|
|
условие 1 |
|
|
|
действие 1 |
|
|
|
|
|||||
|
Действ |
е 1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
|
бА |
|
|
|
|
|
|
||||||||||
|
Case Услов е 2 |
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|||
|
Действ |
е 2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
и…………… |
|
условие 2 |
да |
|
действие 2 |
|
|
|
|
||||||||
|
Case Услов е N |
|
|
нет . |
|
|
|
|
|
|
|
|
|
|
|
|||
|
Действ |
е N |
|
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
End Select |
|
|
|
. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
. |
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
условие |
|
да |
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
действие N |
|
|
|
||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Д |
|
||||||||||||
|
|
|
|
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Выбор – иначе |
|
|
|
|
|
|
|
|
|
|
|
|||
|
Select Case выражение |
|
|
|
|
|
да |
|
|
|
|
|
|
|
|
|
||
|
Case Условие1 |
|
|
условие 1 |
|
|
|
действие 1 |
|
|
|
|
||||||
|
Действие 1 |
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|||
|
Case Условие 2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
|
Действие 2 |
|
|
условие |
|
да |
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
действие 2 |
|
|
|
|
||||||||
|
…………… |
|
|
|
|
|
|
|
|
|
|
|||||||
|
Case Условие N |
|
|
нет . |
И |
|
||||||||||||
|
Действие N |
|
|
|
||||||||||||||
|
Case Else |
|
|
|
. |
|
|
|||||||||||
|
|
|
|
. |
|
|
||||||||||||
|
Действие N+1 |
|
|
|
|
|
||||||||||||
|
|
|
|
|
|
|||||||||||||
|
End Select |
|
|
|
|
условие N |
да |
|
|
|
|
|
||||||
|
|
|
|
|
действие |
|
|
|
||||||||||
|
|
|
|
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
действие N+1 |
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
66
Примеры команд «если» и «выбор» приведены в табл. 7.
Таблица 7
Примеры команд «если» и «выбор»
|
Язык программирования VBA |
|
|
|
|
|
|
|
|
Язык блок-схем |
|
|||||||||||||||
С |
|
|
|
|
|
|
|
|
|
2 |
|
|
|
|
|
|
|
|
|
|||||||
|
|
|
1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
Команда «если» |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
|
If x>0 Tnen |
|
|
|
|
|
|
|
|
да |
|
|
|
|
|
|
|
|
нет |
|
||||||
|
y=sin(x) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
и |
|
|
|
|
|
|
|
|
|
|
|
|
x>0 |
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
|
End If |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
y=sin(x) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
If a>c |
Then |
б |
А |
|
|
|
|
|
|
|
|
||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
a=a*2 |
|
|
|
|
|
да |
|
|
|
a>c |
|
|
нет |
|
|||||||||||
|
c=c/2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
Else |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
a=a/2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
c=c*2 |
|
|
|
|
a=a*2; c=c/2 |
|
|
|
|
|
|
|
|
a=a/2; c=c*2 |
|
|
|||||||||
|
все |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||
|
|
|
|
|
|
|
Д |
|
||||||||||||||||||
|
|
|
|
|
|
|
||||||||||||||||||||
|
|
|
Команда «выбор» |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||
|
Select Case x |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
И |
|
||||||||||||
|
Case 0 |
|
|
|
|
|
x=0 |
|
|
|
|
да |
|
y=cos(x) |
|
|||||||||||
|
|
y=cos(x) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Case 1 |
|
|
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
y=sin(x) |
|
|
|
|
x=1 |
|
|
|
|
да |
|
y=sin(x) |
|
|
|
|
||||||||
|
Case -1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||
|
|
y=0 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End Select |
|
|
|
|
нет |
|
|
|
|
да |
|
|
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
x=-1 |
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
y=0 |
|
|
|
|
||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
|
|
|
|
|
|
|
нет |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
67