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

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

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

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

Задание: Курсовая работа VB.Вариант 67

Группа:13БИ111

Студент: Артамонов Алексей Владимирович

Руководитель: Бобылёва Галина Васильевна

Москва 2014

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

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

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

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

• Доход по каждой машинке за первые 2 месяца;

• Доход за каждый месяц по всем машинкам;

• Общий доход по всем машинкам за 13 месяцев;

• Наименование машинки, принесшей наибольший доход в последнем месяце

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

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

1. Количество деталей каждого из 7 типов, изготовленных за пять ра­бочих дней.

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

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

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

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

Рис.3.Результаты по доходам каждой машинки за первые 2 месяца

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

1) cena(14) — стоимость одной машинки каждого вида представляет массив дробных чисел

Dim cena(14) As Double

2) koll(10,16) — количество машинок каждого вида, проданных в каж­дый из месяцев, представляет двумерный массив целых чисел

Dim koll(10,16) As Integer

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

Dim zar(16) As Double

4) koll_n(10) — количество машинок каждого вида за истекший период представляет массив целых чисел

Dim koll_n(10) As Integer

5) mes — порядковый номер месяца с наибольшим заработком представляет целое число

Dim mes As Integer

6) zarpl — сумма наибольшего заработка за период представляет дроб­ное число

Dim zarpl As Double

7) zar2(13) — заработок за 13 месяцев из 15 (от 1 до 13) и общий заработок за 13 месячный период представляет массив дробных чисел

Dim zar2(13) As Double

8) doh-доход по каждой машинке за первые 2 месяца представляет дробное число

Dim doh As Double

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

Dim i As Integer, j As Integer

Переменные cena(14), zar(16), zar2(13), zarpl, doh могут быть и не целыми числами, поэто­му они объявлены как действительные. Переменные koll(10,16) koll_n(10), mes — целые числа, так как мы берёт в расчёт полноценные месячные промежутки, в течение которых на протяжение всего времени осуществлялись продажи машинок.

3 . Блок схема (Вывод таблицы «Результат»)

Открытие листа с данными («Нач_д»)

cena(i)= Cells(3+I,2)

Koll(I,j)=Cells(3+I,2+j)

Открытие листа с данными («Результат»)

Cells(3+I,2)=cena(i)

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

Koll_n(i)=kol_n(i)+kol(I,j)

Cells(3+I,8)=Koll_n(i)

Cells(14+I,2+j)=koll(I,j)*cena(i)

Zar(j)=zar(j)+koll(I,j)*cena(i) Zar(16)=zar(16)+koll(I,j)*cena(i)

Cells(25,2+j)=zar(j)

Cells(14+I,2+j)=Cena(i)

Cells(14+I,18+j)=cena(i)*koll_n(i)

Да

Нет

Zarpl=zar(j)

Cells(14+I,2+j)=koll(I,j)*cena(i)

Zar(j)=zar(j)+koll(I,j)*cena(i) Zar2(13)=zar2(13)+koll(I,j)*cena(i)

Cells(14+I,2+j)=Cena(i)

Cells(14+I,18+j)=cena(i)*koll_n(i)

Да

Tmax=koll(I,15)*cena(i):pos=i

Нет

Блок схема (Вывод таблицы «Результат»). Окончание