Листинг 17. Нахождение общего выпуска продукции каждого вида

Sub Пример10_1()

Randomize

Dim VP() As Single, S() As Single

Dim n As Integer, m As Integer

Dim i As Integer, j As Integer

n = InputBox(" Введите число строк n")

m = InputBox(" Введите число столбцов m")

ReDim VP(1 To n, 1 To m), S(1 To n)

For i = 1 To n

For j = 1 To m

VP(i, j) = Int(60 * Rnd() + 50) 'Целая часть случ. чисел от 50 до 110

Debug.Print VP(i, j);

Next j

Debug.Print

Next i

For i = 1 To n

S(i) = 0

For j = 1 To m

S(i) = S(i) + VP(i, j)

Next j

Next i

For i = 1 To n

Debug.Print " Общий выпуск продукции " & i & " = " & S(i)

Next i

End Sub

Листинг 18. Нахождение максимального выпуска продукции каждого вида и месяца с максимальным выпуском

Sub Пример10_2()

Randomize

Dim VP() As Single, Max() As Single

Dim K() As Integer

Dim n As Integer, m As Integer

Dim i As Integer, j As Integer

n = InputBox(" Введите число строк n")

m = InputBox(" Введите число столбцов m")

ReDim VP(1 To n, 1 To m), Max(1 To n)

ReDim K(1 To n) As Integer

For i = 1 To n

For j = 1 To m

VP(i, j) = Int(60 * Rnd() + 50) ' Целая часть случ. чисел от 50 до 110

Debug.Print VP(i, j);

Next j

Debug.Print

Next i

For i = 1 To n

Max(i) = VP(i, 1)

K(i) = 1

For j = 2 To m

If VP(i, j) > Max(i) Then

Max(i) = VP(i, j)

K(i) = j

End If

Next j

Next i

For i = 1 To n

Debug.Print " max выпуск продукции" & i & " =" & Max(i) & " месяц- " & K(i)

Next i

End Sub

4 КОНТРОЛЬНАЯ РАБОТА И МЕТОДИЧЕСКИЕ УКАЗАНИЯ ПО ЕЁ ВЫПОЛНЕНИЮ

Выбор варианта

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

N = XY - 25*K, где

-1, если XY =00

0, если XY < =25

K = 1, если XY < =50

2, если XY < =75

3, если XY < =99

Например, ваш шифр 3423, XY=23, номер варианта N=23-25*0=23. Для шифра 3482, N=82-25*3=7, номер варианта 7.

Контрольная работа состоит из трёх заданий.

При оформлении задания своего варианта необходимо:

- выполнить построение математической модели;

- разработать блок-схему алгоритма;

- написать программу на алгоритмическом языке.

Задание 1. Варианты задач

1. Определить среднюю зарплату, если имеются данные о зарплате работников фирмы из N человек.

2. По итогам экзамена (массиву оценок) определить количество студентов, сдавших экзамен на 4 и 5.

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

4. Подсчитать количество продавцов, выполнивших заданную норму выручки, если норма задана и даны дневные выручки каждого продавца.

5. Имеется информация о количестве для N наименований торгового оборудования на складе. Определить номера видов торгового оборудования, количество которых меньше заданного числа P.

6. Имеются данные о зарплате работников фирмы из N человек. Выполнить перерасчет зарплаты, увеличив ее на 10%.

7. Имеется информация о наличии N наименований торгового оборудования на складе. Определить общее количество оборудования.

8. Имеется информация о количестве для N наименований продуктов на складе. Определить количество видов продуктов, запас которых меньше заданной предельной нормы.

9. Имеется информация о количестве для N наименований продуктов на складе. Определить номер продукта, количество которого максимально.

10. Имеется информация о количестве для N наименований продуктов на складе. Определить номер продукта, количество которого минимально.

11. В группе студентов определить старшего по возрасту, если есть данные о возрасте каждого студента.

12. Определить количество студентов группы старше 20 лет, если есть данные о возрасте каждого студента группы.

13. Найти средний возраст студентов группы, если есть данные о возрасте каждого студента группы.

14. Фирма получила данные о стоимости N наименований новых товаров. Определить общую стоимость всех товаров.

15. Фирма получила данные о стоимости N наименований новых товаров. Пересчитать стоимости всех товаров, уменьшив каждую стоимость на 15%.

16. По итогам экзамена определить количество студентов, не сдавших экзамен.

17. Фирма получила данные о стоимости N наименований новых товаров. Определить номер товара, стоимость которого максимальна.

18. Фирма получила данные о стоимости N наименований новых товаров. Определить номер товара, стоимость которого минимальна.

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

20. Фирма получила данные о стоимости N наименований новых товаров. Указать номера товаров, стоимость которых не превышает заданную сумму S.

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

22. Фирма получила данные о стоимости N наименований нового оборудования. Указать номера оборудования, стоимость которого находится в заданных пределах > =S1 и < =S2.

23. Вывести номер месяца, в котором объем продаж был наибольшим, если имеются сведения об объеме продаж за каждый месяц.

24. Вычислить средний объем продаж за 3-й квартал, если заданы объемы продаж за каждый месяц.

25. По итогам экзамена определить среднюю оценку студентов группы.

Задание 2. Варианты задач

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

Напечатать результаты обследования в виде таблицы, заменив информацию в последнем столбце на - «% импортных видов» (процентное соотношение должно быть вычислено).

2. В результате обследования наличия товаров в магазинах города получена информация о названиях товаров, имеющихся в магазинах, количестве обследованных видов продукции и количестве импортных видов. Напечатать результаты обследования в виде таблицы:

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

Напечатать таблицу заданного вида и определить общее количество обследованных видов и общее количество импортных видов, а также их долю в процентах.

4. По результатам продажи жилья за полгода администрацией области получена следующая информация:

Напечатать эту информацию в виде таблицы, заменив информацию в последнем столбце на «Стоимость 1 кв. м.».

5. По результатам продажи жилья за полгода администрацией области получена следующая информация:

Напечатать исходные данные в виде таблицы и составить список городов, в которых количество проданных квартир меньше 20.

6. По результатам продажи жилья за полгода администрацией области получена следующая информация:

Напечатать исходные данные в виде таблицы и определить город, в котором стоимость 1 кв. метра минимальна.

7. По результатам продажи жилья за полгода администрацией области получена следующая информация:

Напечатать таблицу, заменив последний столбец на «Средняя стоимость 1 квартиры».

8. На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Оформить эти данные в виде таблицы:

Остаток равен разности между суммой, внесенной абонентом и суммой за МТР.

9. На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Составить список номеров телефонов тех абонентов, которые должны АТС (остаток меньше 0). Исходные данные вывести в виде таблицы.

10. На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Составить список номеров телефонов тех абонентов, которые внесли аванс (остаток больше 0). Исходные данные напечатать в виде таблицы.

11. На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Определить общую сумму за МТР для абонентов одной АТС по заданным двум первым цифрам номера, например: 55. Вывести сведения об абонентах заданной АТС в таблицу.

12. На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородние телефонные переговоры (МТР), сумма, внесенная абонентом. Выдать справку по номеру телефона о сумме за МТР и остатке. Вводится номер телефона, и выдаются сведения. Если сведений нет, то выдается сообщение «Такого телефона нет».

13. О работниках фирмы имеется информация: фамилия, имя и отчество, количество отработанных часов за неделю, размер почасовой ставки. Необходимо вычислить их недельную зарплату (количество часов * ставка) и напечатать в виде таблицы:

14. О работниках фирмы имеется информация: фамилия, имя и отчество, количество отработанных часов за неделю, размер почасовой ставки. Необходимо вычислить их недельную зарплату (количество часов * ставка) и подсчитать общую сумму зарплаты, напечатав исходные данные в виде таблицы.

15. О работниках фирмы имеется информация: фамилия, имя и отчество, количество отработанных часов за неделю, размер почасовой ставки. Напечатать исходные данные в виде таблицы и вывести список работников, количество проработанных часов в неделю у которых меньше 40.

16. Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы заказов по каждому виду изделия и стоимость каждого изделия. Вывести исходные данные в виде таблицы:

Подсчитать суммарную стоимость всех заказов.

17. Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы заказов по каждому виду изделия и стоимость каждого изделия.

Вывести таблицу следующего вида, подсчитав стоимость заказа:

18. Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы заказов по каждому виду изделия и стоимость каждого изделия. Вывести исходные данные в виде таблицы:

Выдать список изделий с указанием их стоимости, объем заказа которых больше 100.

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

Подсчитать среднюю стоимость акции.

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

Получить список компаний, дивиденды которых составляют более 10% от стоимости акции.

21. Фирма располагает следующей информацией: наименование товара; стоимость его единицы; количество единиц (кг, шт., упаковок); название фирмы-поставщика, поставляющего данный товар.

Подсчитать общую стоимость каждой поставки и вывести результаты в виде таблицы, заменив второй и третий столбец на столбец «стоимость поставки».

22. Фирма располагает следующей информацией: наименование товара; стоимость его единицы; количество единиц (кг, шт., упаковок); название фирмы-поставщика, поставляющего данный товар.

Определить самый дешевый товар и фирму, его поставляющую. Исходные данные вывести в виде таблицы.

23. Фирма располагает следующей информацией: наименование товара; стоимость его единиц; количество единиц (кг, шт., упаковок); название фирмы-поставщика, поставляющего данный товар.

Напечатать список товаров с их полной стоимостью, поставляемых одной фирмой, название которой вводится.

24. В деканате имеются следующие данные успеваемости по предмету группы студентов: Ф.И.О.; аттестация по предмету; кол-во пропусков

Вывести исходные данные в виде таблицы и подсчитать среднюю аттестацию группы и общее число пропусков по предмету.

25. В деканате имеются следующие данные успеваемости по предмету группы студентов: Ф.И.О.; аттестация по предмету; кол-во пропусков

Вывести список студентов, у которых аттестация 0 и количество пропусков больше 4 часов