- •Лабораторная работа №2 Тема: Разработка программ линейной структуры в среде vba.
- •1) Способ представления алгоритма в виде блок-схемы.
- •2) Линейная структура программы в vba.
- •5) Выполните ввод числовых значений:
- •6) Программа выведет на экран монитора диалоговое окно с результатом вычислений:
- •Индивидуальные задания для самостоятельной работы
- •Задание 1. По предложенной блок-схеме разработать программу. Используя функцию Round, округлить результаты вычислений.
- •Варианты задания 3
- •Лабораторная работа №3 Тема: Разработка программ разветвленной структуры в среде vba.
- •1) Понятие разветвленной вычислительной структуры.
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 4 Тема: Разработка программ циклической структуры в среде vba.
- •1) Понятие циклического вычислительного процесса.
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •3) Внести изменения в программу Пример4 так, чтобы было возможно вычисление суммы любого количества чисел «2».
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •7) Реализовать данную программу (рис. 22) в среде vba Microsoft Excel. Выполнить вывод заголовков и результатов в окно Immediate:
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba.
- •1) Порядок обработки информационного массива.
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •Индивидуальные задания для самостоятельной работы
Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba.
Цель работы:
Научиться составлять алгоритмы обработки информационных массивов в виде блок-схемы.
Получить навыки составления программ обработки информационных массивов.
Получение дальнейших навыков по отладке и тестированию программ.
Ход работы:
1) Порядок обработки информационного массива.
Заполнение массива элементами выполняется в цикле. Вывод результативного массива, полученного преобразованием начального, так же производится в цикле.
Пример 7. Составить в виде блок-схемы и программы алгоритм вычисления функции У = Х2. Если Х принимает значения:
{-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("Введите количество элементов массива", "Окно ввода")
D im Массив_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 + at2/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 лет. |