ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ
Программа на языке VBA ,которая вводит исходные данные,выполняет расчеты и выводит на экран | |
| Автор | ошибка |
| Вуз (город) | МГИУ |
| Количество страниц | 15 |
| Год сдачи | 2009 |
| Стоимость (руб.) | 1500 |
| Содержание | Содержание
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. Конспект курса лекционных и практических занятий в МГИУ. |
| Выдержка из работы | 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 - суммарная стоимость оставшихся деталей |