Составление и описание программы по заданным параметрам

Содержание

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

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

3. Блок схема

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

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

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

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

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

В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.

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

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

- общее количество букетов за 3 года;

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

- общий доход колхоза за 3 года;

- вид цветов, принесший максимальный доход за 2 года.

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

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

1) количество букетов из 6 видов, выращенных за год.

2) закупочные цены букетов каждого вида.

Результаты работы программы оформляются на листе «Результат» (рис. 2).

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

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

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

1) koll (7,5) — количество букетов за каждый год

Dim koll (7,5) As Integer

3) zar (6) — доход по всем цветам за каждый год

Dim zar (6) As Double

4) koll _ n (7) — общее количество букетов за3 года

Dim kol _ n (7) As Integer

5) vid — вид цветов принесший максимальный доход

Dim vid As Integer

6) zarpl — сумма максимального дохода

Dim zarpl As Double

7) cena(7) — общий доход колхоза за 3 года

Dim cena (7) As Double

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

Dim i As Integer, j As Integer

Переменные cena(7), zar (6), zarpl могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll (7,5) koll _ n (7) целые числа, так как мы считаем, что смена рабочего составляет полный день, и он не может изготовить за смену половину детали.

3. Блоксхема

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

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

Рис.3. Блок-схема (окончание)4. Описание алгоритма

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

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

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

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

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

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

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

Сначала объявляем переменные, используемые в программе.

Private Sub CommandButton1_Click()

'назначаюпеременные

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 года

For i = 1 To 5

koll_n(i) = 0

Next