Курсовая по информатике

  • 27 авг. 2011 г.
  • 1859 Слова
Содержание

1. Задание на курсовую работу 3
2. Описание переменных 4
3. Блок схема 8
4. Описание алгоритма 11
5. Листинг программы 12
6. Описание входных данных и результат вычислений 16
7. Список использованной литературы 22

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

В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии – всего 6 видов цветов). Каждый год в течение 3лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
• Исходные данные в виде таблицы, где указаны наименования цветов, закупочные цены букетов каждого вида и количество букетов в каждом году;
• Общее количество букетовза 3 года;
• Доход по всем цветам за каждый год;
• Общий доход колхоза за 3 года;
• Вид цветов, принесший максимальный доход за первые два года.

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

Исходные данные находятся на листе «Нач_д» (рис. 1) и содержат следующую информацию:
1) Количество букетов каждого из 6 типов, проданных за три года,
2) Стоимость каждого вида букетов в каждый год.Результаты работы программы оформляются на листе «Результат» (рис. 2).

[pic]
Рис.1. Лист с начальными данными
[pic]
Рис.2. Полученные результаты

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

1) koll(6, 3) – количество проданных букетов каждого вида за каждый из трех лет представляет массив целых чисел

Dim koll(6, 3) As Integer

2) cena(6, 3) – цена букетов каждого вида за каждый изтрех лет представляет массив дробных чисел

Dim cena(6, 3) As Double

3) koll_n(3) – количество всех проданных букетов за каждый из трех лет представляет массив целых чисел

Dim koll_n(3) As Integer

4) doh(6, 3) – доход от продажи букетов каждого вида в каждый из трех лет представляет собой массив дробных чисел

Dim doh(6, 3) As Double

5) doh_n(6) – доход от продажи букетовкаждого вида за три года представляет массив дробных чисел

Dim doh_n(6) As Double

5) names(6) – массив наименований букетов

Dim names(6)

6) koll_o – общее количество букетов, проданных за три года, представляет целое число

Dim koll_o As Integer

7) doh_o – общий доход за три года представляет дробное число

Dim doh_o As Double

8) max – максимальный доход по всем видам букетов запервые два года представляет дробное число

Dim max As Double

9) max_i – порядковый номер того вида букетов, который принес максимальный доход за первые два года, представляет целое число

Dim max_i As Integer

В программе также были использованы вспомогательные переменные, счетчики циклов, i и j, являющиеся целыми числами.
Dim i As Integer, j As Integer
Переменные cena(6, 3), doh(6,3), doh_n(6), doh_o, max могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll(6, 3), koll_n(3), koll_o, max_i — целые числа, так как мы считаем, что количество букетов не может быть дробным.

3. Блок схема

[pic]
[pic]

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

Начало программы.
Ввод начальных (нулевых) значенийдля расчетных величин (количество проданных букетов за каждый год, доход по каждому виду цветов и за каждый год, суммарный доход по каждому виду за три года, общий доход, общее количество проданных букетов, величина максимального дохода и порядковый номер вида букетов, соответствующий максимальному доходу).
Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочиепеременные (массивы сеnа(6,3), names(6) и kоll(6, 3)).
Открытие листа с результатами, формирование матрицы входных данных. Организуется два вложенных цикла (по каждому виду букетов и году). Во внутреннем цикле (по виду, расчет по одному году) суммируется количество проданных букетов, после выхода из внутреннего цикла производится суммирование количества букетов, проданных за...
tracking img