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

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

Цель работы:

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

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

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

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

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

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

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

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

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

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

Do

Тело цикла

Loop While условие

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

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

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

Do Until условие

Ложь

Тело цикла

Loop

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

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

Do

Тело цикла

Loop Until условие

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

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

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

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

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

Таблица 3.4

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

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

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

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

	Задана последовательность чисел 3, 5, 6, 8, 9, 11, 15, 16, 20, 21. Вычислить суммы пар чисел: первого и десятого, второго и девятого,…, пятого и шестого.
	Вычислить произведение целых нечетных чисел от m до n (m<n).
	Вычислить значение многочлена z=3x5-x4+6x3-2x2+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.