ЛАБОРАТОРНАЯ РАБОТА № 17

Редактор VBA. Оператор цикла с условием.

Цель работы:

· познакомиться с алгоритмом типа «цикл», оператором цикла с условием;

· получить навыки создания программного модуля с использованием оператора цикла с условием Do-Loop.

Теоретическая часть

Рамочные служебные слова Do – «делать», «выполнять», Loop – «оборот».

Это универсальный оператор цикла для выполнения наборов инструкций (операторов) неопределённое (произвольное) число раз в зависимости от результата текущего анализа внутреннего условия. имеется четыре формата записи, которые можно разделить на две группы.

Первая группа – повторение инструкций, пока (While) условие имеет значение истина (True)

Вариант 1 первой группы: проверка условия до входа в цикл (рис. 58)

Рис. 58. Оператор цикла с условием

В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу ложь.

Вариант 2 первой группы: проверка условия на выходе из цикла

Тело цикла

Loop While условие

В этом варианте цикл будет выполняться хотя бы один раз.

Вторая группа – повторение инструкций, до тех пор, когда (Until)) условие примет значение истина.

Вариант 1 второй группы: проверка условия до входа в цикл

Do Until условие

Ложь

Тело цикла

Loop

В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу истина.

Вариант 2 второй группы: проверка условия на выходе из цикла

Тело цикла

Loop Until условие

В этом варианте цикла будет выполняться хотя бы один раз.

Оборудование, инструменты и приборы

ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).

Варианты заданий

Составить алгоритм, эскиз окна формы и программный код для решения задач, приведенных в таблице 3.4.

Таблица 3.4

Варианты заданий

№ варианта	Задание

	Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня. В документе «Пробег дня 20 км» реализовать проект (сконструировать форму и набрать программу), в котором определить, через сколько дней спортсмен будет пробегать в день больше 20 км. Рекомендации. 1. Имена переменных, используемых в программе, назначать русскими словами, а не абстрактными латинскими буквами. 2. Переменная, обозначающая счётчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
	Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня. В документе «Сумма пробега 100 км» реализовать проект, в котором определить, через сколько дней спортсмен пробежит суммарный путь 100 км. Рекомендации. 1. Имена переменных, используемых в программе, назначать русскими словами, а не абстрактными латинскими буквами. 2. Переменная, обозначающая счетчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
	Найти сумму значений функции f(x)=(x²/2-1)/x для х=2, 4, 8, 16.
	Сколько чисел последовательности 1, 4, 7, 10, … нужно взять, чтобы их сумма превысила 100? Вывести величину последнего слагаемого и сумму.

Продолжение табл. 3.4


	Вычислить сумму .

	Найти произведение значений функции x= при а= 2, 4, 6, 8, 10.
	Найти сумму значений функции F(x)= , которые меньше 3. Расчёт выполнить на отрезке (-3; 2) с шагом 0,2.
	Найти произведение нечетных чисел от 41 до 89.
	Некто захотел подковать свою лошадь и обратился к кузнецу с просьбой взять с него подешевле. Кузнец предложил: «Заплати мне только за гвозди, которых я затрачу 24 штуки. За первый гвоздь заплати четверть рубля, за второй – половину рубля, за третий – один рубль и т.д. Все время удваивая плату за каждый следующий гвоздь.» Сколько стоит последний гвоздь и какова сумма платежа?
	Вычислить сумму 12+23+34+45+…+(n-1)*n, если дано натуральное число n>2.
	Определить, сколько чисел последовательности 2, 4, 6, 8, … нужно взять, чтобы их сумма превысила 100. Вывести величину последнего слагаемого и суммы.
	Некто продаёт свою лошадь по числу гвоздей на подковах, которых у неё 16. За первый гвоздь продавец просит 1 рубль, за второй – 2 рубля, и всегда за каждый следующий – вдвое больше, чем за предыдущий. Во сколько оценена лошадь?
	Найти произведение четных чисел от 50 до 100.
	Вычислить значение суммы S=х+2х²+3х³+4х⁴+…+ nхⁿпри х и n, вводимых с клавиатуры и отличных от нуля.
	Вывести произведение элементов последовательности b_n= при n=3, -1, 1/3, -1/9.
	Вычислить 28 элементов последовательности k_n= , начиная с 5-го элемента.
	Одноклеточная амёба каждые три часа делится на 2 клетки. Определить, сколько амёб будет чере3, 6, 9, 12,… 24 часа.
	Составить программу, которая запрашивает пароль (например, четырёхзначное число) до тех пор, пока он не будет правильно введен.
	Вычислить значения функции y=x³+bx-с при х=2, 4, 6.

Продолжение табл. 3.4


	Задана последовательность чисел 3, 5, 6, 8, 9, 11, 15, 16, 20, 21. Вычислить суммы пар чисел: первого и десятого, второго и девятого,…, пятого и шестого.
	Вычислить произведение целых нечетных чисел от m до n (m<n).
	Вычислить значение многочлена z=3x⁵-x⁴+6x³-2x²+7x+5 при одном значении x.
	Задана последовательность из n чисел: 3, 4, 7, 8, -9,12… определить сумму положительных элементов этой последовательности.
	Найти сумму всех n-значных чисел (1≤n≤4).
	Найти сумму всех n-значных чисел, кратных k (1≤n≤4).
	Сумма геометрической прогрессии вычисляется как сумма следующего ряда: Вычислить сумму при =1 и =1/2 с допустимой погрешностью =0.0001, т.е. должно быть Проверочное значение
	Вычислить значение числа (основание натурального логарифма) как сумму ряда с погрешностью, не превышающей 0,000001.
	Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,000001.
	Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,000001.
	Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,001.