Оператор цикла For…Next

Синтаксис оператора:

For Счетчик = Начало Тo Конец [Step Шаг]

Блок_Операторов

Next Счетчик

Здесь обозначено:

For – для (обязательное ключевое слово VB);

To – до (обязательное ключевое слово VB);

Блок_Операторов – один или несколько операторов, называемых телом цикла;

Счетчик – целая переменная, которая считает количество выполняемых циклов;

Начало, Конец – начальное и конечное значения счетчика;

Step – шаг (ключевое слово VB);

Шаг – шаг изменения счетчика; может быть и отрицательным; параметр необязательный, так как если шаг равен 1, можно Step Шаг опустить;

Next – следующий (обязательное ключевое слово VB, конец записи оператора цикла).

Значение счетчика (Начало, Конец) могут быть численными константами или переменными целого или вещественного типа, могут быть отрицательными или положительными числами. Чтобы тело цикла выполнилось хотя бы один раз, должно быть Начало ≤ Конец, если Шаг > 0, и Начало ≥ Конец, если Шаг < 0. Как только окажется, что Счетчик > Конец (если Начало < Конец), выполнение цикла заканчивается. Если Начало = Конец, цикл выполнится один раз;

Оператор For чаще используется в случаях, когда при организации циклов необходимо использовать счетчик.

Пример 2.

Условие задачи:

Вычислить сумму квадратов первых N чисел натурального ряда.

Схема алгоритма:

Параметром цикла является переменная i. Значение переменной i изменяется от 1 до N с шагом 1. Каждое значение i, возведенное в квадрат прибавляется к переменной Sum и результат присваивается значению Sum. Таким образом, в переменной Sum накапливается сумма квадратов i. Так как при первом проходе значение Sum в правой части выражения должно быть равно нулю, до начала цикла значение Sum обнуляется. Таким же образом можно было бы подсчитать произведение, но тогда начальное значение произведения должно равняться 1.

Для ввода N на форму установлено текстовое поле TextBox1. Вывод результата осуществляется в свойство Caption метки Label4.

Форма	Программа
	Private Sub CommandButton1_Click() Dim i As Integer, Sum As Single, N As Integer N = Val(TextBox1.Text) ‘Ввод N Sum = 0 ‘Обнуление суммы For i = 1 To N Sum = Sum + i ^ 2 ‘Накопление суммы Next i Label3.Caption = Sum ‘Вывод результата End Sub

Самостоятельная работа

Задание 1

Составить схему алгоритма, написать и отладить программу в соответствии с вариантом. Подсказка: в интервале, где расположен корень, функция меняет знак.

№	Задача
1	Дано уравнение X – SinX – 1 = 0. Найти интервал [Х1, Х2], в котором расположен корень.
2	Составить таблицу стоимости порций сыра весом 50, 100, 150, … 1000 г. Стоимость сыра — вводимая величина.
3	Плотность воздуха убывает с высотой по закону  = 0е^–^hz . Считая, что 0 = 1,29 кг/м^3 , Z = 1.25 *10 ^–4 1/м, напечатать таблицу зависимости плотности от высоты для значений от 0 до 1000 м с шагом 100 м.
4	Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9, 12, …, 24 часа.
5	Дано уравнение x + Ln(x + 0.5) – 0.5 = 0. Найти интервал [Х1, Х2], в котором расположен корень.
6	Составить программу вычисления функции Y = ax^2 +b. Аргумент функции изменяется от 1 до 5 с шагом 0,5.
7	Составить программу вычисления функции . Аргумент принимает значения от -5 до 5 с шагом 1.
8	Определить 10 чисел Фибоначчи. Числа Фибоначчи — это такая последовательность чисел, в которой первые два числа равны 1, каждое следующее число — сумма двух предыдущих.
9	Построить таблицу соответствия между унциями и граммами, если 1 унция = 28,353495 г.
10	Вывести на экран таблицу квадратов чисел от 10 до 25.
11	Составить программу, которая выводит таблицу степеней двойки от нулевой до десятой.
12	Составьте программу расчета площади круга для всех радиусов от 0,5 до 5. Шаг изменения радиуса круга 0,5.
13	Составить суточное расписание движения автобуса, если известно, что первый автобус прибывает на остановку в 6:30, а периодичность движения 30 мин.
14	Получить таблицу пересчета миль в километры. 1 миля = 1,609344 км.
15	Вывести факториалы чисел от 3 до 10.

Задание 2

№	Задача
1	Вычислить
2	Вычислить
3	Вычислить
4	Вычислить
5	Вычислить
6	Составить программу вычисления a^n, не используя операцию возведения в степень.
7	Составить программу, которая вычисляет сумму первых n членов ряда 1 + Количество суммируемых членов исходная величина
8	Составьте программу для того, чтобы убедиться в справедливости равенства
9	Составьте программу для того, чтобы убедиться в справедливости равенства
10	Составить программу, которая вычисляет сумму первых n членов ряда 1, 3, 5, 7, …. Количество суммируемых членов ряда задается во время работы программы.
11	Составить таблицу умножения для числа 12.
12	Вычислить произведение натуральных чисел, начиная от 12 до 18.
13	Вычислить приближенно площадь одной арки синусоиды, разделив отрезок от 0 до  на 10 частей и суммируя площади десяти прямоугольников с основанием /10 и высотой, равной значению функции на правой границе каждого интервала.
14	Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней.
15	Вычислить n-ое число Фибоначчи. Числа Фибоначчи — это такая последовательность чисел, в которой первые два числа равны 1, каждое следующее число рассчитывается как сумма двух предыдущих.