Оператор For…Next

Используется для организации циклов с известным числом повторений.

Синтаксис:

For Имя_переменной = m1 To m2 [Step h]

Оператор 1

Оператор 2

…

Оператор n

Next Имя_переменной,где

Имя_переменной – переменная, которую определяет программист в качестве счетчика цикла,

m1 – число, задающее начальное значение счетчика;

m2 – конечное значение счетчика,

Step – ключевое слово, используемое для задания шага изменения счетчика цикла, необязательный элемент, если шаг = 1,

h – число, задающее шаг изменения счетчика цикла, т. е. значение, на которое увеличивается (если шаг >0) или уменьшается (если шаг <0)значение счетчика после каждого выполнения тела цикла,

Next – конец цикла.

В строке с оператором For сначала счетчику цикла присваивается начальное значение m1 и оно сравнивается с конечным значением m2. Если шаг >0 и значение счетчика > m2, то цикл ни разу не выполняется и управление передается оператору, следующему за словом Next, т. е. происходит выход из цикла. Если же значение счетчика < или = m2, то выполняется тело цикла, затем изменяется значение счетчика на величину шага и происходит возврат на строку с оператором For. Здесь текущее значение счетчика сравнивается с m2:

· если оно > m2 и шаг > 0, то происходит выход из цикла;

· если шаг < 0, то цикл выполняется пока значение счетчика > или = m2, выход из цикла – при значении счетчика < m2;

Если шаг = 1, то ключевое слово Step можно не писать и шаг не указывать.

Примеры.

1). For i=1 to 10 2). For i=1 to 10 step 2

… …

next i next i

3). For j=12 to 1 step -1 …

next i

В блок-схеме цикл с оператором For изображается следующим образом:

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

Задача 1

Требуется вычислить сумму 10 значений функции f (x) = x + sin x при значениях аргумента х, изменяющихся от начального значения х_нач = 1 с шагом Δх = 0,1 т. е. вычислить сумму

при х_нач = 1 и Δх = 0,1.

Составим алгоритм решения задачи, который строится по принципу накопления суммы, т. е. каждое вычисленное значение функции f(x_i) добавляется к сумме предыдущих значений:

S = S + f(x_i), где f(x_i) = x_i + sin x_i

Введем переменные:

S сумма значений функции

x значение аргумента

dx шаг изменения аргумента

i счетчик цикла

Зададим начальные значения переменных

i=0, S=0 присвоим

x=1, dx=0.1 введем с клавиатуры

1. Вычисляем 1-е значение функции при х = 1

f(x)=f(1)

--Добавляем вычисленное значение к сумме

S=S+f(1)

--Изменяем значение х

х=х+dx

--Увеличиваем значение счетчика на 1

i=i+1

--Проверяем число вычисленных значений:

i<10? Да

2. Вычисляем 2-е значение функции: f(x)= f(1,1)

--Добавляем вычисленное значение к сумме: S=S+f(1,1)

--Изменяем значение х: х=х+dx x=1,2

--Увеличиваем значение счетчика на 1: i=i+1 i=2

--i<10? Да

3. Вычисляем 3-е значение функции: f(x)= f(1,2)

-- и т. д….

10. Вычисляем 10-е значение функции: f(x)= f(1,9)

--Добавляем вычисленное значение к сумме: S=S+f(1,9)

--Изменяем значение х: х=х+dx x=2

--Увеличиваем значение счетчика на 1: i=i+1 i=10

--i<10? Нет, i=10

Вычисление закончено. Выводим на экран значение суммы S.

В пунктах 1 – 10 выполняются одни и те же действия с различными значениями переменных. Их можно оформить в виде цикла.

Блок-схема алгоритма

Напишем программный код процедуры для вычисления суммы.

Private Sub btnOption_Click()

Dim x, dx, S as single, i as byte

x=Val(txtX.Text)

dx=Val(txtdX.Text)

S=0

i=0

For i=1 to 10

S=S+x+sin(x)

X=x+dx

Next i

txtS.Text=Str(S)

End Sub

Дата добавления: 2014-01-07