Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba

Цель работы:

• Научиться составлять алгоритмы обработки информационных массивов в виде блок-схемы.

• Получить навыки составления программ обработки информационных массивов.

• Получение дальнейших навыков по отладке и тестированию программ.

Ход работы:

1) Порядок обработки информационного массива.

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

Пример 7. Составить в виде блок-схемы и программы алгоритм вычисления функции У = Х². Если Х принимает значения:

{-5, 5.5, 0.8, -2, 0.25}.

Решение: При составлении алгоритма решения данной задачи можно использовать алгоритмическую структуру цикл со счётчиком. В качестве счетчика будет использоваться переменная I. Так как элементов в массиве 5, то счётчиком цикла будет номер элемента, который принимает значения от 1 до 5 с шагом 1 (рис. 23).

Вначале необходимо организовать цикл ввода элементов массива: X(I).

• После этого в цикле следует выполнять оператор: Y(I)= X(I)^2.

• В результате работы цикла результативный массив Y(I) заполняется элементами, вывод которых, так же осуществляется в цикле.

4) Реализовать данную программу в среде vba Microsoft Excel:

Sub Пример7()

Dim i, n As Integer

n = InputBox("Введите количество элементов массива", "Окно ввода")

Dim Массив_X(5) As Single

Dim Массив_Y(5) As Single

For i = 1 To n

Массив_X(i) = InputBox("Введите " & i & " элемент массива", "Окно ввода")

Next i

For i = 1 To n

Массив_Y(i) = Массив_X(i) ^ 2

Next i

Debug.Print "Массив X", "Массив Y"

For i = 1 To n

Debug.Print Массив_X(i), Массив_Y(i)

Next i

End Sub

Рис. 23 Блок-схема алгоритма Пример 7

При запуске программы на счёт в диалоговые окна ввода введите последовательно числовые значения, указанные в примере 7.

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

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

1 . Вычислить zi= , где xi - элементы массива (x1, x2, ... xn), при l=2	2. Найти среднее значение для 12 вводимых чисел.
3. Вычислить средний рост студентов где ri - элемент массива роста (r1, r2, ..., rn).	4. Вычислить суммарную выручку 8 магазинов, где vi - элемент массива выручки (v1, v2, ..., v8).
5 . Вычислить средний балл по предмету студентов в группе, где bi - элемент массива оценок (b1, b2, ... , bn).	6. Подсчитать общее количество товаров на складе, если известно количество каждого вида товара, где ki - элемент массива количеств (k1, k2, ..., kn).
7. Профсоюзный взнос 1% от заработной платы. Определить общую сумму профсоюзных взносов рабочих, где zi - элемент массива зарплат (z1, z2, ...,zn).	8. Сколько было перечислено в фонд взаимопомощи, если каждый работник внес заработок одного дня, где zi - элемент массива зарплат за месяц (z1, z2, ... , zn). Количество рабочих дней в месяце 22.

9. Определить общую сумму премий, если премия каждому рабочему составила 10% его заработка, где zi - элемент массива зарплат (z1, z2, ...,zn).	10. Определить заработную плату каждого рабочего цеха, за вычетом профсоюзного взноса (1%), где zi - элемент массива зарплат (z1, z2, ...,zn).

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

№ задачи	условие задачи
	Плотность воздуха убывает с высотой по закону Считая, что: , 1/м напечатать таблицу зависимости плотности от высоты при значениях высот; 10, 50, 100, 200, 300, 500, 1000 м.
	Автомобиль расходует Q [л] бензина на 100 км пути Q = (AV – B + C/V) е^KV, где V- скорость; А – коэффициент, А=0,21 л ч/км; В - коэффициент, В=0,18 л/км; С - коэффициент, С=7,60 л/ч; К - коэффициент, К=0,005 ч/км; Рассчитать и напечатать в виде таблицы расход бензина для скоростей: 30, 50, 60, 75, 90, 100, 120 км/ч.
	Напечатать таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы шкалы Фаренгейта (F). Перевод по формуле: F = 1,8С + 32 для температур: 5, 10, 20, 25, 30, 40, 60, 100С.
	Напечатать таблицу изменения силы тяжести от расстояния между телами G = 6,67 10^-11 Н м^2/кг; М1 = 200 г; М2 = 1,5 кг; при значениях расстояния: 0,05; 0,07; 0,2; 0,5; 0,9.
	Напечатать таблицу изменения пути S = V0t + at^2/2, в зависимости от времени при значениях t, равных: 0, 5, 10, 20, 60, 120.
	Напечатать таблицу изменения скорости V = V0 + at, V0 =10 м/с a =15 м/с^2 В зависимости от времени при значениях t, равных 2, 10, 20, 60, 120, 180 с.
	В магазин привезли 100 кг клюквы, состоящей на 99% из воды. Напечатать таблицу зависимости между новым весом, обозначенным через X, получившимся в результате хранения, и процентом содержания воды (99-Р) по формуле: 100 Х – (99-Р)Х = 100, откуда Х = 100/ (100 – (99 - Р)) при неравномерной усушке на Р = {4%, 6%, 7%}.
	Какова дальность видения (р) с самолета, летящего над морем на высоте (Н) по формуле: 1,2 км; 1,9 км; 2,3 км; 2,8 км; 3,5 км; 4,6 км ? (Диаметр Земли – 12700км).
	Сбербанк выплачивает 3% годовых. Напечатать таблицу изменения суммы по годам, если , где Р – сумма через n лет; P0 – первоначально внесенная сумма, Р0 = 1000 руб.; n – число лет с момента внесения суммы. если n принимает значения: 1, 2, 5, 8, 10, 15, 20.
	Уменьшение первоначальной стоимости основных фондов предприятия описывается выражением: У = фос.пер. (1 – (1 – g/100)^Т), где фос.пер. – полная первоначальная стоимость основных фондов (зданий, оборудования); g – среднегодовой темп роста производительности общественного труда (в %); Т – период времени с момента изготовления или покупки основных фондов (в годах). Получить таблицу уменьшения первоначальной стоимости основных фондов: через 3, 5, 8, 11, 25, 28 лет.