Создание программного обеспечения

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

17

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

СОДЕРЖАНИЕ

1.Задание

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

3. Блок-схема

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

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

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

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

6.2 Проверка программы на всех НУЛЯХ

6.3 Проверка программы на всех ЕДИНИЦАХ

Список литературы

1. Задание

Магазин «Компьютерные аксессуары» продал за 4 квартала различное количество компьютерных игр (7 наименований) по цене, устанавливаемой в начале каждого квартала (т.е. каждый квартал цены на компьютерные игры менялись). написание программа алгоритм листинг

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

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

доход от каждой игры за год;

доход за каждый квартал по всем играм;

общий доход от всех игр за год;

наименование игры, принесшей наименьший доход за год.

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

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

1)cena(7,4) - стоимость одной игры каждого наименования в каждом квартале, представляет двумерный массив целых чисел

Dim cena(7,4) As Double

2)koll(7,4) - количество игр каждого наименования, проданных в каждый из четырех кварталов, представляет двумерный массив целых чисел

Dim koll(7,4) As Integer

3)doh(5) - доход за каждый квартал (от 1 до 4) и общий доход за весь период, представляет массив дробных чисел

Dim doh (5) As Double

4)koll_n(7) - количество проданных игр каждого наименования за истёкший период, представляет массив целых чисел

Dim kol_n(7) As Integer

5)number - порядковый номер наименования игры, принёсший наименьший доход, представляет массив дробных чисел

Dim number As Integer

6)min - наименьший доход игры за год.

Dim min As Double

В программе также были использованы вспомогательные переменные, счётчики циклов, i, p и j, являющиеся целыми числами.

Dim i As Integer, j As Integer, p As Integer

Переменные cena(7,4), doh(5) могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll(7,4), koll_n(7), nam - целые числа, так как в магазине «Компьютерные аксессуары» продаются только целые игры, а не половинки.

3. Блок-схема

В данной работе использованы следующие виды блоков:

· квадрат - блок решения;

· эллипс - данный блок используется для обозначения начала и конца алгоритма;

· шестиугольник - данный блок используется для обозначения оператора цикла;

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

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

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

17

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

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

17

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

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

17

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

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

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

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

Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные (двумерные массивы cena (12,3) и koll (12,3)).

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

Расчёт количества дохода по каждому наименованию игр за каждый месяц, количество проданных игр и вывод результатов. Организуется два вложенных цикла: внешний по наименованиям игр, внутренний по кварталам. Для оптимизации процесса расчётная часть совмещена с выводом: во внутреннем цикле происходит вычисление дохода по i-му наименованию в j-ый месяц с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) - вывод дохода по каждому наименованию. Вывод общего дохода и доходов за каждый квартал реализуется в отдельном цикле.

Определение игры с минимальным доходом. Используется алгоритм сравнения, при равенстве двух и более годовых сумм результативной считается первая сумма.

Конец программы.

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

Sub Funct()

Dim cena(7, 4) As Double`стоимость игры

Dim koll(7, 4) As Integer`количество по кварталам

Dim kol_n(7) As Integer `количество в квартал

Dim doh(5) As Double `доход в квартал и годовой

Dim number As Integer `номер игры с наименьшим доходом

Dim min As Double`наименьший доход за год

Dim i As Byte, j As Integer, p As Integer `счетчики чисел

For i = 1 To 7

kol_n(i) = 0

Next

For j = 1 To 5

doh(j) = 0

Next

Sheets("Нач_д").Select

For i = 1 To 7

For p = 1 To 4

cena(i, p) = Cells(3 + i, 1 + p)

Next p

Next i

For i = 1 To 7

For j = 1 To 4

koll(i, j) = Cells(3 + i, 5 + j)

Next j

Next i

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

For i = 1 To 6 `обнуление листа «Результат», чтобы предыдущее решение

For j = 1 To 9 `не смешивалось (суммировалось) с последующим

Sheets("Результат").Cells(i +3 , j+1) = 0

Sheets("Результат").Cells(i +14 , j+1) = 0

Next j

Next i

Sheets("Результат").Cells(1, 1) = "Количество проданных игр"

Sheets("Результат").Cells(2, 1) = "Наименование"

Sheets("Результат").Cells(2, 2) = "Стоимость"

Sheets("Результат").Cells(2, 6) = "Количество"

Sheets("Результат").Cells(3, 10) = "Всего"

Sheets("Результат").Cells(3, 2) = "1 Квартал"

Sheets("Результат").Cells(3, 3) = "2 Квартал"

Sheets("Результат").Cells(3, 4) = "3 Квартал"

Sheets("Результат").Cells(3, 5) = "4 Квартал"

Sheets("Результат").Cells(3, 6) = "1 Квартал"

Sheets("Результат").Cells(3, 7) = "2 Квартал"

Sheets("Результат").Cells(3, 8) = "3 Квартал"

Sheets("Результат").Cells(3, 9) = "4 Квартал"

Sheets("Результат").Cells(4, 1) = "Винни пух ч.1"

Sheets("Результат").Cells(5, 1) = "Винни пух ч.2"

Sheets("Результат").Cells(6, 1) = "Винни пух ч.3"

Sheets("Результат").Cells(7, 1) = "Винни пух ч.4"

Sheets("Результат").Cells(8, 1) = "Винни пух ч.5"

Sheets("Результат").Cells(9, 1) = "Винни пух ч.6"

Sheets("Результат").Cells(10, 1) = "Винни пух ч.7"

For i = 1 To 7

For p = 1 To 4

Sheets("Результат").Cells(3 + i, 1 + p) = cena(i, p)

Next p

For j = 1 To 4

Sheets("Результат").Cells(3 + i, 5 + j) = koll(i, j)

kol_n(i) = kol_n(i) + koll(i, j)

Next j

Sheets("Результат").Cells(3 + i, 10) = kol_n(i)

Next i

Sheets("Результат").Cells(12, 1) = "Результат в денежном эквиваленте"

Sheets("Результат").Cells(13, 1) = "Наименование"

Sheets("Результат").Cells(13, 2) = "Стоимость"

Sheets("Результат").Cells(13, 6) = "Доход"

Sheets("Результат").Cells(13, 10) = "Всего"

Sheets("Результат").Cells(14, 2) = "1 Квартал"

Sheets("Результат").Cells(14, 3) = "2 Квартал"

Sheets("Результат").Cells(14, 4) = "3 Квартал"

Sheets("Результат").Cells(14, 5) = "4 Квартал"

Sheets("Результат").Cells(14, 6) = "1 Квартал"

Sheets("Результат").Cells(14, 7) = "2 Квартал"

Sheets("Результат").Cells(14, 8) = "3 Квартал"

Sheets("Результат").Cells(14, 9) = "4 Квартал"

Sheets("Результат").Cells(15, 1) = "Винни пух ч.1"

Sheets("Результат").Cells(16, 1) = "Винни пух ч.2"

Sheets("Результат").Cells(17, 1) = "Винни пух ч.3"

Sheets("Результат").Cells(18, 1) = "Винни пух ч.4"

Sheets("Результат").Cells(19, 1) = "Винни пух ч.5"

Sheets("Результат").Cells(20, 1) = "Винни пух ч.6"

Sheets("Результат").Cells(21, 1) = "Винни пух ч.7"

Sheets("Результат").Cells(22, 1) = "Итого"

For i = 1 To 7

For p = 1 To 4

Sheets("Результат").Cells(14 + i, 1 + p) = cena(i, p)

Next p

Next i

For i = 1 To 7

For j = 1 To 4

Sheets("Результат").Cells(14 + i, 5 + j) = koll(i, j) * cena(i, j)

doh(j) = doh(j) + koll(i, j) * cena(i, j)

doh(5) = doh(5) + koll(i, j) * cena(i, j)

Sheets("Результат").Cells(14 + i, 10) = Sheets("Результат").Cells(14 + i, 10) + cena(i, j) * koll(i, j)

Next j

Next i

For i = 1 To 5

Sheets("Результат").Cells(22, 5 + i) = doh(i)

Next i

min = Sheets("Результат").Cells(17, 10)

number = 3

For i = 1 To 7

If Sheets("Результат").Cells(14 + i, 10) < min Then

min = Sheets("Результат").Cells(14 + i, 10)

number = i

End If

Next i

Sheets("Результат").Cells(23, 1) = "Доход за год"

Sheets("Результат").Cells(23, 2) = doh(5)

Sheets("Результат").Cells(24, 1) = "Игра с наименьшим доходом"

Sheets("Результат").Cells(24, 2) = Sheets("Результат ").Cells(14 + number, 1)

Sheets("Результат").Cells(24, 3) = "Доход"

Sheets("Результат").Cells(24, 4) = min

End Sub

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

Для начала создаём документ Microsoft Excel и записываем на рабочий лист начальные данные. Затем запускаем редактор Visual Basic, чтобы в нём написать код программы. Далее сохраняем изменения в созданном модуле и запускаем программу. Исправляем допущенные ошибки. После чего результат работы программы будет помещён на лист «Результат».

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

Начальные данные
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал
Винни пух ч.1	10	15	12	15	8	3	5	5
Винни пух ч.2	11	13	12	10	4	3	3	5
Винни пух ч.3	12	14	13	10	8	5	10	12
Винни пух ч.4	16	17	15	12	9	7	9	11
Винни пух ч.5	18	15	15	15	4	2	2	2
Винни пух ч.6	20	18	16	18	10	12	15	10
Винни пух ч.7	25	26	28	24	18	18	9	12

Количество проданных игр
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	Всего
Винни пух ч.1	10	15	12	15	8	3	5	5	21
Винни пух ч.2	11	13	12	10	4	3	3	5	15
Винни пух ч.3	12	14	13	10	8	5	10	12	35
Винни пух ч.4	16	17	15	12	9	7	9	11	36
Винни пух ч.5	18	15	15	15	4	2	2	2	10
Винни пух ч.6	20	18	16	18	10	12	15	10	47
Винни пух ч.7	25	26	28	24	18	18	9	12	57

Результат в денежном эквиваленте
Наименование	Стоимость			Доход
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	За год
Винни пух ч.1	10	15	12	15	80	45	60	75	260
Винни пух ч.2	11	13	12	10	44	39	36	50	169
Винни пух ч.3	12	14	13	10	96	70	130	120	416
Винни пух ч.4	16	17	15	12	144	119	135	132	530
Винни пух ч.5	18	15	15	15	72	30	30	30	162
Винни пух ч.6	20	18	16	18	200	216	240	180	836
Винни пух ч.7	25	26	28	24	450	468	252	288	1458
Итог					1086	987	883	875	3831
Доход за год	3831
Игра с наименьшим доходом	Винни пух ч.5	Доход	162

6.2 Проверка программы на всех НУЛЯХ

Начальные данные
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал
Винни пух ч.1	0	0	0	0	0	0	0	0
Винни пух ч.2	0	0	0	0	0	0	0	0
Винни пух ч.3	0	0	0	0	0	0	0	0
Винни пух ч.4	0	0	0	0	0	0	0	0
Винни пух ч.5	0	0	0	0	0	0	0	0
Винни пух ч.6	0	0	0	0	0	0	0	0
Винни пух ч.7	0	0	0	0	0	0	0	0

Количество проданных игр
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	Всего
Винни пух ч.1	0	0	0	0	0	0	0	0	0
Винни пух ч.2	0	0	0	0	0	0	0	0	0
Винни пух ч.3	0	0	0	0	0	0	0	0	0
Винни пух ч.4	0	0	0	0	0	0	0	0	0
Винни пух ч.5	0	0	0	0	0	0	0	0	0
Винни пух ч.6	0	0	0	0	0	0	0	0	0
Винни пух ч.7	0	0	0	0	0	0	0	0	0

Результат в денежном эквиваленте
Наименование	Стоимость			Доход
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	За год
Винни пух ч.1	0	0	0	0	0	0	0	0	0
Винни пух ч.2	0	0	0	0	0	0	0	0	0
Винни пух ч.3	0	0	0	0	0	0	0	0	0
Винни пух ч.4	0	0	0	0	0	0	0	0	0
Винни пух ч.5	0	0	0	0	0	0	0	0	0
Винни пух ч.6	0	0	0	0	0	0	0	0	0
Винни пух ч.7	0	0	0	0	0	0	0	0	0
Итог					0	0	0	0	0
Заработок за год	0
Игра с наименьшим доходом	Винни пух ч.3	Доход	0

6.3 Проверка программы на всех ЕДИНИЦАХ

Начальные данные
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал
Винни пух ч.1	1	1	1	1	1	1	1	1
Винни пух ч.2	1	1	1	1	1	1	1	1
Винни пух ч.3	1	1	1	1	1	1	1	1
Винни пух ч.4	1	1	1	1	1	1	1	1
Винни пух ч.5	1	1	1	1	1	1	1	1
Винни пух ч.6	1	1	1	1	1	1	1	1
Винни пух ч.7	1	1	1	1	1	1	1	1



Количество проданных игр
Наименование	Стоимость			Количество
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	Всего
Винни пух ч.1	1	1	1	1	1	1	1	1	4
Винни пух ч.2	1	1	1	1	1	1	1	1	4
Винни пух ч.3	1	1	1	1	1	1	1	1	4
Винни пух ч.4	1	1	1	1	1	1	1	1	4
Винни пух ч.5	1	1	1	1	1	1	1	1	4
Винни пух ч.6	1	1	1	1	1	1	1	1	4
Винни пух ч.7	1	1	1	1	1	1	1	1	4

Результат в денежном эквиваленте
Наименование	Стоимость			Доход
	1 квартал	2 квартал	3 квартал	4 квартал	1 квартал	2 квартал	3 квартал	4 квартал	За год
Винни пух ч.1	1	1	1	1	1	1	1	1	4
Винни пух ч.2	1	1	1	1	1	1	1	1	4
Винни пух ч.3	1	1	1	1	1	1	1	1	4
Винни пух ч.4	1	1	1	1	1	1	1	1	4
Винни пух ч.5	1	1	1	1	1	1	1	1	4
Винни пух ч.6	1	1	1	1	1	1	1	1	4
Винни пух ч.7	1	1	1	1	1	1	1	1	4
Итог					7	7	7	7	28
Заработок за год	28
Игра с наименьшим доходом	Винни пух ч.3	Доход	4

Список литературы

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

2. Слепцова Л.Д. Программирование на языке VBA. Самоучитель,: -М.: Издательский дом «Вильямс», 2004

3. Браун С. Visual Basic 5 c самого начала - СПб : Питер, 1998

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