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

Next i

Cells(23, 1) = "Наименование (номер) культуры, принесший максимальный доход за 5 лет"

For i = 1 To 6

For j = 1 To 5

obsh_doh(i) = obsh_doh(i) + doh(i, j)

Cells(14 + i, 7) = obsh_doh(i)

If obsh_doh(i) > yagod Then

yagod = obsh_doh(i)

max_kult = i

Cells(23, 6) = max_kult

End If

Next j

Next i

End Sub

Описание входных данных и результат вычислений

Вариант 7

Начальные данные
Наименование фруктово-ягодных культур	Закупочные цены (руб.)			Урожай в центнерах
2000 год	2001 год	2002 год	2003 год	2004 год	2000 год	2001 год	2002 год	2003 год	2004 год
1. Яблоня	21,5	22,33	25	24,5	21	12	13,2	12,86	14,1	13,8
2. Вишня	25,3	26,59	30,35	27,32	35,5	10	10,2	10,66	9,5	11,1
3. Слива	15,4	17	16,24	16	15,2	15	16,52	15,88	17	16,5
4. Черная смородина	19	20,21	21,2	22,95	23	9	8,5	7,9	8,88	9,63
5. Крыжовник	30,66	33,5	35,2	34,5	33,33	11,3	12,5	10,5	9,59	11,63
6. Клубника	55,9	60	63,22	62	61,25	9,5	10	9,9	9,8	11

Решение 7 – го варианта

Начальные данные
Наименование фруктово-ягодных культур	Закупочные цены (руб.)			Урожай в центнерах		Общий урожай каждой культуры за 5 лет
2000 год	2001 год	2002 год	2003 год	2004 год	2000 год	2001 год	2002 год	2003 год	2004 год
1. Яблоня	21,5	22,33	25	24,5	21	12	13,2	12,86	14,1	13,8	65,96
2. Вишня	25,3	26,59	30,35	27,32	35,5	10	10,2	10,66	9,5	11,1	51,46
3. Слива	15,4	17	16,24	16	15,2	15	16,52	15,88	17	16,5	80,9
4. Черная смородина	19	20,21	21,2	22,95	23	9	8,5	7,9	8,88	9,63	43,91
5. Крыжовник	30,66	33,5	35,2	34,5	33,33	11,3	12,5	10,5	9,59	11,63	55,52
6. Клубника	55,9	60	63,22	62	61,25	9,5	10	9,9	9,8	11	50,2

Результат в денежном эквиваленте
Наименование фруктово-ягодных культур	Доход по всем культурам за каждый год
2000 год	2001 год	2002 год	2003 год	2004 год	Общий доход по всем культурам за 5 лет
1. Яблоня	258	294,756	321,5	345,45	289,8	1509,506
2. Вишня	253	271,218	323,531	259,54	394,05	1501,339
3. Слива	231	280,84	257,8912	272	250,8	1292,531
4. Черная смородина	171	171,785	167,48	203,796	221,49	935,551
5. Крыжовник	346,458	418,75	369,6	330,855	387,6279	1853,291
6. Клубника	531,05	600	625,878	607,6	673,75	3038,278
Общий доход колхоза за 5 лет			10130,5
Наименование (номер) культуры, принёсший максимальный доход за 5 лет					6

Литература

1. М.Н. Иванов, С.В. Суворов «Информатика Част 2. Программирование», Москва 2006 г.