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

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

Задание

программа листинг алгоритм

Магазин швейных принадлежностей продал за 6 месяцев различное количество пуговиц (17 наименований) по цене, устанавливаемой в начале каждого месяца (каждый месяц цены на пуговицы менялись).

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

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

- доход по каждому виду пуговиц за первые 3 месяца;

- доход за каждый месяц по всем пуговицам;

- общий доход по всем пуговицам за 6 месяцев;

- наименование пуговиц, принесших наибольший доход в первом месяце.

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

На листе «Нач_д» (рис. 1) расположены исходные данные в виде таблицы: наименования пуговиц (17 наименований), цена пуговиц в каждом из 6 месяцев, количество проданных пуговиц в течение каждого месяца. Также на листе расположена кнопка «Расчитать». По нажатию на неё запускается выполнение макроса. Программный код приведён ниже.

Рис. 1. Лист «Нач_д»

В программе используются переменные и массивы типов Integer (целое число), Double (число с плавающей точкой) и String (строка). Массив строк используется для хранения наименований пуговиц. В массивы типа Double записываются цены пуговиц в каждом месяце, выручки за интересующие периоды и общий доход. В массиве типа Integer хранится количество проданных пуговиц по наименованиям в каждом месяце. В программе присутствуют вспомогательные переменные типа Integer. i и j - счётчики циклов. Переменная a использующаяся для расчёта наименования пуговиц принёсших наибольшую прибыль в первом месяце. Все переменные приведены ниже.

1. i As Integer, j As Integer, a As Integer - вспомогательные переменные;

2. kol (17, 6) As Integer - количество проданных пуговиц (массив);

3. cena (17, 6) As Double - цена пуговиц (массив);

4. viruchka (17, 6) As Double - выручка (массив);

5. viruchkaM(6) As Double - выручка за каждый месяц (массив);

6. viruchka3 (17) As Double - выручка за первые 3 месяца по всем пуговицам (массив);

7. dohod As Double - доход от продаж;

8. pugovici(17) As String - наименование пуговиц (массив);

9. max As Double - максимальный доход в первом месяце (массив).

2. Блок схема

Рис. 2. Блок-схема (часть 1)



Рис. 2. Блок-схема (часть 2)

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

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

Ввод начальных (нулевых) значений для расчетных величин ('массив месячной выручки от продажи учебников, массив количества проданных учебников конкретного наименования, количество проданных учебников немецкого языка, выручка от продажи учебников немецкого языка, 'доход от учебника, принёсшего наибольший доход в первом месяце).

Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные (массивы tovari (7, 2), сеnа (7,3) и kоll (7, 3)).

Открытие листа с результатами, формирование матрицы входных данных. Формируется вложенный цикл для расчёта выручки от продажи учебников за конкретный месяц. Также в этом цикле рассчитывается выручка от всех продаж за каждый месяц. Затем на листе «Результат» формируется таблица для вывода рассчитанных значений. В неё выводится наименования товаров и рассчитанная ранее выручка. После подготовки ячеек для записи результатов расчетов начинается расчёт необходимых величин. Во вложенном чикле рассчитывается выручка от продажи учебников немецкого языка и количество проданных учебников немецкого языка. После внешнего цикла проверяется условие (является ли учебник учебником по немецкому языку), в случае выполнения условия увеличиваются переменные: выручка от продажи учебников немецкого языка и количество проданных учебников немецкого языка. Затем в цикле рассчитывается индекс учебника, принёсшего наибольшую прибыль в первом месяце по которому можно получить из массива tovari (7, 2) наименование учебника, принёсшего наибольшую прибыль, и фамилию его автора. В цикл вложено условие для поиска необходимого индекса. В случае если прибыль от учебника больше максимальной, то она становится максимальный и сохраняется индекс (в начале максимальная прибыль по умолчанию равна нулю).

После проведения всех необходимых расчётов результат выводится в соответствующие ячейки. Конец программы.

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

Sub kr_Click()

'объявляем переменные

Dim i As Integer, j As Integer, a As Integer 'вспомогательные переменные

Dim kol (17, 6) As Integer ' количество проданных пуговиц

Dim cena (17, 6) As Double 'цена пуговиц

Dim viruchka (17, 6) As Double 'выручка

Dim viruchkaM(6) As Double 'выручка за каждый месяц

Dim viruchka3 (17) As Double 'выручка за первые 3 месяца по всем пуговицам

Dim dohod As Double 'доход от продаж

Dim pugovici(17) As String 'наименование пуговиц

Dim max As Double 'максимальный доход в первом месяце

'присваиваем значение 0 переменным

For i = 1 To 6

viruchkaM(i) = 0

Next

For i = 1 To 17

viruchka3 (i) = 0

Next

max = 0

dohod = 0

'считываем начальные данные

Sheets («Нач_д»).Select

'заполняем массив с наименованием пуговиц

For i = 1 To 17

pugovici(i) = Cells (i + 3, 1)

Next i

'заполняем массив с количеством проданных пуговиц в двумерном цикле

For i = 1 To 17

For j = 1 To 6

kol (i, j) = Cells (3 + i, j * 2)

Next j

Next i

'заполняем массив с ценами в двумерном цикле

For i = 1 To 17

For j = 1 To 6

cena (i, j) = Cells (3 + i, 1 + j * 2)

Next j

Next i

'создаём необходимые ячейки на листе «Результат»

Sheets («Результат»).Cells (1, 1) = «Продажа пуговиц»

Sheets («Результат»).Cells (2, 1) = «Наименование пуговиц»

Sheets («Результат»).Cells (2, 2) = «1-й месяц»

Sheets («Результат»).Cells (2, 4) = «2-ой месяц»

Sheets («Результат»).Cells (2, 6) = «3-й месяц»

Sheets («Результат»).Cells (2, 8) = «4-й месяц»

Sheets («Результат»).Cells (2, 10) = «5-й месяц»

Sheets («Результат»).Cells (2, 12) = «6-й месяц»

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) = «цена»

'выводим названия пуговиц

For i = 1 To 17

Sheets («Результат»).Cells (3 + i, 1) = pugovici(i)

Next i

'выводим цены в двумерном цикле

For i = 1 To 17

For j = 1 To 6

Sheets («Результат»).Cells (3 + i, 1 + j * 2) = cena (i, j)

Next j

Next i

'выводим количество проданных пуговиц в двумерном цикле

For i = 1 To 17

For j = 1 To 6

Sheets («Результат»).Cells (3 + i, j * 2) = kol (i, j)

Next j

Next i

'рассчитываем выручку, выручку по каждому месяцу и общий доход в двумерном цикле

For i = 1 To 17

For j = 1 To 6

viruchka (i, j) = kol (i, j) * cena (i, j)

viruchkaM(j) = viruchkaM(j) + viruchka (i, j)

dohod = dohod + viruchka (i, j)

Next j

Next i

'рассчитываем выручку за 3 месяца по каждому виду пуговиц в двумерном цикле

For j = 1 To 3

For i = 1 To 17

viruchka3 (i) = viruchka3 (i) + viruchka (i, j)

Next i

Next j

'создаём необходимые ячейки на листе «Результат»

Sheets («Результат»).Select

Sheets («Результат»).Cells (24, 1) = «Наименование пуговиц»

Sheets («Результат»).Cells (42, 1) = «Всего за месяц»

Sheets («Результат»).Cells (24, 2) = «1-й месяц»

Sheets («Результат»).Cells (24, 3) = «2-ой месяц»

Sheets («Результат»).Cells (24, 4) = «3-й месяц»

Sheets («Результат»).Cells (24, 5) = «4-й месяц»

Sheets («Результат»).Cells (24, 6) = «5-й месяц»

Sheets («Результат»).Cells (24, 7) = «6-й месяц»

Sheets («Результат»).Cells (24, 8) = «всего за 3 месяца»

'выводим названия пуговиц

For i = 1 To 17

Sheets («Результат»).Cells (24 + i, 1) = pugovici(i)

Next i

'выводим выручку в двумерном цикле

For i = 1 To 17

For j = 1 To 6

Sheets («Результат»).Cells (24 + i, 1 + j) = viruchka (i, j)

Next j

Next i

'выводим выручку по каждому месяцу

For j = 1 To 6

Sheets («Результат»).Cells (42, 1 + j) = viruchkaM(j)

Next

'выводим выручку за 3 месяца по каждому виду пуговиц

For i = 1 To 17

Sheets («Результат»).Cells (24 + i, 8) = viruchka3 (i)

Next i

'создаём необходимые ячейки на листе «Результат»

Sheets («Результат»).Cells (44, 1) = «Общий доход»

Sheets («Результат»).Cells (46, 1) = «Наибольшую прибыль за 1-й месяц принёсли»

'рассчитываем пуговицы принёсшие наибольшую прибыль в цикле, с условием

For i = 1 To 17

If max < viruchka (i, 1) Then

max = viruchka (i, 1)

a = i

End If

Next i

'вывод результатов

Sheets («Результат»).Cells (44, 4) = dohod

Sheets («Результат»).Cells (46, 4) = pugovici(a)

End Sub

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

В результате выполнения программы (вызванной нажатием на кнопку «Расчитать» на листе с исходными данными (п. 1 рис. 1)) получаем результаты на листе «Результат» представленные на рисунке 3.

В результате работы программы выводятся:

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

- доход по каждому виду пуговиц за первые 3 месяца;

- доход за каждый месяц по всем пуговицам;

- общий доход по всем пуговицам за 6 месяцев;

- наименование пуговиц, принесших наибольший доход в первом месяце.

Рис. 3. Результат

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

1. VBA. Практическое программирование/ Туркин Олег: Солон-пресс, 2007

2. VBA/ Кузьменко В.Г.: Бином, 2008.

3. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008

4. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б.М.: МГИУ, 2003.

5. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П.М.: МГИУ, 2005.

6. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В.М.: МГИУ, 2008.

7. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В.М.: МГИУ. 2006.

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

...