Написание программы на языке VBA (стр. 1 из 2)

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

РОССИЙСКОЙ ФЕДЕРАЦИИ

ИДО ГОУ МГИУ

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

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

Задание:№ 93

Группа: № Жл09Ф22п

Студент: Соколова Виктория Игоревна

Руководитель: Ф.И.О. Левкова Анна Витальевна

Железнодорожный 2010

Содержание

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

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

3. Блок схема

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

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

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

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

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

В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.

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

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

• общее количество букетов за 3 года;

• доход по всем цветам за каждый год;

• общий доход колхоза за 3 года;

• вид цветов, принесший максимальный доход за 2 года.

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

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

1) Наименование цветов.

2) Количество проданных букетов в год (количество не меняется).

3) Закупочные цены букетов каждого вида.

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

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

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

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

1) cena(6,3) — закупочные цены каждого вида цветов

Dim cena(6,3) As Integer

2) koll(6) — количество букетов каждого вида

Dim koll(6) As Integer

3) zar(6,3) — доход за каждый год (от 1 до 3)

Dim zar(6,3) As Integer

4) koll_n(6) — количество букетов каждого вида за 3 года
представляет массив целых чисел

Dim kol_n(6) As Integer

5)den — доход колхоза за 3 года

Dim den As Long

6)Koll_i-Итоговое количество букетов за 3 года

Dim Koll_i As Integer

7)zarpl (6)— доход за 3 года

Dim zarpl(6) As Integer

8) sum(6.3)-вид цветов принесший максимальный доход за 2 года.

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

Dim i As Integer, j As Integer

Переменные для расчета я взяла целые числа

3. Блок схема

J =j=

Рис3. Блок- схема

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

Рис.3. Блок-схе