Фабрика по производству обуви

Порядок и основные этапы разработки программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран данные. Требования к ее функциональности, внутренняя структура и компоненты. Описание переменных и алгоритма, листинг.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 23.02.2015
Размер файла 706,8 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

1. Задание на курсовую работу

Фабрика по производству обуви в течение 5 месяцев выпускала обувь 3 типов (мужская, женская, детская). Цена устанавливалась в начале каждого месяца.

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

· исходные данные в таблице, где перечислены наименование и цена каждого типа обуви, расфасовку и месяц;

· количество проданной мужской обуви.

· минимальная цена женской обуви в первом месяце;

· доход, полученный за 5 месяцев за детскую обувь;

· какая обувь имела наименьший доход на весь период.

2. Описание переменных

алгоритм программа переменная

Рис. 1 Лист с начальными данными

Рис. 2 Полученный результат

Исходные данные находятся на листе «Boots» (рис. 1) и содержит следующую информацию:

1. Количество обуви, состоящее из трех типов (мужская, женская и детская), выпущенная в течение 5 месяцев.

2. Цена и количество за каждые месяцы.

Полученный результат программы оформлен на «листе 2» (рис. 2).

В программе переменные данные описаны следующим образом:

1 List M - мужская обувь.

2. List G - женская обувь.

3. List C - детская обувь.

4. Price (5) As long- 5 значений цены за каждый месяц.

5. Count (5) As integer- 5 значений количества проданной обуви.

6. Private Type TBoot - название типа записи.

7. Dim list M As Tboot-массив для хранения «мужской обуви».

8. Dim list G As Tboot - массив для хранения «женской обуви».

9. Dim list C As Tboot-массив для хранения «детской обуви»

10. Dim result As long - временная переменная, в которой записаны результаты расчетов и записи.

3. Описание алгоритма

Начало программы.

Находим номера строчек, между которыми находятся данные по каждому типу обуви (три типа обуви). Создаем пустые массивы и выполняем функцию GetData для каждого типа обуви (заполняем три массива). Присваиваем первой ячейке на втором листе значение «количество проданной мужской обуви». В двойном цикле по каждой записи мужской обуви (listM) и по каждому месяцу суммируем количество проданной обуви и выводим в ячейку рядом. Присваиваем второй ячейке на втором листе значение «минимальная цена женской обуви за первый месяц». Перебиваем в цикле по всей женской обуви (listG) цену за первый месяц и если значение оказалось меньше чем заданного, то присваиваем этому числу. Выводим в ячейку рядом. Присваиваем третей ячейке на втором листе значение «доход, полученный за 5 месяцев за детскую обувь». В двойном цикле по детской обуви (listC) и ее цене (Price) умноженное на количество (Count) суммируем произведения выводим в ячейку рядом. Присваиваем четвертой ячейке на втором листе значение «какая обувь имела наименьший доход за весь период». Двойным циклом по каждой записи по мужской обуви (listM) и по месяцам перемножаем сумму и количество и прибавляем свою переменную (Count).В конце первого цикла проверяем (Result)<(Count) если да то запоминаем в (Result) и получаем сумму. И так же по следующим типам обуви.

4. Листинг программ

Sub macros ()

(1)

IndexM=GetIndex («Женская обувь») - номер строки где есть слово «женская обувь»

EmptyIndexM=GetNext EmptyIndex (IndexM) - номер строки где заканчивается слово «женская обувь»

IndexG=GetIndex («Мужская обувь») - номер строки где есть слово «мужская обувь»

EmptyIndexG= GetNext EmptyIndex (IndexG) - номер строки где заканчивается слово «мужская обувь»

IndexC= GetIndex («Детская обувь») - номер строки где есть слово «детская обувь»

EmptyIndexС= GetNext EmptyIndex (IndexС) - номер строки где заканчивается слово «детская обувь»

(2)

Dim listM () As Tboot-массив для хранения данных по «Мужской обуви»

Dim listG () As Tboot - массив для хранения данных по «Женской обуви»

Dim listC () As Tboot - массив для хранения данных по «Детской обуви»

ListM=GetData (indexM+3, EmptyindexM-заполняем массив «Мужская обувь»

ListG=GetData (indexG+3, EmptyindexG-заполняем массив «Женская обувь»

ListC=GetData (indexC+3, EmptyindexC-заполняем массив «Детская обувь»

(3)

Sheets (2).Cells (1, 1) - количество проданной обуви

Dim result As Long - временная переменная в которой записывается результат подсчетов и записываем в ячейку второго столбца второго листа

For i=0 To UBoond (listM)

For j=1To 5

Result=result+listM (i). Count (j)

Next

Next

Sheets (2).Cells (1, 2) =result

(4)

Sheets (2).Ceells (2, 1) = «минимальная цена женской обуви в первый месяц»

Result=100000

For i=0 To UBoond (listG)

If (result>listG (i).Price (1)) Then

Result=listG (i).Price (1)

Next

Sheets (2).Cells (2, 2) =result

(5)

Sheets (2).Cells (3, 1) = «доход полученный за 5 месяцев за детскую обувь»

Result=0

For i=0 To UBoond (listС)

For j=1To 5

Result= result+listC (i).Count (j)*listC (j).Price (j)

Next

Next

Sheets (2).Ceells (3, 2) =result

(6)

Sheets (2).Ceells (4, 1) = «какая обувь имела наименьший доход за весь период»

Result=0

Dim str As String - записываем название обуви удовлетворяющее условию

Dim count As Long - временная переменная для записи дохода за весь период

For i=0 To UBoond (listС)

Count=0

For j=1To 5

Count=count+listC (i).Count (j)*listC (i).Price (j)

Next

If (result< count) Then

Result=count

Str=listC (i).Name

Next

For i=0 To UBoond (listM)

Count=0

For j=1To 5

Count=count+listM (i).Count (j)*listM (i).Price (j)

Next

For i=0 To UBoond (listG)

Count=0

For j=1To 5

Count=count+listG (i).Count (j)*listG (i).Price (j)

Next

If (result< count) Then

Result= count

STR=listG (i).Name

Next

Sheets (2).Ceells (4, 2) =result

End Sub

5. Описание входных данных и результат вычислений

Проверка программы на всех единица:

Проверка произвольных данных.

Список использованной литературы

1. Степанов А.Н. «Информатика: Учебник для Вузов» 6-из // - П.; Питер, 2010.

2. Мозговой М.В. «Занимательное программирование. Самоучитель» // - .изд. Питер-2003.

3. Бурнов В.А., Карпушкин Н.А, Овсянников В.М «Практические занятия по информатике» // изд. Образование и информатика-2001.

4. Малинина Л.А «Основы информатики: Учебник для вузов» // изд. Феникс -2006.

5. Пак. Н.И, Хенкер Е.К «Практикум по информатике. Учебное пособие для Вузов» // . изд. - Сфера - 2009.

6. Степанов А.Н «Информатика. Учебник для Вузов» // . изд. Питер - 2010.

7. Угринович Н.Д.» Информатика и информационные технологии. Учебник для 10-11 классов» // изд. Бином-2009.

8. «Основы информатики: Учебник для Вузов» // изд-во МГТУ им Н.Э. Баумана-2001.

9. Кузнецова О.С. «Краткий курс по информатике» // изд-во Окей-книга - 2011.

10. Агальцов В.П., Титов В.М «Информатика для экономистов» // изд-во Форум -2010.

Размещено на Allbest.ru

...

Подобные документы

  • Характеристика программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит результаты на экран. Описание переменных в программе, ее блок-схема и алгоритм работы. Листинг программы. Описание входных данных и результат вычислений.

    курсовая работа [721,4 K], добавлен 10.11.2010

  • Программа на языке VBA, которая выводит исходные данные на экран и выполняет расчеты и предназначена для учета на складе мастерской индивидуального пошива. Описание переменных и алгоритма программы. Листинг программы, примеры произведенных расчетов.

    реферат [25,4 K], добавлен 10.12.2010

  • Разработка программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран заданную информацию. Типы блок-схем и их использование при написании программы. Описание входных данных и результат вычислений, листинг программы.

    курсовая работа [680,3 K], добавлен 03.08.2009

  • Разработка программы на языке VBA для управления деятельностью птицеводческой фермы, которая вводит исходные данные, выполняет расчеты и выводит на экран расчет данных по уходу за гусями и показатели оценки эффективности организации птицеводства.

    курсовая работа [1,8 M], добавлен 19.04.2011

  • Программа на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран. Лист с начальными данными. Ввод начальных (нулевых) значений для расчетных величин. Вспомогательные переменные, счетчики циклов. Формирование матрицы данных.

    курсовая работа [2,7 M], добавлен 01.12.2010

  • Написание программы, которая вводит исходные данные, выполняет расчет и выводит на экран. Использование вспомогательных переменных и счетчиков циклов в программе. Расчет сумм заработков по каждому виду одежды за день, количества изготовленных деталей.

    курсовая работа [2,4 M], добавлен 17.01.2015

  • Разработка программы на языке Pascal. Описание переменных. Действия, которые должна выполнить программа согласно выбранного алгоритма. Детализация графической части программы. Листинг и тестирование программы. Вывод массива данных на экран монитора.

    контрольная работа [360,4 K], добавлен 13.06.2012

  • Структура записей входного массива. Описание основных типов данных. Алгоритм программы: присвоение начальных значений переменных, чтение списка из файла, вывод данных на экран, выполнение обработки данных, сохранение списка в файл. Листинг программы.

    курсовая работа [325,2 K], добавлен 28.12.2012

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

    курсовая работа [372,6 K], добавлен 17.04.2014

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

    курсовая работа [420,0 K], добавлен 28.05.2012

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.