7) Реализовать данную программу (рис. 22) в среде vba Microsoft Excel. Выполнить вывод заголовков и результатов в окно Immediate:

Рис. 22 Результаты работы программы Пример 6

Индивидуальные задания для самостоятельной работы

Задание 1. По предложенной блок-схеме разработать программу

1. Вычислить сумму квадратов первых семи натуральных чисел.	2. Вычислить произведение первых 10 натуральных чисел на 15.
3. Вычислить сумму первых 6 натуральных чисел.	4. Вычислить Y = sin^2x, при х изменяющемся на отрезке (а, b) с шагом h.
5. Вычислить Y = x^2*e^x, при х изменяющемся на отрезке (а, b) с шагом h.	6. Найти произведение первых 12 чисел
7. Рассчитать стоимость порций мороженого весом 100, 150 …, 500 гр. (цена 50 гр.- 3 руб.)	8. Вычислить y=100/(1-x^3) при x, изменяющемся от 2 до 4,5 с шагом 0,5.
9. Вычислить Y=4x^2 +1/x при x, изменяющемся от 1 до 3,5 с шагом 0,5.	10. Вычислить y= при x, изменяющемся от 1 до 5 с шагом 0,5.

Задание 2. Выполнить математическую постановку задачи. По разработанному алгоритму составить и отладить программу на языке VBA и выполнить по ней расчеты на ПЭВМ.

№ задачи	условие задачи
	Конечная скорость тела, падающего с высоты h, определяется формулой, где g-ускорение свободного падения. Получить таблицу значений скорости для высоты падения от 1м до 150м с шагом 10м.
	При хранении сырья процент отходов (испортившегося сырья) изменяется со временем: где t – время в сутках; a, b, c заданы. Получить таблицу процентов отходов в интервале времени хранения от 0 до 31 суток.
	Число инфицированных больных в момент времени t определяется по формуле: где  - заданный коэффициент, N – количество здоровых людей в цехе, к которым попадает инфицированный рабочий в момент времени t=0. Получить количество инфицированных рабочих в момент времени t={1,2,3…k}.
	При тепловой обработке продукта под давлением (в автоклаве) время обработки уменьшается в зависимости от давления: где Т – время обработки без давления, Р – давление в атмосферах. Составить таблицу соответствия времени обработки при заданном давлении Р для времени обработки без давления в интервале от 5 до 60 минут с шагом 5 мин.
	Температура конфорки после включения печи описывается функцией: t – время в минутах, a и b заданы. Получить таблицу значений температуры конфорки в течение 10 минут после ее включения с шагом 30 секунд.
	Определить потенциальную энергию спутника на высоте h=200 км в зависимости от массы М. Расчетные формулы: где g – ускорение свободного падения, R3- радиус Земли. Потенциальную энергию спутника определять для массы M, изменяющейся от 500 кг до 2 т с шагом 100 кг.
	Розничная цена на кондитерские изделия определяется по формуле: где Цо – оптовая цена, Нт.с. – торгово-сбытовая скидка (12%), Нн.об. – ставка налога с оборота (10%). Получить таблицу значений розничной цены в зависимости от оптовой, изменяющейся от 10 руб. до 160 руб. с шагом 2 руб.
	Вычислить и вывести десять значений переменной А, если последующее значение меньше предыдущего на две единицы. Первое значение А=24.
	Напечатать таблицу значений элементов убывающей последовательности: a = , где |х| <= 1, при значениях n, изменяющихся от 2 до 30 с шагом 2.
	Каждое последующее из десяти значений переменной А увеличить по сравнению с предыдущим на две единицы. Вычислить и вывести эти значения. Первое значение А = 4.