Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
МУ к контр заоч по Эконом_инф.docx
Скачиваний:
15
Добавлен:
16.03.2015
Размер:
1.66 Mб
Скачать

4.8. Задания по теме «Обработка одномерных массивов в vba»

Написать в VBA код для решения задачи. Ввод исходных данных в массив производить из ячеек листа Excel. Результаты вывести в окно Immediate в виде таблицы.

Задачу выбрать из таблицы 10 в соответствии с вариантом.

Таблица 10

Варианты для задания по теме №8

Номер варианта

Задача

Определить подразделение с максимальной выручкой. Результаты вывести в виде таблицы

Название подразделения

Выручка, тыс. руб.

Флора1

200

Флора1

155

SM(n)

Z(n)

Подсчитать количество пятерок. Результаты ввести в виде таблицы:

Ф.И.О.

Оценка

Иванов

5

Сидоров

3

O(n)

По итогам экзаменов подсчитать средний балл (S(I)) каждого студента и вывести порядковый номер студента со средним баллом >= 4 за экзамены. Результаты вывести в виде таблицы:

Математика

Информатика

История

3

4

5

M(n)

D(n)

Z(n)

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

Номер варианта

Задача

Найти количество товаров, стоимость которых больше 20 руб. Результаты вывести в виде таблицы:

Название товара

Стоимость, руб

Тетрадь

15

Альбом

25,5

T(10)

S(10)

Вывести список тех товаров, стоимость 1 кг которых стоит меньше 50 руб. Результаты вывести в виде таблицы:

Товар

Стоимость 1 кг

Сахар

37

Мука

24

T$(n)

S(n)

Составить списки номеров предприятий, выполнивших план и не выполнивших план. Результаты вывести в виде таблицы:

Название

предприятия

План,

Тыс. руб.

Фактически выполнено,

Тыс. руб.

Флора

15,2

18,3

Мега

14

13,6

PR(n)

Р(n)

F(n)

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

Номер варианта

Задача

Сеть магазинов «Весна» включает в себя N магазинов. Вывести список магазинов сети, у которых ежедневная выручка составляет более 300 тыс. рублей. Результаты вывести в виде таблицы:

Название магазина

Сумма выручки,

(тыс. руб.)

Весна1

430

Весна2

120

V(n)

SV(n)

На предприятии производится N различных видов продукции, Вывести в виде таблицы список продукции, стоимость которой находится в пределах от 1500 до 3000 рублей. Результаты вывести в виде таблицы:

Вид продукции

Стоимость

Фильтр для воды

1000

НососESPа

2000

Радиаторы

3200

VP(n)

ST(n)

Окончание табл. 10

Номер варианта

Задача

Фирма располагает следующей информацией о своих сотрудниках: Ф.И.О. сотрудника, число дней отпуска, сумма отпускных. Вывести в виде таблицы список сотрудников фирмы, отпуск которых более 28 дней.

N – число сотрудников фирмы;

FIO(I) – фамилия, имя отчество сотрудников;

DN – число дней отпуска

S – сумма отпускных

Результаты вывести в виде таблицы:

ФИО

сотрудника

Число дней

отпуска

Сумма

отпускных

Кошкин И.П.

56

10000

Конев Д.И.

25

8000

Орлов В.А.

42

9300

FIO(n)

DN(n)

S(n)

Ввести данные по пяти районам г. Кемерово в виде таблицы:

Название района

Площадь (в км2)

Численность населения.

NR$(5)

PL(5)

CMSL(5)

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

Название района

Плотность населения

Центральный

0,7

Ленинский

0,4

Заводский

0,6

NR(5)

PLT(5)