Размещено на http://www.allbest.ru/

МИНОБРНАУКИ РОССИИ

ФГБОУ ВПО «МГИУ»

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

По дисциплине «Информатика»

Задание:№ 80

Студент: Маметова Яна Седжановна

Москва 2012

Содержание

• 1. Задание на курсовую работу
• 2. Описание переменных
• 3. Блок схема
• 4. Описание алгоритма
• 5. Листинг программы
• Список использованной литературы
• программа компьютерный игра

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

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

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

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

· доход от каждой игры за полгода;

· доход за каждый квартал по всем играм;

· общий доход от всех игр за полгода;

· наименование игры, принесший наименьший доход за полгода.

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

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

Количество компьютерных игр из 6 наименований, проданных в течение 2 кварталов.

Стоимость каждой компьютерной игры за два квартала.

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

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

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

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

1) cena(6) -- стоимость продажи одной единицы компьютерной игры представляет массив дробных чисел

Dim cena(6) As Double

2) koll(6,6) -- количество, компьютерных игр проданных в каждом квартале, представляет двумерный массив целых чисел

Dim koll(6,6) As Integer

3) zar(3) -- заработок за каждый квартал (от 1 до 2) и общий заработок за весь период представляет массив дробных чисел

Dim zar(3) As Double

4) zar(6,3) -- заработок каждой игры проданных за полгода

Dim zar(6,3) As Double

5)zar(2,6) -- заработок за каждый квартал по проданным играм

Dim zar(2,6) As Double

6) koll_n(6) -- количество компьютерных игр проданных за истекший период представляет массив целых чисел

Dim kol_n(6) As Integer

7) igra -- порядковый номер гры с наибольшим заработком представляет целое число

Dim den As Integer

8) doxod -- сумма наибольшего заработка за период представляет дробное число

Dim zarpl As Double

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

Dim i As Integer, j As Integer

Переменные cena(6), zar(3), zarpl могут быть и не целыми числами, поэто-му они объявлены как действительные. Переменные koll(6,6) koll_n(6), igra -- целые числа.

3. Блок схема

Рис.3. Блок-схема (продолжение)



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

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

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

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

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

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

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

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

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

Sub Function()

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

'стоимость игры

Dim cena(6) Аs Double

'количество (по играм)

Dim koll(6,6) As Integer

' количество по квартально

Dim zar(3) As Double

' доход за каждый квартал

Dim zar(3,6) As Double

`доход каждой игры за полгода

Dim zar(2,6) As Double

`доход за каждый квартал

по всем играм

Dim koll_n(7) As Integer

' игра с наименьшим заработком

Dim igra As Integer

'сумма c наименьшим доходом

Dim doxod As Double

'счетчики циклов

Dim i As Integer, j As Integer

`Далее всем переменным присваивается нулевое значение.

For i = 1 То 6

kol_n(i) = 0

Next

For j=1 То 2 zar(j) = 0

Nехt

zarpl = 0 den = 0

В этом фрагменте кода происходит считывание начальных данных с листа «Нач_д», и в каждую ячейку массива cena(6) записывается стоимость, кждой игры, а в ячейках двумерного массива koll(6,6) теперь находится количество, компьютерных игр проданных в каждом квартале.

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

For i = 1 То 6

сеnа(i) = Cells(3 + i, 2)

Next

For i = 1 Тo 6

For j = 1 Тo 2

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

Next j

Next i

Далее на листе «Результат» в ячейку с определенным номером вводится ее название.

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

Sheets("Результат").Cells(1, 1) = "Количество проданных игр"

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

Sheets("Результат").Cells(2, 2) = "цена"

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

Sheets("Результат").Cells(3, 1) = "1-й квартал"

Sheets("Результат").Cells(3, 2) = "2-й квартал "

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

Sheets("Результат").Cells(5, 1) = "1 игра"

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

Sheets("Результат").Cells(7, 1) = "3 игра"

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

Sheets("Результат").Cells(9 1) = "5 игра"

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

В этом фрагменте происходит вывод на рабочий лист сумм заработков по играм в каждый квартал и количество проданных игр за полгода.

For i = 1 То 6

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

For j = 1 То 2

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

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

Next j

Sheets("Результат").Сеlls(3 + i, 8) = koll_n(i)

Next i

Ниже происходит ввод названий соответствующих столбцов и строк.

Sheets("Результат").Сеlls(12,1) = «Результат в денежном эквиваленте»

Sheets("Результат").Сеlls(14,1) = «Наименование игр»

Sheets("Результат").Сеlls(14,2) = «доход за 1 квартал.»

Sheets("Результат").Сеlls(14,3) = «доход»

Sheets("Результат").Сеlls(14,4) = «1 квартал»

Sheets("Результат").Сеlls(14,5) = «2 квартал»

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

Sheets("Результат").Сеlls(15,1) = «1 игра»

Sheets("Результат").Сеlls(16,1) = «2 игра»

Sheets("Результат").Сеlls(17,1) = «3 игра»

Sheets("Результат").Сеlls(18,1) = «4 игра»

Sheets("Результат").Сеlls(19,1) = «5 игра»

Sheets("Результат").Сеlls(20,1) = «6 игра»

Sheets("Результат").Сеlls(21,1) = «ИТОГО»

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

For i = 1 То 6 For j = 1 То 2

Sheets("Результат").Сеlls(14 + i, 2 + j) = koll(i, j) * сеna(i)

zar(j) = zar(j) + koll(i, j) * сеna(i)

zar(6) = zar(6) + koll(i, j) * сеnа(i)

Next j

Sheets("Результат").Сеlls(14 + i, 2) = сеnа(i)

Sheets("Результат").Сеlls(14 + i, 8) = сеnа(i) * koll_n (i)

Next i

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

For j = 1 То 6

Sheets("Результат").Сеlls(21, 1 + j) = zar(j)

If zar(j) > zarpl Then

zarpl = zar(j)

den = j

End If

Next

Ниже выводится на лист с результатом работы программы заработок за полгода, игра с минимальным заработком и сколько он заработал в этот день.

Sheets("Результат").Сеlls(21,1) = zar(3)

Sheets("Результат").Сеlls(22,1) = «Заработок за полгода»

Sheets("Результат").Сеlls(22,3) = zar(3)

Sheets("Результат").Сеlls(23,5) = «игра с наименьшим заработком»

Sheets("Результат").Сеlls(23,5) = igra

Sheets("Результат").Сеlls(23,6) = «Заработано»

Sheets("Результат").Сеlls(23,7) = doxod

End Sub

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

1. MS Office XP, 2003 Word, Excel, Access, Outlook, PowerPoint, FrontPage, MS Project/ А. К. Гультяев: Корона-Век, 2006

2. VBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007

3. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008

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

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

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

7. Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005

8. Электронные таблицы Microsoft Excel. Проблемы и решения/ Лори Анн Ульрих: Эком, 2002

Размещено на Allbest.ru

...