Задание на курсовую работу
На складе мастерской индивидуального пошива имеются запасы 12-ти видов ткани. За каждый рабочий день (6 дней) расходилось некоторое кол-во ткани каждого вида.

Написать программу на языке VBA, которая выводит исходные данные, выполняет расчеты и выводит на экран:

· Исходные данные в виде таблицы, где перечисленные наименования ткани, цена ткани, расход каждого вида ткани каждый день в метрах.

· Расход каждого вида ткани за неделю.

· Стоимость всей израсходованной ткани за день.

· Общая стоимость всей израсходованной ткани за неделю.

· Наименование самой ходовой ткани.

Описание переменных
Исходные данные находятся на листе "исх_д." и содержат следующую информацию:

Naz (12) - наименование ткани

Dim naz (12) As String

Cena (12) - стоимость ткани за м.

Dim cena (12) As Double

Ras (12,6) - расход каждого вида ткани каждый день в метрах

Dim ras (12,6) As Double

Traiti (12,8) - стоимость каждого вида ткани за день

Dim trati (12,6) As Double

o_stoim - общая стоимость всей израсходованной ткани за неделю

Dim o_stoim As Double

o_ras (12) - общий расход каждого вида ткани за неделю в м.

Dim o_ras (12) As Double

o_trati (6) - общая стоимость всей израсходованной ткани за день

Dim o_trati (6) As Double

I, j - вспомогательные переменные счетчики цикла являющимися целыми числами

Max, k - вспомогательная переменная для нахождения самой "ходовой" ткани

Блок - схема

нет

да

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

Чтение с листа "Исходные данные" значение в naz (12) и ras (12,6).

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

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

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

Определение самой "Ходовой ткани". Для этого используется два массива одинаковой размерности: "ras (12)" - в котором лежат количественные значения и "naz (12)" - в котором лежат названия тканей, а также две переменных "max" - в которой лежит максимальное значение ткани и "k " - порядковый номер ячейки с максимальным значением израсходованной ткани. На первом шаге мы предполагаем, что в первой ячейке массива "o_ras (i) находиться максимальное значение ложем его в переменную "max" и записываем номер ячейки в "k". На втором шаге мы начинаем сравнивать значение, содержащееся в "max" со значениями остальных ячеек, начиная с первой. Если мы нашли, что в какой - то ячейке значение больше, чем "max", то тогда это значение ложем в переменную "max" и записываем номер ячейки в "k".После того как мы прошли весь массив "ras (12)" и нашли максимальное значение, помощи переменной "k " мы берем из массива naz (12) наименование самой расходуемой ткани.

Листинг программы
Private Sub CommandButton1_Click ()

'объявление и обнуление

'Сначала объявляем переменные, используемые в программе.

Dim naz (12) As String

Dim cena (12) As Double

Dim ras (12,6) As Double

Dim o_ras (12) As Double

Dim o_trati (6) As Double

Dim trati (12,6) As Double

Dim o_stoim As Double

Dim k As Integer

Dim max As Double

'Далее всем переменным присваивается нулевое значение.

For i = 0 To 11

o_ras (i) = 0

Next i

For j = 0 To 5

o_trati (j) = 0

Next j

o_stoim = 0

'ввод данных

For i = 0 To 11

naz (i) = Worksheets ("исходные данные").Cells (4 + i, 1)

cena (i) = Worksheets ("исходные данные").Cells (4 + i,

Next i

For i = 0 To 11

For j = 0 To 5

ras (i, j) = Worksheets ("исходные данные").Cells (4 + i, 3 + j)

Next j

Next i

'решение

'Находим "общий расход" каждого вида ткани за неделю

For i = 0 To 11

For j = 0 To 5

o_ras (i) = o_ras (i) + ras (i, j)

Next j

Next i

'находим стоимость каждого вида ткани за день

For i = 0 To 11

For j = 0 To 5

trati (i, j) = cena (i) * ras (i, j)

Next j

Next i

'находим общую стоимость всей израсходованной ткани за день

For j = 0 To 5

For i = 0 To 11

o_trati (j) = o_trati (j) + trati (i, j)

Next i

Next j

'находим общую стоимость всей израсходованной ткани за неделю

For j = 0 To 5

o_stoim = o_stoim + o_trati (j)

Next j

k = 0

'максимуму присваиваем o_ras (k)

max = o_ras (k)

For i = 1 To 11

If o_ras (i) > max Then

max = o_ras (i)

k = i

End If

Next i

'вывод

'На листе "результат" в ячейку с определенным номером вводится ее название

Worksheets ("результат").Cells (2, 1) = "Название изделия"

Worksheets ("результат").Cells (2,2) = "Цена 1м."

Worksheets ("результат").Cells (2,6) = "Расход"

Worksheets ("результат").Cells (3,3) = "1-ый день"

Worksheets ("результат").Cells (3,4) = "2-ой день"

Worksheets ("результат").Cells (3,5) = "3-ий день"

Worksheets ("результат").Cells (3,6) = "4-ый день"

Worksheets ("результат").Cells (3,7) = "5-ый день"

Worksheets ("результат").Cells (3,8) = "6-ой день"

Worksheets ("результат").Cells (3,11) = "общий расход"

Worksheets ("результат").Cells (20,5) = "траты"

Worksheets ("результат").Cells (34, 1) = "общие траты"

Worksheets ("результат").Cells (35, 1) = " общая стоимость"

Worksheets ("результат").Cells (36,2) = naz (k)

Worksheets ("результат").Cells (36, 1) = "самая ходовая ткань"

'В этом фрагменте происходит вывод на рабочий лист общего расхода

For i = 0 To 11

Worksheets ("результат").Cells (4 + i, 1) = naz (i)

Worksheets ("результат").Cells (4 + i,

2) = cena (i)

Next i

For i = 0 To 11

For j = 0 To 5

Worksheets ("результат").Cells (4 + i, 3 + j) = ras (i, j)

Worksheets ("результат").Cells (35,2) = o_stoim

Worksheets ("результат").Cells (34,2) = o_trati

Next j

Next i

For i = 0 To 11

For j = 0 To 5

Worksheets ("результат").Cells (22 + i, 2 + j) = trati (i, j)

Next j

Next i

End Sub

Private Sub CommandButton2_Click ()

Worksheets ("результат").Cells.Clear

End Sub

Таблица 1.

Название изделия	Цена 1м.	Расход
		1-ый день	2-ой день	3-ий день	4-ый день	5-ый день	6-ой день
Хлопок	95	2	6	3	4	2	3
Шелк	110	4	7	4	5	6	3
Атлас	70	6	3	2	4	3	5
Кашемир	120	1	6	5	3	4	4
Лён	100	3	4	4	2	3	3
Вельвет	65	8	5	2	1	3	5
Драп	55	7	3	3	2	4	2
Шерсть	75	3	2	4	4	2	1
Лаке	90	6	5	3	5	3	2
Мохер	80	4	2	1	3	4	3
Органза	85	9	7	3	2	6	4
Деним	60	4	2	3	1	4	3

Решить	Очистить

Таблица 2.

Название изделия	Цена 1м	Расход
		1-ый день	2-ой день	3-ий день	4-ый день	5-ый день	6-ой день	общий расход
Хлопок	95	2	6	3	4	2	3	20
Шелк	110	4	7	4	5	6	3	29
Атлас	70	6	3	2	4	3	5	23
Кашемир	120	1	6	5	3	4	4	23
Лён	100	3	4	4	2	3	3	19
Вельвет	65	8	5	2	1	3	5	24
Драп	55	7	3	3	2	4	2	21
Шерсть	75	3	2	4	4	2	1	16
Лаке	90	6	5	3	5	3	2	24
Мохер	80	4	2	1	3	4	3	17
Органза	85	9	7	3	2	6	4	31
Деним	60	4	2	3	1	4	3	17

Таблица 3.

	Цена 1м	траты
		1-ый день	2-ой день	3-ий день	4-ый день	5-ый день	6-ой день	общий расход
Хлопок	190	570	285	380	190	285	475	2185
Шелк	440	770	440	550	660	330	440	3190
Атлас	420	210	140	280	210	350	140	1330
Кашемир	120	720	600	360	480	480	600	3240
Лён	300	400	400	200	300	300	300	1900
Вельвет	520	325	130	65	195	325	65	1105
Драп	385	165	165	110	220	110	220	990
Шерсть	225	150	300	300	150	75	150	1125
Лаке	540	450	270	450	270	180	270	1890
Мохер	320	160	80	240	320	240	80	1120
Органза	765	595	255	170	510	340	255	2125
Деним	240	120	180	60	240	180	120	900
общие траты	4465	4635	3245	3165	3745	3195	3115	21100
общая стоимость	28155	28155	28155	28155	28155	28155	28155	168930
самая ходовая ткань	Органза

Список литературы

1. Иванов М. И, Суворов С.В. Информатика. Часть2. Программирование. - Москва 2004.

2. Конспект курса лекционных и практических занятий в МГИУ.