Курсовая работа: Составление программы Определение фруктово-ягодной культуры приносящей хозяйству максимальный

Задание

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

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

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

· Общий урожай каждой культуры за 5 лет;

· Доход по всем культурам за каждый год;

· Общий доход колхоза за 5 лет;

· Наименование культуры, принесший максимальный доход за 5 лет.

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

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

1) Наименование фруктово-ягодных культур, которые колхоз собрал в течение 5 лет.

2) Закупочные цены фруктово-ягодных культур и их вес в центнерах.

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

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

Рис. 2. Лист с результата программы

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

1) zakup_ceni(6, 5) – закупочные цены фруктово-ягодных культур представляет двухмерный массив дробных чисел

Dim zakup_ceni(6, 5) As Double

2) urozhai(6, 5) – урожай в центнерах каждой фруктово-ягодных культур в течение 5 лет представляет двухмерный массив дробных чисел

Dim urozhai(6, 5) As Double

3) obsh(6) – Общий урожай каждой культуры за 5 лет представляет массив дробных чисел

Dim obsh(6) As Double

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

Dim doh(6, 5) As Double

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

Dim obsh_doh(6) As Double

6) obsh_doh_pyat – общий доход колхоза за 5 лет

--> ЧИТАТЬ ПОЛНОСТЬЮ <--