Курсовая работа По дисциплине «Информатика» МГИУ

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





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

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


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

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

Рис.2. Полученные результаты
В программе переменные описаны следующим образом:
1) cena(5, 3) — цены на культуру (за 1 ед.), представляет двумерный массив дробных чисел
Dim cena(5, 3) As Double
2) koll(5, 3) — количество урожая вцентнерах, представляет двумерный массив целых чисел
Dim koll(5, 3) As Integer
3) koll_N(5) — общий урожай по каждой культуре за 3 год, представляет массив целых чисел
Dim koll_N(5)As Integer
4) cena_K(5, 3) — доход по всем культурам за каждый год, представляет двумерный массив дробных чисел
Dim cena_K(5, 3) As Double
5) dohod — общий доход колхоза за 3 года, представляет дробное число
Dim dohod As Double6) dohod_2 — доход за 2 последних года, представляет дробное число
Dim dohod_2 As Double
7) dohod_Min — минимальный доход за 2 последних года, представляет дробное число
Dim dohod_Min As Double
8) kultura(5) — наименование культуры, принесшей минимальный доход за 2 последних года
Dim kultura(5) As String
В программе также были использованы вспомогательные переменные, счетчики циклов, iи j, являющиеся целыми числами.
Dim i As Byte, j As Byte
Переменные cena(5, 3), cena_K(5, 3), dohod, dohod_2, dohod_Min могут быть и не целыми числами, поэто¬му они объявлены как действительные. Переменные koll(5,3), koll_N(5) — целые числа, так как мы считаем, что количество урожая, выраженное в центнерах, условно всегда будет являться целым числом.


3. Блок схеманет



да






нет да



















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

Начало программы.
Ввод начальных (нулевых) значений для расчетных величин (наименования овощных культур, цены на культуру для одного года и урожай в центнерах в каждом году).Открытие листа с начальными данными («Исходные данные») и получение этих данных в рабочие переменные (kultura(5), массивы cena(5, 3) и koll(5, 3)).
Открытие листа с результатами, формирование матрицы входных дан¬ных. Организуется два вложенных цикла (по каждой овощной культуре и году). Во внутреннем цикле (по году, расчет по одной культуре) суммируется ко¬личество урожая в центнерах в каждом году,после выхода из внутреннего цикла выво¬дится результат по каждой овощной культуре.
Расчет сумм заработков по изделиям за каждый день, количество изго¬товленных деталей и вывод результатов. Организуется при помощи двух вложенных цик¬лов: внешний по каждой культуре, внутренний по годам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит...
tracking img