Информатика и основы программирования на языке VBA
Автор: nd-18 • Сентябрь 7, 2021 • Курсовая работа • 2,141 Слов (9 Страниц) • 218 Просмотры
1. Задание на курсовую работу
В коллективном хозяйстве имеется 5 птицеводческих ферм. Каждая ферма выращивает различное количество фазанов. В каждой ферме в течение 2 месяцев расходовалось некоторое количество комбикормов (кг) и, соответственно, увеличивался вес фазанов.
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
- исходные данные в виде таблицы, где указаны названия ферм, количество фазанов в ферме, расход комбикормов и привес всех фазанов в течение каждого месяца в каждой ферме; (данные за 2 месяца);
- средний привес одного фазана за 2 месяца в ферме на 1 кг комбикорма;
- средний привес одного фазана за 1 месяц на 1 кг комбикорма по всем фермам хозяйства;
- общий привес всех фазанов по всему хозяйству за 2 месяца;
- наименование фермы, где удалось получить наибольший привес 1 фазана на 1 кг комбикорма.
2. Описание переменных
Исходные данные находятся на листе «Нач_д» (рис. 1) и содержат следующую информацию:
- Количество фазанов в каждой ферме.
- Расход комбикормов и привес всех фазанов в течение каждого месяца в каждой ферме (данные за 2 месяца).
Результаты работы программы оформляются на листе «Результат» (рис. 2).
[pic 1]
Рис.1. Лист с начальными данными
[pic 2]
Рис.2. Полученные результаты
В программе переменные описаны следующим образом:
- kolvo(5) — количество фазанов в каждой ферме
представляет массив целых чисел
Dim kolvo(5) As Integer
- ras(5, 2) — расход комбикормов в течение каждого месяца в каждой ферме представляет двумерный массив дробных чисел
Dim ras(5, 2) As Double
- ves(5, 2) — привес всех фазанов в течение каждого месяца в каждой ферме представляет двумерный массив дробных чисел
Dim ves(5, 2) As Double
- s_ves(6, 3) — средний привес одного фазана на 1 кг комбикорма представляет двумерный массив дробных чисел
Dim s_ves(6, 3) As Double
- ob_ves(6) — общий привес всех фазанов за 2 месяца представляет массив дробных чисел
Dim ob_ves(6) As Double
- V(2) — общий привес всех фазанов по всем фермам хозяйства в каждом месяце представляет массив дробных чисел
Dim V(2) As Double
- R(2) — общий расход комбикормов по всем фермам хозяйства в каждом месяце представляет массив дробных чисел
Dim R(2) As Double
- K — количество фазанов по всем фермам хозяйства представляет целое число
Dim K As Integer
- M — наибольший средний привес одного фазана на 1 кг корма за 2 месяца представляет дробное число
Dim M As Double
В программе также были использованы вспомогательные переменные, счетчики циклов, i и j, являющиеся целыми числами.
Dim i As Integer, j As Integer
3. Блок схема[pic 3]
[pic 4]
[pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11]
[pic 12][pic 13][pic 14][pic 15]
[pic 16]
[pic 17]
[pic 18][pic 19]
[pic 20]
[pic 21][pic 22][pic 23][pic 24]
[pic 25]
[pic 26]
[pic 27][pic 28][pic 29]
[pic 30]
[pic 31]
[pic 32]
[pic 33][pic 34]
[pic 35]
[pic 36]
[pic 37]
[pic 38][pic 39]
[pic 40][pic 41][pic 42][pic 43]
[pic 44]
[pic 45]
[pic 46][pic 47][pic 48][pic 49]
[pic 50]
[pic 51]
нет[pic 52]
[pic 53]
[pic 54][pic 55]
да
[pic 56]
[pic 57]
[pic 58]
[pic 59]
[pic 60]
[pic 61][pic 62]
[pic 63]
[pic 64][pic 65][pic 66]
[pic 67]
нет
[pic 68][pic 69]
[pic 70]
...