3. Операторы повтора

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

Многократно выполняемые последовательности операторов называют циклами, а изменяющиеся в цикле переменные – переменными цикла.

Алгоритм циклической структуры должен содержать:

1. Подготовку цикла – задание начальных значений переменных цикла перед первым его выполнением;

2. Тело цикла – операторы, которые выполняются при различных значениях переменных цикла;

3. Изменение значений переменных цикла перед его новым повторением;

4. Управление циклом – проверку условия окончания цикла или перехода на начало тела цикла.

В VB для этой цели существуют два вида элементарных циклических структур:

• циклы с параметром;

• циклы с условием.

1. Циклы с параметром

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

В языке VB циклы с параметром реализуются с помощью оператора For, который имеет следующий формат:

For Счетчик:=S1 To S2 [Step Шаг] Тело цикла Next [Счетчик]

где

Счетчик – параметр цикла порядкового типа;

S1 и S2 – выражения, определяющие начальное и конечное значение параметра цикла;

Шаг – шаг изменения значения счетчика;

Тело цикла – многократно выполняемые операторы.

Шаг может быть как положительным, так и отрицательным числом. Если Шаг равен единице, то конструкция Step Шаг может быть опущена. Если Шаг отрицателен, то начальное значение, естественно, должно быть больше конечного.

Цикл повторяется пока значение параметра цикла лежит в интервале [S1,S2], причем эти выражения S1 и S2 вычисляются только один раз в начале цикла. Необходимо, чтобы параметр цикла, начальное и конечное значения были одного типа.

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

Примеры конструкций операторов цикла с параметром:

For i = 1 To 10 Print i * 100 Next i

For L = 100 To 5 Step -0.5 x = y * L Next

For i = 1 To 5 For j = 10 To 20 Print i + j Next j Next i

Из тела цикла с параметром можно выйти до окончания цикла с помощью оператора Exit For.

Пример 1. Напечатать 10 чисел ряда Фибоначчи (каждое последующее число равно сумме двух предыдущих), начиная с 11 числа.

Private Sub Command1_Click() Dim f1 As Integer, f2 As Integer Dim i As Byte f1 = 1: f2 = 1 For i = 1 To 20 If i > 10 Then Print f1 f2 = f1 + f2 f1 = f2 - f1 Next i End Sub

Пример 2. Вычислить сумму конечного ряда .

Private Sub Command1_Click()

n=Val(Text1.Text)

s=0

'Организация цикла по числу членов последовательности

For k=1 To n

'Вычисление очередного члена последовательности

y=(k+0.3)/(3*k*k+5)

s=s+y 'Вычисление суммы ряда

Next k

Text2.Text=Str(s) 'Вывод результирующей суммы

End;