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

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

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

Расчеты выполняются по заданным формулам. Все циклы работают на счетчиках i и j. Вывод всех доходов определяются с помощью этих же циклов и по заданным формулам.

Определения фруктово-ягодной культуры принёсший максимальный доход в течении 5 лет образуется с помощью алгоритма сравнения и выводит на экран номер этой культуры. Порядковые номера фруктово-ягодных культур в программе записаны следующим образом:

1.Яблоня

2.Вишня

3.Слива

4.Черная смородина

5.Крыжовник

6.Клубника

При равенстве двух и более дневных сумм результативной считается первая сумма.

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

PublicSubКурсовая()

Dim zakup_ceni(6, 5) As Double 'Закупочныецены'

Dim urozhai(6, 5) As Double Урожайвцентнерах'

Dimobsh(6) AsDouble 'Общий урожай каждой культуры за 5 лет'

Dimdoh(6, 5) AsDouble 'Доход по каждым культурам за каждый год'

Dimobsh_doh(6) AsDouble 'Общий доход по каждым культурам за 5 лет'

Dimobsh_doh_pyatAsDouble 'Общий доход колхоза за 5 лет'

DimyagodAsDouble ' наименование культуры принесший максимальный доход за 5 лет '

Dim max_kult As Integer 'Номеркультуры'

Dim i As Integer, j As Integer

For i = 1 To 6

For j = 1 To 5

zakup_ceni(i, j) = 0

urozhai(i, j) = 0

Next j

Next i

Sheets("Нач_д").Select