Информатика

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

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

Задание: №20

Группа: У10У21

Студент: Тарасова Л.В.

Преподаватель: Иванов М.Н.

Москва 2013

Содержание

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

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

3. Блок схема        7

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

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

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

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

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

В юридической фирме 20 компьютеров, используемых персоналом. Каждый компьютер, работая 5 дней в неделю, потребляет определенное количество электроэнергии. Цена на электроэнергию меняется.

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

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

 количество электроэнергии, потребленной каждым компьютером за неделю;

 стоимость энергии, потребленной всеми компьютерами за день;

 стоимость всей энергии, потребленной за неделю;

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

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

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

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

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

[pic 1]

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

[pic 2]

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

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

1. cena(5) — стоимость одного киловатта электроэнергии
   представляет массив дробных чисел

Dim cena(5) As Double

1. kol(20, 5) — количество киловатт электроэнергии, потребленных одним компьютером за каждый день, представляет двумерный массив дробных чисел

Dim kol(20, 5) As Double

1. koln(20) — количество электроэнергии, потребленной каждым компьютером за неделю, представляет массив дробных чисел

Dim koln(20) As Double

1. sden(5) — стоимость энергии, потребленной всеми компьютерами за день, представляет массив дробных чисел

Dim sden(5) As Double

1. sned — стоимость всей энергии, потребленной за неделю, представляет дробное число 

Dim sned As Double

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

Dim i As Integer, j As Integer

3.  Блок схема.[pic 3]

[pic 4]

[pic 5][pic 6][pic 7][pic 8][pic 9]

[pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29][pic 30][pic 31][pic 32][pic 33][pic 34][pic 35][pic 36][pic 37][pic 38][pic 39][pic 40][pic 41][pic 42][pic 43][pic 44]

[pic 45][pic 46][pic 47][pic 48][pic 49]

                                                 [pic 50][pic 51][pic 52]

[pic 53]

[pic 54]