Рис.3. Блок-схема (продолжение)
Рис.3. Блок-схема (окончание) 4. Описание алгоритма
Начало программы.
Ввод начальных (нулевых) значений для расчетных величин (количество изготовленных деталей за неделю, зарплата по дням и общая, день с наибольшим заработком и величина максимальной зарплаты).
Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные (массивы сеnа(7) и kоll(7, 5)).
Открытие листа с результатами, формирование матрицы входных данных. Организуется два вложенных цикла (по каждой детали и дню). Во внутреннем цикле (по дням, расчет по одному изделию) суммируется количество изготовленных деталей, после выхода из внутреннего цикла выводится результат по детали.
Расчет сумм заработков по изделиям за каждый день, количество изготовленных деталей и вывод результатов. Организуется два вложенных цикла: внешний по изделиям, внутренний по дням. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вычисление суммы заработка по i-му изделию в j-й день с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вывод стоимости одной детали и по всем деталям. Расчет заработной платы за каждый день организован в этом же внутреннем цикле.
Определение дня с максимальной заработной платой. Используется алгоритм сравнения, при равенстве двух и более дневных сумм результативной считается первая сумма.
5. Листинг программы
Sub Function()
'Сначала объявляем переменные, используемые в программе.
'стоимость детали
Dim cena(7) Аs Double
'количество (по дням)
Dim koll(7,5) As Integer
'зарплата в день
Dim zar(6) As Double
'количество деталей за неделю
Dim koll_n(7) As Integer
'день с наибольшей з/пл.
Dim den As Integer
'сумма наибольшей з/пл.
Dim zarpl As Double
'счетчики циклов
Dim i As Integer, j As Integer
‘Далее всем переменным присваивается нулевое значение.
For i = 1 То 7
kol_n(i) = 0
Next
For j=1 То 6 zar(j) = 0
Nехt
zarpl = 0 den = 0
'В этом фрагменте кода происходит считывание начальных данных с листа «Нач_д», и в каждую ячейку массива cena(7) записывается стоимость каждой детали, а в ячейках двумерного массива koll(7,5) теперь находится количество деталей каждого вида, изготовленных в каждый из рабочих дней.
Sheets(''Нач_д " ).Select
For i = 1 То 7
сеnа(i) = Cells(3 + i, 2)
Next
For i = 1 Тo 7
For j = 1 Тo 5
koll(i, j) = Cells(3 + i, 2 + j)
Next j
Next i
'Далее на листе «Результат» в ячейку с определенным номером вводится ее название.
Sheets(«Результат»).Select
Sheets("Результат").Cells(1, 1) = "Количество изготовленных деталей"
Sheets("Результат").Cells(2, 1) = "Наименование изделия"
Sheets("Результат").Cells(2, 2) = "Стоимость 1 шт."
Sheets("Результат").Cells(2, 3) = "Изготовлено"
Sheets("Результат").Cells(3, 3) = "1-й день"
Sheets("Результат").Cells(3, 4) = "2-й день"
Sheets("Результат").Cells(3, 5) = "3-й день"
Sheets("Результат").Cells(3, 6) = "4-й день"
Sheets("Результат").Cells(3, 7) = "5-й день"
Sheets("Результат").Cells(3, 8) = "Всего"
Sheets("Результат").Cells(4, 1) = "болт"
Sheets("Результат").Cells(5, 1) = "винт"
Sheets("Результат").Cells(6, 1) = "гайка"
Sheets("Результат").Cells(7, 1) = "шайба"
Sheets("Результат").Cells(8, 1) = "шуруп"
Sheets("Результат").Cells(9, 1) = "гвоздь"
Sheets("Результат").Cells(10, 1) = "скрепка"
'В этом фрагменте происходит вывод на рабочий лист сумм заработков по изделиям в каждый день и количество изготовленных деталей за неделю.
For i = 1 То 7
Sheets("Результат").Сеlls(3 + i, 2) = cena(i)
For j = 1 То 5
Sheets("Результат").Сеlls(3 + i, 2 + j) = koll(i, j)
koll_n (i) = koll_n (i) + koll(i, j)
Next j
Sheets("Результат").Сеlls(3 + i, 8) = koll_n(i)
Next i
'Ниже происходит ввод названий соответствующих столбцов и строк.
Sheets("Результат").Сеlls(12,1) = «Результат в денежном эквиваленте»
Sheets("Результат").Сеlls(13,1) = «Наименование изделия»
Sheets("Результат").Сеlls(13,2) = «Стоимость 1 шт.»
Sheets("Результат").Сеlls(13,3) = «Заработано»
Sheets("Результат").Сеlls(14,3) = «1-й день»
Sheets("Результат").Сеlls(14,4) = «2-й день»
Sheets("Результат").Сеlls(14,5) = «3-й день»
Sheets("Результат").Сеlls(14,6) = «4-й день»
Sheets("Результат").Сеlls(14,7) = «5-й день»
Sheets("Результат").Сеlls(14,8) = «Всего»
Sheets("Результат").Сеlls(15,1) = «болт»
Sheets("Результат").Сеlls(16,1) = «винт»
Sheets("Результат").Сеlls(17,1) = «гайка»
Sheets("Результат").Сеlls(18,1) = «шайба»
Sheets("Результат").Сеlls(19,1) = «шуруп»
Sheets("Результат").Сеlls(20,1) = «гвоздь»
Sheets("Результат").Сеlls(21,1) = «скрепка»
Sheets("Результат").Сеlls(22,1) = «ИТОГО»
'Во внутреннем цикле происходит вычисление суммы заработка по i-му изделию в j-й день с выводом результата, а во внешнем цикле (после получения результатов внутреннего цикла) происходит вывод стоимости одной детали и по всем деталям. Расчет 'заработной платы за каждый день организован в этом же внутреннем цикле.
For i = 1 То 7 For j = 1 То 5
Sheets("Результат").Сеlls(14 + i, 2 + j) = koll(i, j) * сеna(i)
zar(j) = zar(j) + koll(i, j) * сеna(i)
zar(6) = zar(6) + koll(i, j) * сеnа(i)
Next j
Sheets("Результат").Сеlls(14 + i, 2) = сеnа(i)
Sheets("Результат").Сеlls(14 + i, 8) = сеnа(i) * koll_n (i)
Next i
'Здесь описан алгоритм сравнения некоторой заработной платы с заработной платой, полученной в один из пяти рабочих дней. Если рассматриваемая больше другой, то сумме наибольшего заработка присваивается текущее значение, а днем с максимальным заработком становится день под номером j.