1. Задание на курсовую работу
Задача № 4. Склад готовой продукции цеха каждую смену принимает готовые изделия (гайки, болты, шайбы, всего 9 видов изделий) и каждую смену отправляет готовые изде-лия другим цехам. Склад, как и цех, работает в три смены. В конце третьей смены подсчи-тываются остатки.
2. Описание переменных
Для хранения данных в программе нам потребуются одна константа и переменные:
Const n = 9
- количество наименований различных изделий
Dim price(1 To n) As Single
- массив цен на изделия
Dim smena1(1 To 3, 1 To n) As Integer
Dim smena2(1 To 3, 1 To n) As Integer
Dim smena3(1 To 3, 1 To n) As Integer
- двумерные массивы для хранения количества принятых изделий (1-я строка), от-правленных (2-я строка) и оставшихся (3-я строка) в конце соответствующей смены
Dim ostatok(1 To n) As Integer
- массив для хранения общего остатка изделий за 3 смены
Dim detal(1 To n) As String
- массив названий изделий
Dim i As Integer, k As Integer
- переменные счетчики циклов
Dim max_kol As Integer
- максимальное количество оставшихся деталей в конце третьей смены
Dim max_det As String
- наименование детали, оставшейся в максимальном количестве
Dim max_price As Single
- максимальная цена изделий
Dim summ As Single
- суммарная стоимость оставшихся деталей
Содержание
1. Задание на курсовую работу 3
2. Описание переменных 3
3. Блок-схемы 4
3.1. Блок-схема алгоритма процедуры «Вычислить» 4
3.2. Блок-схема алгоритма процедуры «Заполнить случайными числами» 5
3.3. Блок-схема алгоритма процедуры «Заполнить единицами» 6
4. Описание алгоритма 7
4.1. Кнопка «Вычислить» 7
4.2 Кнопка «Заполнить случайными числами» 8
4.3. Кнопка «Заполнить единицами» 9
5. Листинг программы 10
6. Описание входных данных и результат вычислений 13
Литература 15
Литература
1. Иванов М.И., Суворов С.В. Информатика. Часть 2. Программирование. Москва, 2004.
2. Конспект курса лекционных и практических занятий в МГИУ.