Курсовая по информатике 16 вариант МГИУ

  • 31 авг. 2011 г.
  • 1659 Слова
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
РОССИЙСКОЙ ФЕДЕРАЦИИ
ИДО ГОУ МГИУ

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

Задание:№16
Группа:
Студент:
Руководитель:

Москва 2009
Содержание

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

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

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

Исходные данныенаходятся на листе «Нач_д» (рис. 1) и содержат следующую информацию:
Названия бригад, количество собранного урожая за год (в центнерах), цена, по которой был продан урожай, выращенный каждой бригадой
[pic]
Рис.1. Лист с начальными данными
Результаты работы программы оформляются на листе «Результат» (рис. 2), на котором:
• доход каждой бригады за 3 года;
• доход всегохоз-ва за каждый год;
• доход всего хоз-ва за 3 года;
• название бригады, получившей наибольший доход.

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

В программе переменные описаны следующим образом:
1) cena(3) —цена, по которой был продан урожай представляет массив дробных чисел
Dim cena(3) As Double
2) koll(7, 3) — количество собранного урожая,собранного каждой бригадой за каждый год, представляет двумерный массив целых чисел
Dim koll(7,5) As Integer
3) zar(4) — заработок каждой бригады за каждый год (от 1 до 3) и общий заработок за весь период представляет массив дробных чисел
Dim zar(4) As Double
4) vsego(8) — количество собранного урожая за 3 года, представляет массив целых чисел
Dim vsego(8) As Double
5)doh_max —количество наибольшего заработка за период представляет дробное число
Dim doh_max As Double
В программе также были использованы вспомогательные переменные, счетчики циклов, i и j, являющиеся целыми числами.
Dim i As Integer, j As Integer.

3. Блок схема

[pic]

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

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