методические указания к лабораторным работам

(Срок окупаемости рассчитывается как количество лет, в течение которых поступающие денежные потоки превысят сумму первоначальных вложений (ПВ)). Значения величин денежных потоков считываются из ячеек рабочего листа.

Гражданин 1 февраля открыл счет в банке, вложив 26 000 р. Через каждый месяц размер

14вклада увеличивается на 1,3 % от имеющейся суммы. Определить, через сколько меся-

цев размер вклада превысит 30 000 р. Найти сумму ряда с точностью ε = 10-P 4:P

Задание 4

В соответствии с вариантом задания (таблица 8) разработать пользовательскую форму и составить программу в редакторе VB MS Excel. Подобрать контрольный пример.

Таблица 8

Продолжение таблицы 8

Натуральное число называется совершенным, если оно равно сумме своих делителей,

5включая 1 и исключая само число (например, 6 = 1 + 2 + 3). Найти все совершенные числа, меньшие 10 000.

Издательство планирует выпустить: первую книгу тиражом в 55 экземпляров, а каждую следующую тиражом, в 2 раза превышающим тираж предыдущей книги. При этом пер-

6вая книга состоит из 480 листов, а в каждой следующей на 65 листов меньше, чем в предыдущей. Рассчитать стоимость заказа в типографии первых 3, 4, 5, 6 и 7 книг, если действуют следующие расценки: печать до 100 экз. – 10 р. за лист; от 100 до 1000 экз. – 7 р. за лист; свыше 1000 экз. – 5 р. за лист.

Некое предприятие имеет 5 филиалов. Известно, что в первом филиале работает 96 специалистов первой категории, во втором филиале – на 16 человек меньше, чем в первом, в третьем – на 16 человек меньше, чем во втором и т. д. Ежемесячная зарплата специалиста первой категории составляет 15 тыс. р., ведущего специалиста на 4 тыс. р. больше, чем у специалиста первой категории, главного специалиста на 8 тыс. р. больше, чем у

7специалиста первой категории, зам. начальника и начальника соответственно на 12 тыс. р. и 16 тыс. р. больше, чем у специалиста первой категории. Определить ежемесячные расходы на зарплату для каждого филиала в отдельности и по всему предприятию в целом, если работающих в данном филиале ведущих специалистов в 2 раза меньше, чем специалистов первой категории в том же филиале, главных специалистов, зам. начальников и начальников соответственно в 4; 8 и 16 раз меньше, чем специалистов первой категории, работающих в том же филиале.

8Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр (например, 145).

Определить, сколько можно купить толковых, фразеологических и орфографических

9словарей русского языка, если цена толкового словаря 600 р., фразеологического – 500 р., орфографического – 50 р., и если библиотеке надо купить 22 словаря на 6000 р.

При анализе хозяйственной деятельности предприятия была установлена следующая

закономерность: в течение 5 лет, начиная с февраля 2004 г., прибыль предприятия ежемесячно увеличивалась на i %, где i – номер месяца (т. е. в феврале – на 2 %, в марте –

10на 3 % и т. д.), по сравнению с суммой прибыли в предыдущем месяце. Определить полученные предприятием суммы прибыли за 2004 г., 2005 г., …, 2008 г., а также общую сумму прибыли за эти 5 лет, если известно, что сумма прибыли за декабрь 2008 г. составила 10 000 тыс. р. (воспользоваться вложенными циклами с обратным счетчиком).

Найти все трехзначные натуральные числа n, не превышающие 200 и представляемые в

11виде суммы трех кубов натуральных чисел (n = x3P P + y3P P + z3P )P . Указать сами числа n и соответствующие им три числа.

Определить, сколько можно купить тетрадей по 12 листов, по 48 листов и по 96 листов,

12если цена тетради с 96 листами 60 р., с 48 листами – 30 р., с 12 листами – 15 р., и если на 600 р. надо купить 25 тетрадей.

Найти все трехзначные натуральные числа n (200 < n < 300), представляемые в виде

13суммы трех кубов натуральных чисел (n = x3P P + y3P P + z3P )P . Указать сами числа n и соответствующие им три числа.

16

Окончание таблицы 8

Доход от сдачи в аренду одной из четырех квартир за 2006 г. составил 120 тыс. р., доход от сдачи в аренду второй квартиры за этот же год на 2 % превысил доход от сдачи в аренду первой, третьей – на 4 % больше, чем доход от сдачи в аренду второй, а четвер-

14той – на 8 % больше, чем доход от сдачи в аренду третьей квартиры. Известно, что доход от сдачи в аренду каждой из четырех квартир за 2007 г. вырос по сравнению с предыдущим годом на 15 %, а за 2008 – на 30 % по сравнению с 2007 г. Определить доход предприятия в целом, полученный за каждый из трех годов, начиная с 2006 г., и суммарный доход предприятия за три года.

Определить, какое количество специалистов каждой категории может принять на работу предприятие, если ежемесячная зарплата специалиста первой категории составляет 15

15тыс. р., ведущего специалиста – 20 тыс. р., а главного специалиста – 25 тыс. р. и если количество штатных единиц должно быть равно 35 при ежемесячных расходах на зарплату 625 тыс. р.

ЛАБОРАТОРНАЯ РАБОТА 6

ОДНОМЕРНЫЕ МАССИВЫ

Основные сведения

Массив – это упорядоченная совокупность определенного количества однотипных переменных с общим именем и разными индексами. Каждая такая переменная – элемент массива. Количество элементов в массиве – размер массива.

Одномерный массив представляет собой упорядоченный набор пронумерованных элементов одного типа, которые расположены в одной строке или столбце. Элемент массива обозначается путем указания имени массива и индекса, заключенного в круглые скобки, например, Х(7).

Для объявления массива используется оператор Dim:

Dim Имя_Массива (Размерность_Массива) As Тип_Элементов

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

Dim Имя_Массива (1 To Размерность_Массива) As Тип_Элементов Для изменения границ массива используется оператор ReDim:

ReDim Имя_Массива (Размерность_Массива)

Пример

Известны данные о численности населения (в миллионах жителей) 12 государств: Страна. Численность населения. Необходимо разработать пользовательскую форму и составить программу в редакторе VB MS Excel, с помощью которой будет осуществляться:

1)ввод исходных данных и их вывод в виде таблицы на рабочий лист;

17

2)определение государства, в котором проживает больше всего жителей, а также количество и название стран, в которых численность населения составляет от 10 до 50 миллионов жителей;

3)вставка записи о численности населения еще одного государства, которая должна быть расположена после записи, соответствующей государству с наибольшим числом населения;

4)сортировка полученных данных по полю Страна в алфавитном порядке. Пусть пользовательская форма будет иметь вид, представленный на рис. 12.

Рис. 12. Таблица и форма «Численность населения европейских государств»

Свойства объектов формы представлены в таблице 9.

Значения массива, соответствующего названиям стран, будут считываться с рабочего листа MS Excel. Для этого необходимо данные названия предварительно ввести в ячейки первого листа (рис. 12). А значения массива, отвечающего за численность населения, будем вводить с помощью функции InputBox.

Для обработки события нажатия кнопки «Ввод и вывод данных» введем следующий код:

18

Private Sub InputOutputData_Click() SizeM = 12

For i = 1 To SizeM ‘ввод элементов массивов

NazvGos(i) = Worksheets("Лист1").Range("A" & i + 1).Value KolNasel(i) = Val(InputBox("Введите численность населения страны " &

NazvGos(i) & " в млн. чел.", "Ввод данных"))

Worksheets("Лист1").Range("A" & i).Font.FontStyle = "полужирный" ‘горизонтальное выравнивание

Worksheets("Лист1").Range("A" & i).HorizontalAlignment = xlCenter Worksheets("Лист1").Range("B" & i).Font.FontStyle = " полужирный" Worksheets("Лист1").Range("B" & i).HorizontalAlignment = xlCenter

End If

‘задание стиля границ ячеек

Worksheets("Лист1").Range("A" & i).Borders.LineStyle = xlContinuous Worksheets("Лист1").Range("B" & i).Borders.LineStyle = xlContinuous

‘числовой формат ячейки

If i>1 Then Worksheets("Лист1").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

При нажатии на кнопку «Рассчитать» на первый лист ниже таблицы будет выводиться название государства, в котором проживает больше всего жителей, а также количество и название стран, в которых численность населения составляет от 10 до 50 млн. жителей. Код для обработки события нажатия кнопки «Рассчитать» имеет вид:

Private Sub calc_Click() Dim maxKN As Single

maxKN = KolNasel(1) k = 0

For i = 1 To SizeM

‘поиск максимального элемента и его номера по массиву «Численность населения»

If KolNasel(i) > maxKN Then maxKN = KolNasel(i): NomerMax = i

End Sub

19

При нажатии на кнопку «Добавить запись» на втором листе будет выводиться таблица, содержащая информацию о численности населения 13 стран, т. е. после записи, соответствующей государству с наибольшим числом населения, еще будет вставлена следующая запись «Болгария 10,392». Для обработки события нажатия кнопки «Добавить запись» введем следующий код:

Private Sub add_Click()

For i = SizeM + 1 To NomerMax + 2 Step -1 ‘раздвигаем элементы массива

If i>1 Then Worksheets("Лист2").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

При нажатии на кнопку «Отсортировать» будет выполняться сортировка массивов по названиям стран в алфавитном порядке, а результат сортировки будет выведен на третий лист. Код для обработки события нажатия кнопки «Отсортировать» имеет вид:

If i>1 Then Worksheets("Лист3").Range("B" & i).NumberFormat = "0.000" Next i

End Sub

На первом рабочем листе разместим кнопку «Форма» для вызова формы «Численность населения европейских государств». Запустим данную форму и проверим работу составленной программы (рис. 13 и 14).

Рис. 13. Результат нажатия кнопок «Ввод и вывод данных» и «Рассчитать»

Теперь введем код обработки событий нажатия кнопок «Очистить» и «Выход»:

Worksheets("Лист1").Range("A" & i + 14). ClearContents Worksheets("Лист1").Range("B" & i + 1). ClearContents Worksheets("Лист2").Range("A" & i). ClearContents Worksheets("Лист2").Range("B" & i). ClearContents

21

Worksheets("Лист3").Range("A" & i). ClearContents

Worksheets("Лист3").Range("B" & i). ClearContents

Next i

End Sub

Private Sub exitForm_Click()

End

End Sub

Рис. 14. Результат нажатия кнопок «Добавить запись» и «Отсортировать»

Задание к лабораторной работе 6

В соответствии с вариантом задания (таблица 10) разработать пользовательскую форму и составить программу в редакторе VB MS Excel, с помощью которой осуществляется:

1)ввод исходных данных двух одномерных массивов (массив по первому полю таблицы считывается с ячеек рабочего листа, по второму полю – через функцию InputBox или задается с помощью генератора случайных чисел) и их вывод в виде таблицы на рабочий лист;

2)обработка массива (нахождение суммы, количества элементов и т. п. в зависимости от варианта задания) и вывод ее результатов на тот же рабочий лист;

3)вставка или удаление (в зависимости от варианта задания) элемента массива и вывод полученного массива на второй рабочий лист;

4)сортировка элементов массива (для нечетных вариантов – в порядке возрастания, для четных – в порядке убывания) и вывод его на третий рабочий лист.

Для вызова пользовательской формы создайте на первом листе кнопку.

22

Таблица 10

Известны данные о количестве каждого из 12 видов изделий, проданных меховым сало-

ном: Название изделия. Количество.

Определить, какое изделие пользуется наибольшим спросом и какую долю (в %) в об-

1щем количестве проданных изделий оно занимает.

Добавить запись еще об одном проданном изделии после записи, соответствующей изделию с максимальным спросом.

Отсортировать полученные данные по полю Количество.

Известны данные о максимальной скорости каждой из 12 марок легковых автомобилей:

Марка автомобиля. Скорость.

Определить среднее значение максимальной скорости, а также количество и название марок

2автомобилей, которыемогутразвиватьскорость, превышающуюнайденноесреднеезначение. Добавить запись еще об одной марке автомобиля после первой встретившейся записи, у которой значение максимальной скорости превышает найденное среднее значение.

Отсортировать полученные данные по полю Скорость.

Известны данные о прибыли, полученной предприятием за каждый месяц одного года:

Месяц. Прибыль.

3Определить сумму прибыли, полученную предприятием за год, а также в каком месяце прибыль была наименьшей.

Удалить запись, соответствующую месяцу «Август». Отсортировать полученные данные по полю Прибыль.

Известны данные о стоимости 1 кг каждого из 12 видов конфет: Название конфет.

Стоимость.

4Определить среднюю стоимость 1 кг конфет, а также, какие конфеты стоят дороже всех остальных.

Удалить запись, соответствующую самым дорогим конфетам. Отсортировать полученные данные по полю Стоимость.

Известны данные о зарплате 12 сотрудников фирмы: ФИО сотрудника. Зарплата. Определить среднюю зарплату сотрудников фирмы, а также фамилии и процент от общего

5количества сотрудников, у которых заработная плата не превышает среднего показателя. Удалить запись, соответствующую сотруднику с одной из фамилий.

Отсортировать полученные данные по полю ФИО.

Известны данные о среднемесячной температуре (в градусах Цельсия) в каждом месяце года: Месяц. Температура.

6Определить, вкакиемесяцытемпература былаот10 °Сдо0 °Сиколичество такихмесяцев. Удалить запись, соответствующую месяцу «Июнь».

Отсортировать полученные данные по полю Температура.

Известны данные о количестве жителей 12 городов (тыс. человек): Название города. Ко-

личество жителей.

Определить общее количество жителей, проживающих в 12 городах, а также количество

7и название «городов-миллионеров».

Добавить запись, содержащую информацию об еще одном городе, перед последним по списку «городом-миллионером».

Отсортировать полученные данные по полю Название города.

23

Продолжение таблицы 10

Известны данные о стоимости каждого из 12 туров туристического агентства: Название тура. Стоимость.

Определить, какой тур является самым доступным по цене, а также количество туров,

8стоимость которых не превышает 60 000 р.

Добавить запись об еще одном предлагаемом туристическим агентством туре, которая должна быть расположена следующей после записи с наиболее доступным по цене туром. Отсортировать полученные данные по полю Стоимость.

Известны данные о количестве часов проката каждой из 12 различных марок легковых автомобилей: Марка автомобиля. Количество часов проката.

Определить общее количество часов проката 12 автомобилей, а также, автомобиль ка-

9кой марки имеет наибольшее количество часов проката.

Добавить запись об еще одной марке автомобиля, которая должна быть расположена перед записью, соответствующей автомобилю с наибольшим значением количества часов проката.

Отсортировать полученные данные по полю Количество.

Известны данные о размерах кредитов, выданных банком за каждый месяц одного года:

Месяц. Размер кредита.

10Определить сумму выданных банком за год кредитов, а также, в каком месяце выдано кредитов на наименьшую сумму.

Удалить запись, соответствующую месяцу «Июль». Отсортировать полученные данные по полю Размер кредита.

Известны данные о количестве страниц в каждой из 12 прочитанных читателем книг:

Название книги. Количество страниц.

Определить, какая книга является самой «толстой» по числу страниц и какую долю (в

11%) в общем количестве прочитанных читателем страниц из 12 книг она занимает. Удалить запись, соответствующую первой по списку книге с количеством страниц от

230 до 300.

Отсортировать полученные данные по полю Название книги.

Известны данные о доходах за месяц каждого из 12 магазинов фирмы: Название магази-

на. Доход.

Определить название магазина, который принес фирме наибольший доход за данный ме-

12сяц, а также долю (в %) этого дохода в суммарном доходе фирмы, полученном за месяц. Добавить запись еще об одном магазине фирмы, которая должна быть расположена после записи, соответствующей названию магазина с максимальным доходом.

Отсортировать полученные данные по полю Доход.

Известны данные о стоимости 12 марок легковых автомобилей: Марка автомобиля.

Стоимость.

Определить среднюю стоимость легкового автомобиля, а также количество и название

13марок автомобилей со стоимостью, не превышающей среднюю.

Удалить запись, соответствующую последней по списку марке автомобиля, имеющей стоимость не выше средней.

Отсортировать полученные данные по полю Стоимость.

24