*
*


CAPTCHA Image   Reload Image
X

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

курсовые работы, информатика

Объем работы: 22 стр.

Год сдачи: 2007

Стоимость: 1050 руб.

Просмотров: 495

 

Не подходит работа?
Узнай цену на написание.

Оглавление
Введение
Литература
Заказать работу
1

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

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

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

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

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

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

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

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

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)











в построении остальных блок-схем нет...

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

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

После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.

Работу высылаем в течении суток после поступления денег на счет
ФИО*


E-mail для получения работы *


Телефон


ICQ


Дополнительная информация, вопросы, комментарии:



CAPTCHA Image
Сусловиямиприбретения работы согласен.

 
Добавить страницу в закладки
Отправить ссылку другу