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

от 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

Форма заказа

Напрмер, Экономика

Похожие работы

Название Цена
Проектирование сети для военного комиссариата 800
Сравнение двух региональных сайтов 1500
Характеристики линий связи в КС 1500
Характеристика беспроводных КС 1500
Кратчайшие пути для всех пар вершин 1500
Аппаратное обеспечение ПК 1500
Интеллектуальный поиск информации 1500
История развития вычислительной техники 1500
Компьютерные вирусы 1500
Проектирование информационных систем 1500

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