Знайомство з циклами
1.1. Операторы цикла Do
Циклы настолько широко применяются в программах, что у программистов давным-давно появилась потребность написать специальный оператор цикла, не использующий оператор GoTo. Последний неудобен хотя бы тем, что у программистов, пишущих большие программы, много времени и внимания уходит на поиск взглядом меток в тексте программы. К тому же GoTo нарушает стройную идеологию так называемого «структурного программирования», когда порядок действий задается не скачками из одной части программы в другую, а цепочкой вложенных друг в друга операторов. В общем, нынче широко использовать GoTo так же неприлично, как не объявлять переменные.
Операторы цикла в VB делятся на 2 вида: Do и For. Операторы вида Do встречаются в 5 вариантах:
0 ВАРИАНТ | 1 ВАРИАНТ | 2 ВАРИАНТ | 3 ВАРИАНТ | 4 ВАРИАНТ |
Do …. Loop | Do …. Loop While | Do …. Loop Until | Do While …. Loop | Do Until …. Loop |
Операторы вида For встречаются в 2 вариантах. О них – в следующем разделе.
1.1.1. Оператор Do …. Loop
Попытаемся составить с использованием 0 варианта оператора Do программу решения задачи о бесконечной печати чисел 3 5 7 … из предыдущего подраздела. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с 0 вариантом программы решения этой задачи из того же подраздела. Работают эти параллельные варианты абсолютно одинаково. При этом объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.
0 ВАРИАНТ | 0 ВАРИАНТ ОПЕРАТОРА Do |
Write("Начало счета ") | Write("Начало счета ") |
f = 3 | f = 3 |
m: | Do |
Write(f & " ") | Write(f & " ") |
f = f + 2 | f = f + 2 |
GoTo m | Loop |
Do можно перевести, как «Делай», а понимать следует просто как метку.
Loop можно перевести, как «Петля» или «Возврат назад», а понимать следует так: «Возвращайся к метке Do».
Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do заменой метки m:, а слово Loop считать заменой оператора GoTo m. Обе программы бесконечно печатают …..
Общий смысл оператора Do такой: выполни по порядку сверху вниз все операторы между словами Do и Loop, затем выполни их по порядку еще раз и еще раз и так далее.
Толку в 0 варианте оператора Do мы из-за зацикливания видим мало (пока!).
Синтаксис оператора Do …. Loop:
Do
операторы
операторы
…………….
Loop
Строки операторов между Do и Loop называются телом цикла.
1.1.2. Оператор Do …. Loop While
Добавьте в ваш проект еще 4 кнопки и выполните в пошаговом режиме программы с вариантами оператора Do 1 – 4, которые я привел ниже. Вы увидите, что все 4 варианта делают одно и то же и они очень похожи. Вопрос о том, зачем нужно целых 4 похожих варианта, рассмотрим чуть позже. Уверяю, они все нужны.
Составим с использованием 1 варианта оператора Do программу решения задачи о печати чисел из предыдущего подраздела. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с 1 вариантом программы решения этой задачи из того же подраздела. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.
1 ВАРИАНТ | 1 ВАРИАНТ ОПЕРАТОРА Do |
Write("Начало счета ") | Write("Начало счета ") |
f = 3 | f = 3 |
m: | Do |
Write(f & " ") | Write(f & " ") |
f = f + 2 | f = f + 2 |
If f <= 9 Then GoTo m | Loop While f <= 9 |
Write("Конец счета") | Write("Конец счета") |
While переводится «Пока». Значит, Loop While f <= 9 понимать следует так: «Возвращайся к метке Do, пока f<=9».
Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do заменой метки m:, а конструкцию Loop While f <= 9 считать заменой оператора If f <= 9 Then GoTo m.
Синтаксис оператора Do …. Loop While:
Do
операторы
операторы
…………….
Loop While условие продолжения работы цикла
1.1.3. Оператор Do …. Loop Until
2 ВАРИАНТ | 2 ВАРИАНТ ОПЕРАТОРА Do |
Write("Начало счета ") | Write("Начало счета ") |
f = 3 | f = 3 |
m1: | Do |
Write(f & " ") | Write(f & " ") |
f = f + 2 | f = f + 2 |
If f > 9 Then GoTo m2 Else GoTo m1 | Loop Until f > 9 |
m2: Write("Конец счета") | Write("Конец счета") |
Until переводится «До тех пор, пока не».
Значит, Loop Until f > 9 понимать следует так: «Возвращайся к метке Do до тех пор, пока не выполнится условие f > 9».
Синтаксис оператора Do …. Loop Until:
Do
операторы
операторы
…………….
Loop Until условие завершения работы цикла
1.1.4. Оператор Do While …. Loop
3 ВАРИАНТ | 3 ВАРИАНТ ОПЕРАТОРА Do |
Write("Начало счета ") | Write("Начало счета ") |
f = 3 | f = 3 |
m1: If f <= 9 Then GoTo m3 Else GoTo m2 | Do While f <= 9 |
m3: Write(f & " ") | Write(f & " ") |
f = f + 2 | f = f + 2 |
GoTo m1 | Loop |
m2: Write("Конец счета") | Write("Конец счета") |
Do While f <= 9 понимать следует так: «Пока f <= 9, выполняй нижестоящие операторы вплоть до Loop».
Синтаксис оператора Do While …. Loop:
Do While условие продолжения работы цикла
операторы
операторы
…………….
Loop
1.1.5. Оператор Do Until …. Loop
4 ВАРИАНТ | 4 ВАРИАНТ ОПЕРАТОРА Do |
Write("Начало счета ") | Write("Начало счета ") |
f = 3 | f = 3 |
m1: If f > 9 Then GoTo m2 Else GoTo m3 | Do Until f > 9 |
m3: Write(f & " ") | Write(f & " ") |
f = f + 2 | f = f + 2 |
GoTo m1 | Loop |
m2: Write("Конец счета") | Write("Конец счета") |
Do Until f > 9 понимать следует так: «Выполняй нижестоящие операторы вплоть до Loop, до тех пор, пока не выполнится условие f > 9».
Синтаксис оператора Do Until …. Loop:
Do Until условие завершения работы цикла
операторы
операторы
…………….
Loop
Разница между вариантами операторов Do
Разницы две:
· Между While и Until. Здесь соображения удобства. Что вам удобнее: указывать компьютеру, когда цикл нужно продолжать (f <= 9) или когда его нужно заканчивать (f > 9)?
· В том, куда поставить условие – после Do или после Loop. Здесь разница не только в удобстве. В первом случае можно придумать такое условие, когда тело цикла не выполнится ни разу. Например,
Dim f As Integer = 3
Do Until f > 0
Debug. Write(f)
f = f - 10
Loop
Во втором случае, каково бы ни было условие, тело цикла хотя бы раз, да выполнится, потому что добраться до стоящего внизу условия можно только пройдя все стоящие выше него операторы.
Часто эти отличия для начинающих малосущественны, поэтому пока выбирайте вариант по вкусу.
Типичная ошибка начинающих – небрежное обращение со знаками сравнения. Многие не видят большой разницы в том, как записать – While f<=9 или While f<9, а затем, «недополучив» результат, удивляются, куда он делся. Если вы не понимаете, куда, попробуйте ошибочный вариант программы с While f<9 выполнить в пошаговом режиме.
Примеры и задания
Задание 1.
Выполнить с использованием оператора Do задачу : Напечатать пары чисел – 0 1 0. Напишите два варианта программы с использованием 1 и 2 вариантов оператора Do.
Задание 2.
Выполнить с использованием оператора Do: Изображение, пройдя немного слева направо, поворачивает вниз и, пройдя немного, через некоторое время останавливается. Используйте 3 и 4 варианты оператора Do.
Задача: Компьютер предлагает человеку ввести слово, после чего распечатывает это слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово и так до тех пор, пока человек не введет слово «Хватит». Распечатав его с восклицательным знаком, компьютер отвечает «Хватит так хватит» и заканчивает работу.
Придумаем строковую переменную, в которую человек будет с клавиатуры вводить слово. Назовем ее Slovo. Выберем подходящий вариант оператора Do, это будет 2-й вариант (а 3-й и 4-й здесь вообще не подойдут), и пишем программу:
Dim Slovo As String
Do
Slovo = InputBox("Введите слово")
Debug. WriteLine(Slovo & "!")
Loop Until Slovo = "Хватит"
Debug. WriteLine("Хватит так хватит")
Задание 3.
Усложним эту задачу. Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер. И еще: если слово длинней 10 букв, компьютер должен добавить – «Тяжелая жизнь.».
