Программа подсчета доходов киоска печатной продукции
Создание программы на языке VBA, выводящей исходные данные в виде таблицы и выполняющей расчет дохода от продажи печатной продукции. Описание переменных, создание блок-схемы. Описание алгоритма работы, листинг программы, анализ результатов вычислений.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 27.04.2016 |
| Размер файла | 254,6 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru
Задание на курсовую работу
Киоск печатной продукции продал за 6 месяцев различное количество журналов (15 наименований) по цене, устанавливаемой в начале каждого месяца (каждый месяц цены на журналы менялись).
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
· исходные данные в виде таблицы, где указаны наименования журналов, цена журналов в каждом месяце, количество проданных журналов в течение месяца;
· доход по каждому журналу за первые 2 месяца; доход за месяц по всем журналам; общий доход по всем журналам за 6 месяцев;
Описание переменных
В программе переменные описаны следующим образом
Dim koll(5, 6) As Long
- количество за каждый день по всем 5 сортам бумаги
Dim price(5, 6) As Long
- закупочные цены каждого сорта бумаги по всем 6 дням
Dim total_kol_3den(5) As Long
- количество отгруженной бумаги за 3 дня(по сортам)
Dim total_kol_6den(6) As Long
- количество отгруженной бумаги за 6 месяцы(по дням)
Dim total_price As Long
- общий доход за 6 месяцы
Dim less_del As Long
- сорт отгруженный меньше всего в четвёртый день
Dim less_del_type As Long
- переменная необходима для вывода на экран названия сорта бумаги
Dim type_name(5) As String
- наименование журналов
Dim i, j As Integer
-переменные счетчиков цикла
программа алгоритм доход vba
Блок-схема
Описание алгоритма
Зарезервируем память для хранения переменных и массивов. Присвоим всем переменным нулевое значение. Создадим два цикла, для присвоения массивам нулевого значение. Выберем лист с начальными данными, создаем цикл для заполнения массива наименования журналов. Создаем внешний цикл для 15 журналов, затем создаем внутренний цикл для 6 месяцы, занесем данные с таблицы в массив об журналов за каждый день по всем 15, занесем данные с таблицы в массив о закупочных ценах журналах по всем 6 месяцам. Затем на втором листе заполним названия колонок и строк. Создаём два цикла для расчёта общей стоимости всех журналов, и общей стоимости всех журналов за 6 месяцев, после выхода из внутреннего цикла записываем данные в таблицу.
Создаем внешний цикл за 6 месяцев и внутренний для 15 журналов. Считаем доход за каждый день. Выходим из внутреннего цикла. Выводим доход за каждый месяц. Доход за 6 месяцев рассчитываем и выводим его. Выходим из внешнего цикла.
Листинг программы
Sub Кнопка1_Щелчок()
Dim i As Integer, j As Integer 'внутренние переменные
Dim type_name(15) As String 'журналы
Dim price(15, 6) As Long 'цена за единицу
Dim koll(15, 6) As Long 'количество (по месяцам)
Dim total_koll_3den(15) As Long 'количество проданных жарналов за 2 месяца
Dim total_koll_6den(6) As Long 'количество проданных журналов 6 месяцев( по месяцам)
Dim total_price As Long 'общая стоимость
total_price = 0
less_del = 0
less_del_type = 0
For i = 1 To 6
total_koll_6den(i) = 0
Next
For i = 1 To 15
total_koll_3den(i) = 0
Next
'Выбираем лист начальных данных
Sheets("Начальные_Данные").Select
'Выбираем название журналов
For i = 1 To 15
type_name(i) = Cells(3 + i, 1)
Next
'Вводим цену и количество
For i = 1 To 15
For j = 1 To 6
price(i, j) = Cells(20 + i, 2 + j)
koll(i, j) = Cells(3 + i, 2 + j)
Next j
Next i
'Далее на листе "Result" в ячейку с определенными данными вводится ее название
Sheets("Result").Cells(1, 1) = "Продажа журналов"
Sheets("Result").Cells(2, 1) = "Наименование"
Sheets("Result").Cells(2, 3) = "Поставки"
Sheets("Result").Cells(3, 3) = "1-й месяц"
Sheets("Result").Cells(3, 4) = "2-й месяц"
Sheets("Result").Cells(3, 5) = "Всего"
Sheets("Result").Cells(4, 1) = "Журнал 1"
Sheets("Result").Cells(5, 1) = "Журнал 2"
Sheets("Result").Cells(6, 1) = "Журнал 3"
Sheets("Result").Cells(7, 1) = "Журнал 4"
Sheets("Result").Cells(8, 1) = "Журнал 5"
Sheets("Result").Cells(9, 1) = "Журнал 6"
Sheets("Result").Cells(10, 1) = "Журнал 7"
Sheets("Result").Cells(11, 1) = "Журнал 8"
Sheets("Result").Cells(12, 1) = "Журнал 9"
Sheets("Result").Cells(13, 1) = "Журнал 10"
Sheets("Result").Cells(14, 1) = "Журнал 11"
Sheets("Result").Cells(15, 1) = "Журнал 12"
Sheets("Result").Cells(16, 1) = "Журнал 13"
Sheets("Result").Cells(17, 1) = "Журнал 14"
Sheets("Result").Cells(18, 1) = "Журнал 15"
'Всего продаж по дням
Sheets("Result").Select
Sheets("Result").Cells(21, 1) = "Общий доход за каждый месяц"
Sheets("Result").Cells(22, 1) = " 1-й месяц"
Sheets("Result").Cells(22, 2) = "2-й месяц"
Sheets("Result").Cells(22, 3) = "3-й месяц"
Sheets("Result").Cells(22, 4) = "4-й месяц"
Sheets("Result").Cells(22, 5) = "5-й месяц"
Sheets("Result").Cells(22, 6) = "6-й месяц"
'Продажи за первые 2 дня
For i = 1 To 15
For j = 1 To 2
Sheets("Result").Cells(3 + i, 2 + j) = koll(i, j)
total_koll_3den(i) = total_koll_3den(i) + koll(i, j)
Next j
Sheets("Result").Cells(3 + i, 5) = total_koll_3den(i)
Next i
For i = 1 To 6
For j = 1 To 15
total_koll_6den(i) = total_koll_6den(i) + koll(j, i)
total_price = total_price + price(j, i) * koll(j, i)
Next j
Sheets("Result").Cells(23, i) = total_koll_6den(i)
Next i
'Общая стоимость проданных журналов
Sheets("Result").Cells(20, 1) = "Общая стоимость"
Sheets("Result").Cells(20, 5) = total_price
End Sub
Описание вводных данных и результат вычислений
Таблица исходных данных.
Таблица с вычислениями.
Литература
· http://www.studfiles.ru/preview/4594395/
· http://koi.tspu.ru/exel.htm
· http://excelvba.ru/code
Размещено на Allbest.ru
...Подобные документы
Характеристика программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит результаты на экран. Описание переменных в программе, ее блок-схема и алгоритм работы. Листинг программы. Описание входных данных и результат вычислений.
курсовая работа [721,4 K], добавлен 10.11.2010Разработка программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран заданную информацию. Типы блок-схем и их использование при написании программы. Описание входных данных и результат вычислений, листинг программы.
курсовая работа [680,3 K], добавлен 03.08.2009Программа на языке VBA, которая выводит исходные данные на экран и выполняет расчеты и предназначена для учета на складе мастерской индивидуального пошива. Описание переменных и алгоритма программы. Листинг программы, примеры произведенных расчетов.
реферат [25,4 K], добавлен 10.12.2010Создание на языке C базы данных "Стадионы города", требования к программе. Осуществление загрузки базы данных в массив и вывод главного меню в основной программе. Алгоритм работы программы в виде блок-схемы. Описание функций программы и ее листинг.
курсовая работа [183,6 K], добавлен 06.10.2010Создание приложения, исполняющего трансляцию программы из языка Паскаль в язык Си: разработка алгоритма реализации задачи, описание необходимых констант, переменных, функций и операторов, представление листинга программы и распечатка результатов.
курсовая работа [305,9 K], добавлен 03.07.2011Преобразование матрицы по заданным правилам. Методика работы с массивами, основанная на классических алгоритмах. Разработка и описание блок-схемы алгоритма. Листинг программы, экраны работы и отладки программы. Инструкция для пользователей программы.
контрольная работа [338,4 K], добавлен 29.01.2013Разработка программы тестирования студентов по MS PowerPoint с кодом на языке Delphi. Создание алгоритма для решения функциональных требований задачи. Описание переменных, вспомогательных процедур, входных и выходных данных для реализации программы.
курсовая работа [1,5 M], добавлен 21.09.2010Разработка программы на языке Pascal. Описание переменных. Действия, которые должна выполнить программа согласно выбранного алгоритма. Детализация графической части программы. Листинг и тестирование программы. Вывод массива данных на экран монитора.
контрольная работа [360,4 K], добавлен 13.06.2012Составление схемы алгоритма и программы для построения графика временной функции, работающей как в машинном, так и в реальном времени. Пример вычисления степенного ряда с помощью схемы Горнера. Описание переменных программы, листинг, процедуры и функции.
курсовая работа [67,6 K], добавлен 20.11.2012Создание имитационной модели для регистрации транспортных средств. Построение Q-схемы модели. Базовый алгоритм программы в виде блок-схемы. Проектирование программы на языке GPSS. Обработка результатов работы. Планирование модельных экспериментов.
курсовая работа [490,5 K], добавлен 18.12.2013Написание прикладного Windows-приложения на примере программы-органайзера, позволяющей вести электронный ежедневник и телефонную записную книжку. Описание блок-схемы программы и операционной системы. Листинг результатов обработки на контрольном примере.
дипломная работа [2,5 M], добавлен 29.12.2014Постановка задачи и алгоритм решения. Листинг программы, иллюстрирующей работу с символами, строками и блоками. Описание возможностей языка С, используемых для реализации алгоритма. Тестирование итоговой программы, анализ полученных результатов расчета.
курсовая работа [63,0 K], добавлен 27.12.2012Разработка функциональной и принципиальной схемы. Выбор управляющего контроллера. Описание МК PIC16F626, МК AVR, МК 51. Выбор элементной базы. Разработка управляющей программы. Описание алгоритма работы программы. Схема устройства, листинг программы.
курсовая работа [492,9 K], добавлен 28.12.2012Описание алгоритма решения задачи графическим способом. Вывод элементов массива. Описание блоков укрупненной схемы алгоритма на языке Pascal. Листинг программы, а также ее тестирование. Результат выполнения c помощью ввода различных входных данных.
контрольная работа [150,4 K], добавлен 03.05.2014Разработка программы игры в крестики-нолики. Примеры игровой ситуации на игровом поле. Описание входных и выходных данных, переменных и функций программы. Реализация алгоритма работы программы на языке C++. Текст программы и примеры ее выполнения.
курсовая работа [352,8 K], добавлен 14.04.2011Описание авторской идеи анимации, использования базовых команд и конструкций. Процесса проектирования программы. Описание алгоритма разработанной программы. Последовательность создания анимации. Листинг программы и скриншот рисунка по программе.
курсовая работа [911,5 K], добавлен 20.05.2013Программа для расчета полинома. Описание и схема алгоритма, распределение памяти под код программы, под данные и стек. Схема хранения операций ввода-вывода и их подключение. Изменения стека во время прогона программы. Листинг программы с комментариями.
курсовая работа [59,0 K], добавлен 02.12.2009Постановка задачи и ее математическая модель. Блок-схема алгоритма обработки массивов координат точек. Тестирование алгоритма сортировки. Используемые глобальные и локальные переменные. Листинг программы на языке Си. Анализ результатов. Пример работы.
курсовая работа [1,8 M], добавлен 08.11.2012Создание базы данных и СУБД. Структура простейшей базы данных. Особенности языка программирования Турбо Паскаль. Описание типов, констант, переменных, процедур и функций. Описание алгоритма базы данных (для сотрудников ГИБДД), листинг программы.
курсовая работа [26,3 K], добавлен 26.01.2012Формулировка задачи о замочной скважине, подойдет ли ключ к замку. Составление блок-схемы, которая позволяет наглядно увидеть ход выполнения поставленной задачи. Описание использованных переменных. Анализ результатов вычислений, листинг программы.
курсовая работа [134,1 K], добавлен 07.05.2012
