Курсовая работа: Составление и описание программы по заданным параметрам
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
6. Описание входных данных и результат вычислений
В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
- исходные данные в виде таблицы, где указаны наименования цветов, закупочные цены букетов каждого вида и количество букетов в каждом году;
- общее количество букетов за 3 года;
- доход по всем цветам за каждый год;
- вид цветов, принесший максимальный доход за 2 года.
Исходные данные находятся на листе «Начальные данные» («Нач_д» (рис. 1) и содержат следующую информацию:
1) количество букетов из 6 видов, выращенных за год.
2) закупочные цены букетов каждого вида.
Результаты работы программы оформляются на листе «Результат» (рис. 2).
В программе переменные описаны следующим образом:
1) koll
(7,5)
— количество букетов за каждый год
3) zar
(6)
— доход по всем цветам за каждый год
4) koll
_
n
(7)
— общее количество букетов за3 года
5) vid
— вид цветов принесший максимальный доход
6) zarpl
— сумма максимального дохода
7) cena(7)
— общий доход колхоза за 3 года
В программе также были использованы вспомогательные переменные, счетчики циклов, i
и j, являющиеся целыми числами.
Переменные cena(7),
zar
(6),
zarpl
могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll
(7,5)
koll
_
n
(7)
целые числа, так как мы считаем, что смена рабочего составляет полный день, и он не может изготовить за смену половину детали.
Ввод начальных (нулевых) значений для расчетных величин (общее количество букетов за 3 года, доход по всем цветам за каждый год и доход по всем цветам за каждый год и общее количество букетов за 3 года, вид цветов, принесший максимальный доход за 2 года).
Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные (массивы сеnа(7) и kоll(7,5)).
Открытие листа с результатами, формирование матрицы входных данных. Организуется два вложенных цикла (доход по всем цветам за каждый год и общее количество букетов за 3 года). Во внутреннем цикле (по годам, расчет по одному виду цветов) суммируется количество собранных букетов, после выхода из внутреннего цикла выводится результат собранных букетов.
Расчет сумм дохода по каждому виду цветов за каждый год, количество собранных букетов и вывод результатов. Организуется два вложенных цикла: внешний по цветам, внутренний по годам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вычисление суммы дохода по i-му виду букетов в j-й год с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вывод стоимости одного букета и по всем видам цветов. Доход за каждый год организован в этом же внутреннем цикле.
Определение вида цветов, принесший максимальный доход за 2 года. Используется алгоритм сравнения, после выводиться результат вида цветов, принесший максимальный доход за 2 года
Сначала объявляем переменные, используемые в программе.
Dim i As Integer, j As Integer '
счетчики
циклов
Dim koll(7, 5) As Integer 'количество букетов за каждый год
Dim zar(6) As Double 'доход по всем цветам за каждый год
Dim koll_n(7) As Integer 'общее количество букетов за 3 года
Dim vid As Integer 'вид цветов принесший максимальный доход
Dim zarpl As Double 'сумма макимального дохода
Dim cena(7) As Double 'общий доход колхоза за 3 года
'в начале программы все переменные равны нулям
'создаем цикл, который считает количество букетов за 3 года
'создаем цикл, который считает доход по всем цветам за период
'в каждую ячейку массива cena(i) записывается цена каждого букета
'в каждую ячейку массива koll(i, j) записывается количество букетов за период
'так как массив двумерный цикл проходит по двум счетчикам
'на листе "Результат" создаются ячейки с определенными названиями
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) = "Всего"
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(3 + i, 2) = cena(i)
'в соответсвующие ячейки записываются количество собранных букетов за каждый год
Sheets("
Результат
").Cells(3 + i, 2 + j) = koll(i, j)
'рассчитывается количество собранных букетов каждого вида за 3 года
'результат записывается в соответствующие ячейки
Sheets
("Результат").
Cells
(3 +
i
, 6) =
koll
_
n
(
i
)
'на листе "Результат" создаются ячейки с определенными названиями
Sheets("Результат").Cells(12, 1) = "Доход в денежном эквиваленте"
Sheets("Результат").Cells(13, 1) = "Наименования цветов"
Sheets("Результат").Cells(13, 2) = "Цена 1-го букета"
Sheets("Результат").Cells(13, 3) = "Доход"
Sheets("Результат").Cells(14, 3) = "1-й год"
Sheets("Результат").Cells(14, 4) = "2-й год"
Sheets("Результат").Cells(14, 5) = "3-й год"
Sheets("Результат").Cells(14, 6) = "Всего"
Sheets("Результат").Cells(15, 1) = "Розы"
Sheets("Результат").Cells(16, 1) = "Гвоздики"
Sheets("Результат").Cells(17, 1) = "Лилии"
Sheets("Результат").Cells(18, 1) = "Тюльпаны"
Sheets("Результат").Cells(19, 1) = "Орхидие"
Sheets("Результат").Cells(20, 1) = "Хризантемы"
Sheets("Результат").Cells(21, 1) = "Доход по всем цветам за каждый год"
'во внешнем цикле происходит вывод дохода по всем цветам за каждый год и общий доход колхоза, собранных в данный период
'в этом цикле вычисляется общее количество букетов за 3 года
'доход по всем цветам за каждый год и общий доход колхоза за 3 года
Sheets("
Результат
").Cells(14 + i, 2 + j) = koll(i, j) * cena(i)
zar(j) = zar(j) + koll(i, j) * cena(i)
zar(6) = zar(6) + koll(i, j) * cena(i)
Sheets("
Результат
").Cells(14 + i, 2) = cena(i)
Sheets("
Результат
").Cells(14 + i, 6) = cena(i) * koll_n(i)
'в данном цикле происходит выбор суммы наибольшего заработка и соответственно
'день с максимальным заработком становится день j (день, в который был получен максимальный доход)
Sheets("
Результат
").Cells(21, 2 + j) = zar(j)
Sheets("
Результат
").Cells(23, 6) = vid
'в соответствующие ячейки выводятся заработок рабочего за неделю, день с максимальным доходом и размер дохода в этот день
Sheets("Результат").Cells(22, 1) = "Общий доход колхоза за 3 года"
Sheets("Результат").Cells(22, 6) = zar(6)
Sheets("Результат").Cells(23, 1) = "Вид цветов, принесший максимальный доход за 2 года"
Sheets("
Результат
").Cells(23, 6) = "
Розы
"
6. Описание входных данных и результат вычислений
Проверка программы на всех единицах:
Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2.
1. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.
2. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.
3. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.
4. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.
5. Практическая информатика, Часть 1 Н.А. Роганова, С.В. Андреев
6. Практическая информатика, Часть 1 Н.А. Роганова, С.В. Андреев
Название: Составление и описание программы по заданным параметрам
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа
Добавлен 08:13:31 05 ноября 2010 Похожие работы
Просмотров: 46
Комментариев: 15
Оценило: 3 человек
Средний балл: 5
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Курсовая работа: Составление и описание программы по заданным параметрам
Реферат: Концептуальний метод системного підходу до експертизи якості медичної допомоги
Курсовая работа: Организация производства ЗАО "Агоромаш". Скачать бесплатно и без регистрации
Реферат: АТС EWSD в качестве коммутационного узла сотовой связи
Реферат На Тему Статистика Национального Счетоводства
Рыночные Отношения Сочинение
Сочинение В Форме Письма 8 Класс
Реферат: British Canadian Perspective Essay Research Paper
Роль России В Оон Реферат
Образ Штольца В Романе Обломов Сочинение
Реферат: Методические рекомендации по применению международного стандарта бухгалтерского учета
Кросс Культурный Менеджмент Задачи И Проблемы Реферат
Реферат: Школы японских прикладных искусств. Скачать бесплатно и без регистрации
Статистика Труда Реферат По Информатике
формирование нравственных представлений дошкольников
Отчет По Практике По Уголовным Делам
Психология Конфликтов Реферат
Реферат: Директорія у Вінниці
Доклад: Бисероплетение
Реферат: Стиль и имидж менеджера туристической фирмы
Контрольная работа по теме Договор контрактации и специфика его исполнения
Реферат: Общественные разделения труда и экономические интеграции
Реферат: Государственное регулирование экономики в странах Восточной Европы
Курсовая работа: Анализ творчества Бэрримена