Дипломная работа

от 20 дней
от 9999 рублей

Заказать

Курсовая работа

от 10 дней
от 1999 рублей

Заказать

Реферат

от 3 дней
от 699 рублей

Заказать

Контрольная работа

от 3 дней
от 99 рублей
за задачу

Заказать

Диссертация

Сроки и стоимость индивидуальные

Заказать

Главная - Информатика - Разработка программы для решения экономических задач с использованием массивов

Разработка программы для решения экономических задач с использованием массивов Информатика. Курсовая

  • Тема: Разработка программы для решения экономических задач с использованием массивов
  • Автор: olga
  • Тип работы: Курсовая
  • Предмет: Информатика
  • Страниц: 22
  • Год сдачи: 2007
  • ВУЗ, город: Москва
  • Цена(руб.): 1500 рублей

Заказать персональную работу

Выдержка

2)Основная часть - описание проделанной работы:

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

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

на экран:

1)Исходные данные в виде таблицы, где указаны наименование игр,цена игр в каждом квартале,

количество проданных игр за каждый квартал

2)Доход от каждой игры за год

3)Доход за каждый квартал по всем играм

4)Общий доход от всех игр за год

5)Наименование игры, принесшей наименьший доход за год



-Описание переменных

Public Games(7) As String Названия игр

Public GamePrice(4, 7) As Integer цена j-той игры в i-том квартале

Public KolGames(4, 7) As Integer количество j-той игры в i-том квартале

Public GameIncome(7) As Integer доход с i-той игры

Public QuorterIncome(4) As Integer доход в i-том квартале

Public YearIncome As Long годовой доход

Public MinIncome As Integer наименьший доход

Public MinGame As String наименование игры принесшей наименьший доход

Public i, j, k, l As Integer параметры для циклов

Public vrPrice, vrKol As Integer переменные для временного хранения цены и количества при сортировке

Public vrGame As String для хранения названия игры при сортировке

-Блок-схема

с

Объявление переменных





ввод данных

начало

for I =1 to 7



Games(i) = Cells(i + 1, 1)





for I =1 to 7



GamePrice(j, i) = InputBox("введите цену" & Games(i) & " " & j & "квартала")



Cells(i + 1, j * 2 + 1) = GamePrice(j, i)











расчеты







For j = 1 To 4

For i = 1 To 7



GamePrice(j, i) = Cells(i + 1, j * 2 + 1)

KolGames(j, i) = Cells(i + 1, j * 2)







If GamePrice(j, i) < 1 Then For j = 1 To 4

If KolGames(j, i) < 0 Then For i = 1 To 7



GameIncome(i) = GameIncome(i) + GamePrice(j, i) * KolGames(j, i)

QuorterIncome(i) = QuorterIncome(i) + GamePrice(i, j) * KolGames(i, j)





For i = 1 To 7







If MinIncome > GameIncome(i)





MinIncome = GameIncome(i)

MinGame = Games(i)











в построении остальных блок-схем нет необходимости, потому что они представляют из себя упрощенные варианты этой (только без расчетов). также считывание массива с листа или запись его на лист.

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

при открытии файла описываются переменные.

управляющие кнопки находятся на листе Excel. Нажатие каждой из них вызывает соответствующую законченную процедуру- кнопки «рассчитать», «очистить», «сортировка», либо вызывает на экран форму для дальнейшей работы кнопки «ввод данных», «действия» - кнопкам которых также назначены соответствующие команды.

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



Option Explicit Обязательное описание переменных

описание переменных было рассмотрено выше

Public Games(7) As String

Public GamePrice(4, 7) As Integer

Public KolGames(4, 7) As Integer

Public GameIncome(7) As Integer

Public QuorterIncome(4) As Integer

Public YearIncome As Long

Public MinIncome As Integer

Public MinGame As String

Public i, j, k, l As Integer

Public vrPrice, vrKol As Integer

Public vrGame As String





Sub Auto_Open() макрос запускаемый при открытии документа



For i = 1 To 7 в цикле

Games(i) = Cells(i + 1, 1) считывает названия игр

Next i



'For j = 1 To 4 в цикле считывает цену и количество игр, дублируется в

'For i = 1 To 7 процедурах, и поэтому закомментировано

'GamePrice(j, i) = Cells(i + 1, j * 2 + 1)

'KolGames(j, i) = Cells(i + 1, j * 2)

'Next i

'Next j



End Sub конец макроса



Эти кнопки находятся на листе

Private Sub CommandButton1_Click() процедура описывающая действия при нажатии кнопки «ввод данных»

For i = 1 To 7 в цикле

Games(i) = Cells(i + 1, 1) считываются названия игр

Next i конец цикла

VVod.Show открывает форму VVod

End Sub конец

Описание открытой формы vvod

Содержание

Содержание 1

2)Основная часть - описание проделанной работы: 2

-Задание на курсовую работу 2

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

-Блок-схема 2

-Описание алгоритма 5

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

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

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

Литература

1. Гарнаев А. Самоучитель VBA СПб. BHV 1999

2. информация сайта http://www.somit.ru/e

Форма заказа

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

Тип работы *
Предмет *
Название *
Дата Сдачи *
Количество Листов*
уточните задание
Ваши Пожелания
Загрузить Файлы

загрузить еще одно дополнение
Страна
Город
Ваше имя *
Эл. Почта *
Телефон *
  

Название Тип Год сдачи Страниц Цена
Проектирование сети для военного комиссариата Курсовая 2001 19 800
Сравнение двух региональных сайтов Курсовая 2007 17 1500
Характеристики линий связи в КС Курсовая 2008 38 1500
Характеристика беспроводных КС Курсовая 2008 34 1500
Кратчайшие пути для всех пар вершин Курсовая 2008 19 1500
Аппаратное обеспечение ПК Курсовая 2008 30 1500
Интеллектуальный поиск информации Курсовая 2008 23 1500
История развития вычислительной техники Курсовая 2007 48 1500
Компьютерные вирусы Курсовая 2007 29 1500
Проектирование информационных систем Курсовая 2007 43 1500
курсовые, дипломные, контрольные на заказ скидки на курсовые, дипломные, контрольные на заказ

© 2010-2016, Все права защищены. Принимаем заказы по всей России.