
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
РОССИЙСКОЙ ФЕДЕРАЦИИ
ИДО ГОУ МГИУ
Курсовая работа
По дисциплине «Информатика»
Задание:№89
Группа:
Студент:
Руководитель: Егоркин В. А.
Москва 2010
Содержание
1.Задание на курсовую работу…………………………………………………..3
2.Описание переменных……………………….………………………………...4
3. Блок схема……………………………………………………………………...7
4. Описание алгоритма…………………………………………………………..10
5. Листинг программы…………………………………………………...………11
6. Описание входных данных и результат вычисления……………………….17
7.Список использованной литературы…………………………………………22
1.Задание на курсовую работу
Суши – бар за 12 месяцев продал различное количество суши ( 12 наименований) по цене, устанавливаемой в начале каждого месяца (т.е. каждый месяц цены на блюде менялись).
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
-
Исходные данные в виде таблицы, где указаны наименования суши, цена блюда в каждом месяце, количество проданных блюд за каждый месяц;
-
Доход по каждому блюду за 6 месяцев;
-
Доход за каждый месяц по всем блюдам;
-
Общий доход по всем блюдам за год;
-
Наименование блюда, принесшего наименьший доход.
2.Описание переменных
Исходные данные находятся на листе «Начальные данные» (рис.№1) и содержат следующую информацию:
1.наименование суши;
2. количество блюд в каждом месяце;
3.количество проданных блюд за каждый месяц.
Рис.№1 «Начальные данные»
Рис.№2 «Результат»
В программе переменные описаны следующим образом:
1) doh_po_blud(12,12) – доход по каждому из блюд за каждый месяц (отсюда вычисляются доход по каждому блюду за 6 месяцев, за год и наименование блюда принесшего наименьший доход), представляет двумерный массив целых чисел:
Dim doh_po_blud(12,12) As Integer
В суши баре удобнее вести счет целыми числами, поэтому дробные числа в стоимости блюд не используются, а потому и массив doh_po_blud(12,12) является целочисленным.
2) obw_doh_za_god - общий доход по всем блюдам за год. Так как общая сумма дохода велика, то эта переменная представляет собой длинное целое чесло:
Dim obw_doh_za_god As Long
3) doh, doh1 - Общий доход по одному блюду за год. Так как общая сумма дохода велика, то эти переменные представляет собой длинные целые чесла:
Dimdoh, doh1 AsLong
4) k, i, j - Вспомогательные переменные и счетчики цыклов. Так как эти переменные не имеют в программе отрицательных значений и не превышают значения равного 255, то эти переменные представляют собой простые целые положительные числа:
Dim k, i, j As Byte.
3. Блок схема
Начало
Sub
Кнопка2_Щелчок()
'Объявление
необходимых переменных Dimdoh_po_blud(12,
12) AsInteger 'Доход по каждому блюду за каждый
месяц Dimobw_doh_za_godAsLong
'Доход по всем блюдам за год Dimdoh,
doh1 AsLong 'Доход по одному блюду за год Dim
k, i, j AsByte 'Вспомогательные переменные
и счетчики циклов
'Обнуление
переменных obw_doh_za_god
= 0 doh
= 0
'Работа
с верхней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 1 + j) = doh_po_blud(i, j) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Работа
с нижней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 7 + j) = doh_po_blud(i, j + 6) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Заполнение
названий полей таблицы "Результат" Sheets("Результат").Select Sheets("Результат").Cells(3,
1) = "Наименование блюд"
Sheets("Результат").Cells(3,
2) = "Доход за Январь" Sheets("Результат").Cells(3,
3) = "Доход за Февраль" Sheets("Результат").Cells(3,
4) = "Доход за Март" Sheets("Результат").Cells(3,
5) = "Доход за Апрель" Sheets("Результат").Cells(3,
6) = "Доход за Май" Sheets("Результат").Cells(3,
7) = "Доход за Июнь" Sheets("Результат").Cells(3,
8) = "Доход за Июль" Sheets("Результат").Cells(3,
9) = "Доход за Август" Sheets("Результат").Cells(3,
10) = "Доход за Сентябрь" Sheets("Результат").Cells(3,
11) = "Доход за Октябрь" Sheets("Результат").Cells(3,
12) = "Доход за Ноябрь" Sheets("Результат").Cells(3,
13) = "Доход за Декабрь" Sheets("Результат").Cells(3,
14) = "Доход за полгода"
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) = "Саамонскинрору" Sheets("Результат").Cells(11,
1) = "Гейша рору" Sheets("Результат").Cells(12,
1) = "Ана-куи маки" Sheets("Результат").Cells(13,
1) = "Якитория" Sheets("Результат").Cells(14,
1) = "Фурикакэрору" Sheets("Результат").Cells(15,
1) = "Цезарь"
Sheets("Результат").Cells(17,
1) = "Итого:" Sheets("Результат").Cells(18,
1) = "Общий доход за год -" Sheets("Результат").Cells(19,
1) = "Наименьший доход с -"
'Вычисление
дохода For
i = 1 To 12 For
j = 1 To 12
'Вычисление ощего дохода за год путем
циклического суммирования
'всех ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
obw_doh_za_god obw_doh_za_god
= obw_doh_za_god + doh_po_blud(j, i) 'Вычисление
дохода по каждому блюду за год путем
суммирования
'каждой строки ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
doh doh
= doh + doh_po_blud(i, j) 'Занесение
в таблицу "результат" дохода по
каждому блюду за полгода If
j = 6 Then Sheets("Результат").Cells(3
+ i, 14) = doh EndIf 'Вычисление
и занесение в таблицу "результат"
'названия блюда, принесшего наименьший
доход.
'Вычисление происходит путем сравнения
дополнительной переменной doh1,
'хранящей текущее наименьшее численное
значание дохода по каждому из блюд,
'и переменной doh, хранящей числинное
значение дохода по текущему
'(в соответствии переменной счетчика
цикла i) блюду
'(текущей строке дывумерного массива
doh_po_blud(12,12)).
'Далее соответствующее название блюда
заносится в таблицу "Результат" If
j = 12 Then
If i = 1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
Else
If doh< doh1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
End If doh
= 0
End If
End If
Nextj Nexti
PrivateSubWorkbook_Open() 'Переключение
фокуса на таблицу "Начальные данные" Sheets("Начальные
данные").Select
'Очистка ячеек таблицы "Результат" For
i = 3 To 19
For j = 1 To 14 Sheets("Результат").Cells(i,
j) = "" Next
j Next
i EndSub
Ввод
данных: Нулевых
данных, вспомогательных
величин
i=1,12
k=1
j=1,6
doh_po_blud(i,
j)=cells(3+i, k+j)*cells(3+i, k+1+j)
Вывод
данных форм Cells(*,*)=…
k=k+1
i=1,12
k=1
j=1,6
doh_po_blud(i,
j+6)=cells(20+i, k+j)*cells(20+i, k+1+j)
Вывод
данных форм Cells(*,*)=…
k=k+1
Открытие
листа с данными(«результат»)
Вывод
данных форм Cells(*,*)=…
i=1,12
j=1,12
obw_doh_za_god
= obw_doh_za_god + doh_po_blud(j, i)
doh
= doh + doh_po_blud(i, j)
j=6
нет да
Вывод
данных форм Cells(*,*)=…
j=12 нет
да
i=1
нет да
doh1
= doh
Вывод
данных форм Cells(*,*)=…
doh
< doh1
да нет
doh1
= doh
Вывод
данных форм Cells(*,*)=…
doh
= 0
Вывод
данных форм Cells(*,*)=…
Конец
Sub
Кнопка2_Щелчок()
'Объявление
необходимых переменных Dimdoh_po_blud(12,
12) AsInteger 'Доход по каждому блюду за каждый
месяц Dimobw_doh_za_godAsLong
'Доход по всем блюдам за год Dimdoh,
doh1 AsLong 'Доход по одному блюду за год Dim
k, i, j AsByte 'Вспомогательные переменные
и счетчики циклов
'Обнуление
переменных obw_doh_za_god
= 0 doh
= 0
'Работа
с верхней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 1 + j) = doh_po_blud(i, j) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Работа
с нижней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 7 + j) = doh_po_blud(i, j + 6) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Заполнение
названий полей таблицы "Результат" Sheets("Результат").Select Sheets("Результат").Cells(3,
1) = "Наименование блюд"
Sheets("Результат").Cells(3,
2) = "Доход за Январь" Sheets("Результат").Cells(3,
3) = "Доход за Февраль" Sheets("Результат").Cells(3,
4) = "Доход за Март" Sheets("Результат").Cells(3,
5) = "Доход за Апрель" Sheets("Результат").Cells(3,
6) = "Доход за Май" Sheets("Результат").Cells(3,
7) = "Доход за Июнь" Sheets("Результат").Cells(3,
8) = "Доход за Июль" Sheets("Результат").Cells(3,
9) = "Доход за Август" Sheets("Результат").Cells(3,
10) = "Доход за Сентябрь" Sheets("Результат").Cells(3,
11) = "Доход за Октябрь" Sheets("Результат").Cells(3,
12) = "Доход за Ноябрь" Sheets("Результат").Cells(3,
13) = "Доход за Декабрь" Sheets("Результат").Cells(3,
14) = "Доход за полгода"
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) = "Саамонскинрору" Sheets("Результат").Cells(11,
1) = "Гейша рору" Sheets("Результат").Cells(12,
1) = "Ана-куи маки" Sheets("Результат").Cells(13,
1) = "Якитория" Sheets("Результат").Cells(14,
1) = "Фурикакэрору" Sheets("Результат").Cells(15,
1) = "Цезарь"
Sheets("Результат").Cells(17,
1) = "Итого:" Sheets("Результат").Cells(18,
1) = "Общий доход за год -" Sheets("Результат").Cells(19,
1) = "Наименьший доход с -"
'Вычисление
дохода For
i = 1 To 12 For
j = 1 To 12
'Вычисление ощего дохода за год путем
циклического суммирования
'всех ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
obw_doh_za_god obw_doh_za_god
= obw_doh_za_god + doh_po_blud(j, i) 'Вычисление
дохода по каждому блюду за год путем
суммирования
'каждой строки ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
doh doh
= doh + doh_po_blud(i, j) 'Занесение
в таблицу "результат" дохода по
каждому блюду за полгода If
j = 6 Then Sheets("Результат").Cells(3
+ i, 14) = doh EndIf 'Вычисление
и занесение в таблицу "результат"
'названия блюда, принесшего наименьший
доход.
'Вычисление происходит путем сравнения
дополнительной переменной doh1,
'хранящей текущее наименьшее численное
значание дохода по каждому из блюд,
'и переменной doh, хранящей числинное
значение дохода по текущему
'(в соответствии переменной счетчика
цикла i) блюду
'(текущей строке дывумерного массива
doh_po_blud(12,12)).
'Далее соответствующее название блюда
заносится в таблицу "Результат" If
j = 12 Then
If i = 1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
Else
If doh< doh1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
End If doh
= 0
End If
End If
Nextj Nexti
PrivateSubWorkbook_Open() 'Переключение
фокуса на таблицу "Начальные данные" Sheets("Начальные
данные").Select
'Очистка ячеек таблицы "Результат" For
i = 3 To 19
For j = 1 To 14 Sheets("Результат").Cells(i,
j) = "" Next
j Next
i EndSub
Так же в программе есть фрагмент кода, отвечающий за очистку листа «результат», и принудительное открытие листа «начальные данные» при запуске файла
Начало
Sub
Кнопка2_Щелчок()
'Объявление
необходимых переменных Dimdoh_po_blud(12,
12) AsInteger 'Доход по каждому блюду за каждый
месяц Dimobw_doh_za_godAsLong
'Доход по всем блюдам за год Dimdoh,
doh1 AsLong 'Доход по одному блюду за год Dim
k, i, j AsByte 'Вспомогательные переменные
и счетчики циклов
'Обнуление
переменных obw_doh_za_god
= 0 doh
= 0
'Работа
с верхней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 1 + j) = doh_po_blud(i, j) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Работа
с нижней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 7 + j) = doh_po_blud(i, j + 6) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Заполнение
названий полей таблицы "Результат" Sheets("Результат").Select Sheets("Результат").Cells(3,
1) = "Наименование блюд"
Sheets("Результат").Cells(3,
2) = "Доход за Январь" Sheets("Результат").Cells(3,
3) = "Доход за Февраль" Sheets("Результат").Cells(3,
4) = "Доход за Март" Sheets("Результат").Cells(3,
5) = "Доход за Апрель" Sheets("Результат").Cells(3,
6) = "Доход за Май" Sheets("Результат").Cells(3,
7) = "Доход за Июнь" Sheets("Результат").Cells(3,
8) = "Доход за Июль" Sheets("Результат").Cells(3,
9) = "Доход за Август" Sheets("Результат").Cells(3,
10) = "Доход за Сентябрь" Sheets("Результат").Cells(3,
11) = "Доход за Октябрь" Sheets("Результат").Cells(3,
12) = "Доход за Ноябрь" Sheets("Результат").Cells(3,
13) = "Доход за Декабрь" Sheets("Результат").Cells(3,
14) = "Доход за полгода"
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) = "Саамонскинрору" Sheets("Результат").Cells(11,
1) = "Гейша рору" Sheets("Результат").Cells(12,
1) = "Ана-куи маки" Sheets("Результат").Cells(13,
1) = "Якитория" Sheets("Результат").Cells(14,
1) = "Фурикакэрору" Sheets("Результат").Cells(15,
1) = "Цезарь"
Sheets("Результат").Cells(17,
1) = "Итого:" Sheets("Результат").Cells(18,
1) = "Общий доход за год -" Sheets("Результат").Cells(19,
1) = "Наименьший доход с -"
'Вычисление
дохода For
i = 1 To 12 For
j = 1 To 12
'Вычисление ощего дохода за год путем
циклического суммирования
'всех ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
obw_doh_za_god obw_doh_za_god
= obw_doh_za_god + doh_po_blud(j, i) 'Вычисление
дохода по каждому блюду за год путем
суммирования
'каждой строки ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
doh doh
= doh + doh_po_blud(i, j) 'Занесение
в таблицу "результат" дохода по
каждому блюду за полгода If
j = 6 Then Sheets("Результат").Cells(3
+ i, 14) = doh EndIf 'Вычисление
и занесение в таблицу "результат"
'названия блюда, принесшего наименьший
доход.
'Вычисление происходит путем сравнения
дополнительной переменной doh1,
'хранящей текущее наименьшее численное
значание дохода по каждому из блюд,
'и переменной doh, хранящей числинное
значение дохода по текущему
'(в соответствии переменной счетчика
цикла i) блюду
'(текущей строке дывумерного массива
doh_po_blud(12,12)).
'Далее соответствующее название блюда
заносится в таблицу "Результат" If
j = 12 Then
If i = 1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
Else
If doh< doh1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
End If doh
= 0
End If
End If
Nextj Nexti
PrivateSubWorkbook_Open() 'Переключение
фокуса на таблицу "Начальные данные" Sheets("Начальные
данные").Select
'Очистка ячеек таблицы "Результат" For
i = 3 To 19
For j = 1 To 14 Sheets("Результат").Cells(i,
j) = "" Next
j Next
i EndSub
Открытие
листа с данными(«начальные данные»)
i=3,19
j=1,14
Очистка
данных форм Cells(i,j)=…
Конец
Sub
Кнопка2_Щелчок()
'Объявление
необходимых переменных Dimdoh_po_blud(12,
12) AsInteger 'Доход по каждому блюду за каждый
месяц Dimobw_doh_za_godAsLong
'Доход по всем блюдам за год Dimdoh,
doh1 AsLong 'Доход по одному блюду за год Dim
k, i, j AsByte 'Вспомогательные переменные
и счетчики циклов
'Обнуление
переменных obw_doh_za_god
= 0 doh
= 0
'Работа
с верхней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 1 + j) = doh_po_blud(i, j) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Работа
с нижней частью таблицы "Начальные
данные" For
i = 1 To 12 k
= 1 For
j = 1 To 6 'Вычисление
и занесение данных о доходе по каждому
блюду за каждый месяц 'в
двумерный массив doh_po_blud(12,12) doh_po_blud(i,
j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j) 'Занесение
полученного результата в таблицу
"Результат" Sheets("Результат").Cells(3
+ i, 7 + j) = doh_po_blud(i, j + 6) 'Инкриминация
переменной k, используемой для правильной
индексации
'ячеек таблицы "Начальные данные" k
= k + 1 Next
j Next
i
'Заполнение
названий полей таблицы "Результат" Sheets("Результат").Select Sheets("Результат").Cells(3,
1) = "Наименование блюд"
Sheets("Результат").Cells(3,
2) = "Доход за Январь" Sheets("Результат").Cells(3,
3) = "Доход за Февраль" Sheets("Результат").Cells(3,
4) = "Доход за Март" Sheets("Результат").Cells(3,
5) = "Доход за Апрель" Sheets("Результат").Cells(3,
6) = "Доход за Май" Sheets("Результат").Cells(3,
7) = "Доход за Июнь" Sheets("Результат").Cells(3,
8) = "Доход за Июль" Sheets("Результат").Cells(3,
9) = "Доход за Август" Sheets("Результат").Cells(3,
10) = "Доход за Сентябрь" Sheets("Результат").Cells(3,
11) = "Доход за Октябрь" Sheets("Результат").Cells(3,
12) = "Доход за Ноябрь" Sheets("Результат").Cells(3,
13) = "Доход за Декабрь" Sheets("Результат").Cells(3,
14) = "Доход за полгода"
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) = "Саамонскинрору" Sheets("Результат").Cells(11,
1) = "Гейша рору" Sheets("Результат").Cells(12,
1) = "Ана-куи маки" Sheets("Результат").Cells(13,
1) = "Якитория" Sheets("Результат").Cells(14,
1) = "Фурикакэрору" Sheets("Результат").Cells(15,
1) = "Цезарь"
Sheets("Результат").Cells(17,
1) = "Итого:" Sheets("Результат").Cells(18,
1) = "Общий доход за год -" Sheets("Результат").Cells(19,
1) = "Наименьший доход с -"
'Вычисление
дохода For
i = 1 To 12 For
j = 1 To 12
'Вычисление ощего дохода за год путем
циклического суммирования
'всех ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
obw_doh_za_god obw_doh_za_god
= obw_doh_za_god + doh_po_blud(j, i) 'Вычисление
дохода по каждому блюду за год путем
суммирования
'каждой строки ячеек двумерного массива
doh_po_blud(12,12)
'с сохранением результата в переменную
doh doh
= doh + doh_po_blud(i, j) 'Занесение
в таблицу "результат" дохода по
каждому блюду за полгода If
j = 6 Then Sheets("Результат").Cells(3
+ i, 14) = doh EndIf 'Вычисление
и занесение в таблицу "результат"
'названия блюда, принесшего наименьший
доход.
'Вычисление происходит путем сравнения
дополнительной переменной doh1,
'хранящей текущее наименьшее численное
значание дохода по каждому из блюд,
'и переменной doh, хранящей числинное
значение дохода по текущему
'(в соответствии переменной счетчика
цикла i) блюду
'(текущей строке дывумерного массива
doh_po_blud(12,12)).
'Далее соответствующее название блюда
заносится в таблицу "Результат" If
j = 12 Then
If i = 1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
Else
If doh< doh1 Then
doh1 = doh Sheets("Результат").Cells(19,
2) = Sheets("Результат").Cells(3
+ i, 1)
End If doh
= 0
End If
End If
Nextj Nexti
PrivateSubWorkbook_Open() 'Переключение
фокуса на таблицу "Начальные данные" Sheets("Начальные
данные").Select
'Очистка ячеек таблицы "Результат" For
i = 3 To 19
For j = 1 To 14 Sheets("Результат").Cells(i,
j) = "" Next
j Next
i EndSub