Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Составление и описание программы по заданным параметрам

Название: Составление и описание программы по заданным параметрам
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 08:13:31 05 ноября 2010 Похожие работы
Просмотров: 46 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Содержание

1. Задание на курсовую работу

2. Описание переменных

3. Блок схема

4. Описание алгоритма

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

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

Список использованной литературы


1. Задание на курсовую работу

В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.

Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

- исходные данные в виде таблицы, где указаны наименования цветов, закупочные цены букетов каждого вида и количество букетов в каждом году;

- общее количество букетов за 3 года;

- доход по всем цветам за каждый год;

- общий доход колхоза за 3 года;

- вид цветов, принесший максимальный доход за 2 года.

2. Описание переменных

Исходные данные находятся на листе «Начальные данные» («Нач_д» (рис. 1) и содержат следующую информацию:

1) количество букетов из 6 видов, выращенных за год.

2) закупочные цены букетов каждого вида.

Результаты работы программы оформляются на листе «Результат» (рис. 2).

Рис.1. Лист с начальными данными

Рис.2. Полученные результаты

В программе переменные описаны следующим образом:

1) koll (7,5) — количество букетов за каждый год

Dim koll (7,5) As Integer

3) zar (6) — доход по всем цветам за каждый год

Dim zar (6) As Double

4) koll _ n (7) — общее количество букетов за3 года

Dim kol _ n (7) As Integer

5) vid — вид цветов принесший максимальный доход

Dim vid As Integer

6) zarpl — сумма максимального дохода

Dim zarpl As Double

7) cena(7) — общий доход колхоза за 3 года

Dim cena (7) As Double

В программе также были использованы вспомогательные переменные, счетчики циклов, i и j, являющиеся целыми числами.

Dim i As Integer, j As Integer

Переменные cena(7), zar (6), zarpl могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll (7,5) koll _ n (7) целые числа, так как мы считаем, что смена рабочего составляет полный день, и он не может изготовить за смену половину детали.


3. Блоксхема

Рис.3. Блок-схема


Рис.3. Блок-схема
Рис.3. Блок-схема (окончание)

4. Описание алгоритма

Начало программы.

Ввод начальных (нулевых) значений для расчетных величин (общее количество букетов за 3 года, доход по всем цветам за каждый год и доход по всем цветам за каждый год и общее количество букетов за 3 года, вид цветов, принесший максимальный доход за 2 года).

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

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

Расчет сумм дохода по каждому виду цветов за каждый год, количество собранных букетов и вывод результатов. Организуется два вложенных цикла: внешний по цветам, внутренний по годам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вычисление суммы дохода по i-му виду букетов в j-й год с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вывод стоимости одного букета и по всем видам цветов. Доход за каждый год организован в этом же внутреннем цикле.

Определение вида цветов, принесший максимальный доход за 2 года. Используется алгоритм сравнения, после выводиться результат вида цветов, принесший максимальный доход за 2 года

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

Сначала объявляем переменные, используемые в программе.

Private Sub CommandButton1_Click()

'назначаюпеременные

Dim i As Integer, j As Integer ' счетчики циклов

Dim koll(7, 5) As Integer 'количество букетов за каждый год

Dim zar(6) As Double 'доход по всем цветам за каждый год

Dim koll_n(7) As Integer 'общее количество букетов за 3 года

Dim vid As Integer 'вид цветов принесший максимальный доход

Dim zarpl As Double 'сумма макимального дохода

Dim cena(7) As Double 'общий доход колхоза за 3 года

'в начале программы все переменные равны нулям

'создаем цикл, который считает количество букетов за 3 года

For i = 1 To 5

koll_n(i) = 0

Next

'создаем цикл, который считает доход по всем цветам за период

For j = 1 To 6

zar(j) = 0

Next

zarpl = 0

den = 0

'считываем начальные данные

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

'в каждую ячейку массива cena(i) записывается цена каждого букета

'для этого используем цикл

For i = 1 To 6

cena(i) = Cells(3 + i, 2)

Next

'в каждую ячейку массива koll(i, j) записывается количество букетов за период

'так как массив двумерный цикл проходит по двум счетчикам

For i = 1 To 6

For j = 1 To 5

koll(i, j) = Cells(3 + i, 2 + j)

Next j

Next i

'на листе "Результат" создаются ячейки с определенными названиями

Sheets("Результат").Cells(1, 1) = "Количество букетов"

Sheets("Результат").Cells(2, 1) = "Наименование цветов"

Sheets("Результат").Cells(2, 2) = "Цена 1-го букета"

Sheets("Результат").Cells(2, 3) = "Собрано"

Sheets("Результат").Cells(3, 3) = "1-й год"

Sheets("Результат").Cells(3, 4) = "2-й год"

Sheets("Результат").Cells(3, 5) = "3-й год"

Sheets("Результат").Cells(3, 6) = "Всего"

Sheets("Результат").Cells(4, 1) = "Розы"

Sheets("Результат").Cells(5, 1) = "Гвоздики"

Sheets("Результат").Cells(6, 1) = "Лилии"

Sheets("Результат").Cells(7, 1) = "Тюльпаны"

Sheets("Результат").Cells(8, 1) = "Орхидеи"

Sheets("Результат").Cells(9, 1) = "Хризантемы"

'в соответсвующие ячейки записываются цены собранных букетов

For i = 1 To 6

Sheets(" Результат ").Cells(3 + i, 2) = cena(i)

For j = 1 To 4


'в соответсвующие ячейки записываются количество собранных букетов за каждый год

Sheets(" Результат ").Cells(3 + i, 2 + j) = koll(i, j)

'рассчитывается количество собранных букетов каждого вида за 3 года

koll_n(i) = koll_n(i) + koll(i, j)

Next j

'результат записывается в соответствующие ячейки

Sheets ("Результат"). Cells (3 + i , 6) = koll _ n ( i )

Next i

'на листе "Результат" создаются ячейки с определенными названиями

Sheets("Результат").Select

Sheets("Результат").Cells(12, 1) = "Доход в денежном эквиваленте"

Sheets("Результат").Cells(13, 1) = "Наименования цветов"

Sheets("Результат").Cells(13, 2) = "Цена 1-го букета"

Sheets("Результат").Cells(13, 3) = "Доход"

Sheets("Результат").Cells(14, 3) = "1-й год"

Sheets("Результат").Cells(14, 4) = "2-й год"

Sheets("Результат").Cells(14, 5) = "3-й год"

Sheets("Результат").Cells(14, 6) = "Всего"

Sheets("Результат").Cells(15, 1) = "Розы"

Sheets("Результат").Cells(16, 1) = "Гвоздики"

Sheets("Результат").Cells(17, 1) = "Лилии"

Sheets("Результат").Cells(18, 1) = "Тюльпаны"

Sheets("Результат").Cells(19, 1) = "Орхидие"

Sheets("Результат").Cells(20, 1) = "Хризантемы"

Sheets("Результат").Cells(21, 1) = "Доход по всем цветам за каждый год"

'во внешнем цикле происходит вывод дохода по всем цветам за каждый год и общий доход колхоза, собранных в данный период

For i = 1 To 7

'в этом цикле вычисляется общее количество букетов за 3 года

'доход по всем цветам за каждый год и общий доход колхоза за 3 года

For j = 1 To 4

Sheets(" Результат ").Cells(14 + i, 2 + j) = koll(i, j) * cena(i)

zar(j) = zar(j) + koll(i, j) * cena(i)

zar(6) = zar(6) + koll(i, j) * cena(i)

Next j

Sheets(" Результат ").Cells(14 + i, 2) = cena(i)

Sheets(" Результат ").Cells(14 + i, 6) = cena(i) * koll_n(i)

Next i

'в данном цикле происходит выбор суммы наибольшего заработка и соответственно

'день с максимальным заработком становится день j (день, в который был получен максимальный доход)

For j = 1 To 4

Sheets(" Результат ").Cells(21, 2 + j) = zar(j)

If zar(j) > zarpl Then

zarpl = zar(j)

Sheets(" Результат ").Cells(23, 6) = vid

vid = розы

End If

Next

'в соответствующие ячейки выводятся заработок рабочего за неделю, день с максимальным доходом и размер дохода в этот день

Sheets("Результат").Select

Sheets("Результат").Cells(22, 1) = "Общий доход колхоза за 3 года"

Sheets("Результат").Cells(22, 6) = zar(6)

Sheets("Результат").Cells(23, 1) = "Вид цветов, принесший максимальный доход за 2 года"

Sheets(" Результат ").Cells(23, 6) = " Розы "

End Sub

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

Проверка программы на всех единицах:

Проверка на всех нулях:


Проверка на произвольных данных:

Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2.


Список использованной литературы

1. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.

2. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.

3. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.

4. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.

5. Практическая информатика, Часть 1 Н.А. Роганова, С.В. Андреев

6. Практическая информатика, Часть 1 Н.А. Роганова, С.В. Андреев

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:43:04 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:49:45 28 ноября 2015

Работы, похожие на Курсовая работа: Составление и описание программы по заданным параметрам

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151195)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru