Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Операторы цикла Do
Циклы настолько широко применяются в программах, что у программистов давным-давно появилась потребность написать специальный оператор цикла, не использующий оператор GoTo. Последний неудобен хотя бы тем, что у программистов, пишущих большие программы, много времени и внимания уходит на поиск взглядом меток в тексте программы. К тому же GoTo нарушает стройную идеологию так называемого " структурного программирования", когда порядок действий задается не скачками из одной части программы в другую, а цепочкой вложенных друг в друга операторов. В общем, нынче широко использовать GoTo так же неприлично, как не объявлять переменные.
Операторы цикла в Visual Basic делятся на 2 вида: Do и For. Операторы вида Do встречаются в 5 вариантах:
Операторы вида For встречаются в 2 вариантах. О них - в следующем разделе. Оператор Do …. Loop Попытаемся составить с использованием 0 варианта оператора Do программу решения задачи о печати чисел 3 5 7 9 из предыдущего параграфа. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с измененным 1 вариантом программы решения этой задачи из того же параграфа. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.
Do можно перевести, как " Делай", а понимать следует просто как метку. Loop можно перевести, как " Петля" или " Возврат назад", а понимать следует так: " Возвращайся к метке Do ". Порядок работы обеих программ совершенно одинаков, так что можно считать слово Doзаменой метки m, а слово Loopсчитать заменой оператора GoTo m. Обе программы бесконечно печатают 3 5 7 9 11 ….. Прерывается цикл только с клавиатуры. Толку в 0 варианте оператора Do мы видим мало (пока).
Синтаксис оператора Do …. Loop: Do операторы операторы ……………. Loop Строки операторов между Do и Loop называются телом цикла. Оператор Do …. Loop While Добавьте в ваш проект еще 4 кнопки и выполните в пошаговом режиме программы с вариантами оператора Do 1 - 4, которые я привел ниже. Вы увидите, что все 4 варианта делают одно и то же и они очень похожи. Вопрос о том, зачем нужно целых 4 похожих варианта, рассмотрим чуть позже. Уверяю, они все нужны. Составим с использованием 1 варианта оператора Do программу решения задачи о печати чисел 3 5 7 9 из предыдущего параграфа. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с 1 вариантом программы решения этой задачи из того же параграфа. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.
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 условие продолжения работы цикла Оператор Do …. Loop Until
Until переводится " До тех пор, пока". Значит, Loop Until f > 9 понимать следует так: " Возвращайся к метке Do до тех пор, пока не выполнится условие f > 9".
Синтаксис оператора Do …. Loop Until: Do операторы операторы ……………. Loop Until условие завершения работы цикла Оператор Do While …. Loop
Do While f < = 9 понимать следует так: " Пока f < = 9 выполняй нижестоящие операторы вплоть до Loop".
Синтаксис оператора Do While …. Loop: Do While условие продолжения работы цикла операторы операторы ……………. Loop Оператор Do Until …. Loop
Do Until f > 9 понимать следует так: " Выполняй нижестоящие операторы вплоть до Loop, до тех пор, пока не выполнится условие f > 9".
Синтаксис оператора Do Until …. Loop: Do Until условие завершения работы цикла операторы операторы ……………. Loop Типичная ошибка начинающих – небрежное обращение со знаками сравнения. Многие не видят большой разницы в том, как записать – While f< =9 или While f< 9, а затем, «недополучив» результат, удивляются, почему. И здесь лучшим средством для понимания является отладочный режим. Попробуйте ошибочный вариант программы с While f< 9 выполнить в пошаговом режиме. Задача: Компьютер предлагает человеку ввести слово, после чего распечатывает это слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово и так до тех пор, пока человек не введет слово " Хватит". Распечатав его с восклицательным знаком, компьютер отвечает " Хватит так хватит" и заканчивает работу. Придумаем строковую переменную, в которую человек будет с клавиатуры вводить слово. Назовем ее Slovo. Выберем подходящий вариант оператора Do, это будет 2-й, и пишем программу: Dim Slovo As String Private Sub Command1_Click() Do Slovo = InputBox(" Введите слово") Debug.Print Slovo; "! " Loop Until Slovo = " Хватит" Debug.Print " Хватит так хватит" End Sub
Задание 42: Усложним эту задачу. Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер. Задание 43-44: Выполнить с применением оператора Do задания 38 и 41 из предыдущего раздела. Задание 45: Если камень бросить горизонтально со 100-метровой башни со скоростью v=20м/с, то его расстояние от башни по горизонтали s будет выражаться формулой s=vt, где t – время полета камня в секундах. Высота над землей h будет выражаться формулой h=100 – 9.81t2/2. Вычислять и печатать t, s и h для t = 0, 0.2, 0.4, 0.6 и так далее до тех пор, пока камень не упадет на землю. Разница между вариантами операторов Do Разницы две: · Между While и Until. Здесь соображения удобства. Что вам удобнее, указывать компьютеру, когда цикл нужно продолжать (f < = 9) или когда его нужно заканчивать (f > 9)? · В том, куда поставить условие - после Do или после Loop. В первом случае можно придумать такое условие, когда тело цикла не выполнится ни разу. Например, f = 3 Do Until f > 0 Debug.Print f; f = f + 2 Loop Во втором случае, каково бы ни было условие, тело цикла хотя бы раз, да выполнится.
Часто эти отличия для начинающих малосущественны, поэтому пока выбирайте оператор по вкусу. Оператор Exit Do Оператор Exit Doнужен для того, чтобы выходить из цикла не в начале тела цикла, не в конце, а в середине. Добавим его в тело цикла одного из вариантов программы: Private Sub Command2_Click() Debug.Print " Начало счета"; f = 3 Do Debug.Print f;
|