Тело цикла

Циклы с известным количеством повторений

Теоретическое обоснование

VISUAL BASIC: ПРОГРАММИРОВАНИЕ ЦИКЛОВ

Цель и содержание:приобретение практических навыков работы с программами циклической структуры.

Цикл – это многократно повторяемая часть алгоритма или программы. Циклическим называется алгоритм (программа) содержащий один или несколько циклов. Изменяющаяся в цикле переменная называется параметром цикла (счетчиком), а повторяющаяся часть – телом цикла. Различают циклы с заранее известным числом повторений и циклы, в которых число повторений заранее неизвестно, а определяется в процессе счета или проверок условий. Если в итерационном цикле проверка условия повторения производится перед каждым циклом, то он называется с предусловием; а если после его очередного выполнения – с постусловием.

В Visual Basic для организации циклов используются операторы:

· For ... Nextдля цикла с счетчиком;

· Do While [или Until] Условие ... Loopдля цикла с предусловием;

· Do ... Loop While [или Until] Условие для цикла с постусловием.

Общий вид:

ForCчетчик = Начальное_значениеToКонечное_значение[StepШаг]

Next[Cчетчик]

Если начальное и конечное значения счетчика не противоречивы, то тело цикла (набор операторов цикла) повторяются для каждого указанного Счетчиком значения с заданным Шагом. Если шаг не указан, то считается равным 1. После цикла выполняется следующий оператор.

С помощью цикла типа for удобно находить суммы, произведения, искать максимальные и минимальные значения и т. п.

Пример 1.Найти количество отрицательных чисел среди N введенных.

… ‘ объявление переменных и ввод значения N

kol=0 ‘первоначально количество чисел равно 0

For i = 1 To n ‘начало цикла

a = Val (InputBox("Введите число: ", " Ввoд исходных чисел"))

if a<0 then kol=kol + 1 ‘прибавление единицы, если число отрицательно

Next i ‘возвращение на начало цикла с увеличением счетчика на шаг

MsgBox kol , , "Количество всех отрицательных чисел="

Пример 2. Найти наибольшее среди N введенных чисел.

… ‘ объявление переменных и ввод значения N

max = -32000 ‘первоначальное значение max

For i = 1 To N ‘начало цикла

b = Val (InputBox("Введите число:", " Ввoд исходных чисел"))

If b > max then max = b ‘сравнение числа с максимальным

Next i ‘возвращение на начало цикла с увеличением счетчика на шаг

Print "max="; max

Пример 3. Найти произведение отрицательных чисел среди N введенных.

… ‘ объявление переменных и ввод значения N

pr=1 ‘первоначально значение произведения равно 1

For i = 1 To n

a = Val (InputBox("Введите число: ", " Ввoд исходных чисел"))

if a<0 then pr=pr* а ‘если число отрицательное, то умножается на pr

Next i

MsgBox pr , , "Произведение всех отрицательных чисел="