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

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