Информатика

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

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

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

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

Задание:

Группа:

Студент:

Руководитель 
 
 

Москва 2011

 

Содержание

 

 

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

 

Имеется 20 камер хранения. В течение недели из каждой камеры 10 

потребителям  доставили  багаж  (килограммы).  Известно  расстояние  от 

каждой камеры до каждого потребителя.

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

данные, выполняет расчеты и выводит на экран:

  • исходные  данные  в  виде  таблицы,  где  перечислены  потребители, 

      количество  багажа  (в  кг),  доставленного  им  из  каждой  камеры 

      хранения, расстояние от каждой  камеры до каждого потребителя  (в  

      км);

  • объем багажа в кг, доставленного каждой камерой хранения;
  • средний объем багажа в кг для каждого потребителя;
  • общий объем багажа для всех камер хранения;
  • камеру   хранения   с   наименьшим      по   весу оставленным   в   ней 

      багажом.

 

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

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

Расстояния от каждой камеры до каждого потребителя  и вес доставленного груза 

 

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

SummaVesa — Сумма веса доставленного из 1 камеры хранения

MinimalnyiVes – минимальный вес доставленный камерой хранения

Ves – Временная  переменная для определения минимального  веса 

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

 

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

Входными данными  являются расстояния между каждой камерой хранения и вес доставленный от каждой камеры хранения до каждого потребителя. 

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

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

Для подсчета суммы весов всех камер хранения используется функция суммы по колонке с суммой веса по каждой камере хранения. 

Для вычисления минимального веса камеры хранения перебираются все веса камер хранения, и методом  сравнения с предыдущим, вычисляется  минимальный.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

4. Блок-схема программы.

 
 
 
 
 
 
 
 
 

 

 

                                         нет

 

      да

 

 

 

 

      нет

      да

 

 

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 

 

   нет

     да

     да

 

 

 

 

 
 
 
 
 
 
 
 
 
 
 
 

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

Private Sub Рассчитать_Click()

Dim i As Integer, j As Integer

Dim SummaVesa As Integer

Dim MinimalnyiVes As Double

Dim Ves As Double

Sheets("Лист1").Cells(25, 1) = "Средний вес доставленный до потребителя"

Sheets("Лист1").Cells(3, 22) = "Сумма доставленного камерой хранения веса"

Sheets("Лист1").Cells(25, 23) = "Сумма весов всех камер хранения"

Sheets("Лист1").Cells(26, 23) = "Минимальный вес камеры хранения"

Sheets("Лист1").Select 

For i = 3 To 21

If Int(i / 2) <> i / 2 Then

      Sheets("Лист1").Cells(25, i) = "=AVERAGE(R[-20]C:R[-1]C)"

End If

Next 

j = 22 

For i = 5 To 24

    Sheets("Лист1").Cells(i, 22) = i

    SummaVesa = 0

    For j = 3 To 21

        If Int(j / 2) <> j / 2 Then

            SummaVesa = SummaVesa + Sheets("Лист1").Cells(i, j)

        End If

        Sheets("Лист1").Cells(i, 22) = SummaVesa

    Next

Next 

Sheets("Лист1").Cells(25, 22) = "=SUM(R[-20]C:R[-1]C)" 
 

MinimalnyiVes = Sheets("Лист1").Cells(5, 22)

For i = 5 To 24

      Ves = Sheets("Лист1").Cells(i, 22)

If Ves < MinimalnyiVes Then

   MinimalnyiVes = Ves

End If

Next

Sheets("Лист1").Cells(26, 22) = MinimalnyiVes

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

     Введенные данные: 

 
 

Результаты вычислений: 

 
 

 

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

  1. MS Office XP, 2003 Word, Excel, Access, Outlook, PowerPoint, FrontPage, MS Project/ А. К. Гультяев: Корона-Век, 2006
  2. VBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007
  3. VBA/ Кузьменко В.Г.: Бином,2008.
  4. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008
  5. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.
  6. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.
  7. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.
  8. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.
  9. Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005
  10. Профессиональная разработка приложений Excel/ Стивен Буллен, Роб Боуви, Джон Грин: Вильямс, 2005
  11. Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004
  12. Самоучитель программирования на VBA в Microsoft Office/В. Д. Хореев: Юниор, 2001
  13. Электронные таблицы Microsoft Excel. Проблемы и решения/ Лори Анн Ульрих: Эком, 2002

Информатика 📙 Курсовая → 🆔 92434

Информатика 📙 Курсовая → 🆔 92434