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

1. Общая часть

1.1 Характеристика ЭВМ

ЭВМ - комплекс технических средств, предназначенных для автоматизации обработки информации в процессе решения вычислительных и информационных задач.

Архитектура ЭВМ - совокупность основных устройств, узлов и блоков ЭВМ, а также структура основных управляющих и информационных связей между ними, обеспечивающая выполнение заданных функций.

ПК состоит из стандартных радиоэлектронных компонент (модулей, комплектующих).

Необходимые комплектующие:

1) Корпус с блоком питания - корпус защищает от внешнего воздействия и служит для последующего расширения системы;

2) Материнская плата - управляет внутренними связями и взаимодействует с внешними устройствами;

3) Процессор - предназначен для интерпретации программ, выполняет основные функции по обработке данных и управления работой других частей ЭВМ. Характеризуется: тактовой частотой, разрядностью шины данных, объемом КЭШа первого и второго уровней, частотой системной шины;

4) Память -- функциональная часть ЭВМ, предназначенная для временного хранения и выдачи данных. При выключении компьютера данные, хранящиеся в ОЗУ, утрачиваются;

5) Дисковод (FDD) -- внешнее запоминающее устройство, в котором носителями информации являются сменные гибкие магнитные диски;

6) Винчестер (HDD) - накопитель, с носителем информации в виде объединенного пакета магнитных дисков;

7) Видеокарта - радиоэлектронное устройство, формирующее символьную и графическую информации для вывода на монитор;

8) Монитор - устройство отображения информации;

9) Клавиатура -- совокупность клавиш, расположенных в определенном порядке, используемых для ввода и редактирования данных, а также управление выполнением отдельных операций;

10) Манипулятор «мышь» - портативное устройство локализации, функционирующая в результате перемещения его по поверхности;

11) CD-ROM- устройство для чтения информации с лазерных компакт-дисков;

12) Звуковая плата - устройство ввода и вывода звуковой информации;

13) Сетевой адаптер - устройство, соединяющее компьютер с сетью. Это устройство также называют сетевой платой или платой сетевого интерфейса.

Характеристика ЭВМ, на которой разрабатывалось ПО:

· Материнская плата: ASROCK H55;

· Процессор: Intel(R) Core(TM) i3 2.93 ГГц;

· Модуль памяти 4 ГБ DDR2;

· Имя видеокарты: NVIDIA GeForce GT 240;

· Объем памяти видеокарты: 2 ГБ;

· Жесткий диск: WDC;

· Память жесткого иска: 550 ГБ;

· Файловая система: NTFS.

1.2 Характеристика программного обеспечения

Delphi 7 - представляет собой интегрированную оболочку разработчика, в которую входит набор специализированных программ, ответственных за разные этапы создания готового приложения. Исходный текст программы готовится в среде Delphi 7 с помощью встроенного редактора исходных текстов. Этот редактор специализирован. Он отличается гибкими возможностями цветового выделения различных элементов текста программы (ключевых слов, названий, операций, чисел и строк) и представляет возможность быстрого ввода часто встречающихся конструкций.

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

В системе Delphi 7 имеется специальный проектировщик форм, с помощью которого окна будущей программы подготавливаются в виде форм. Проектировщик позволяет подобрать оптимальные размеры окон, разместить и настроить всевозможные элементы управления и меню, добавить готовые изображения, указать заголовки, подсказки, подписи и так далее.

На этапе проектирования форм программа как бы составляется из готовых компонентов - частей машинного кода, которые можно добавлять к ней с помощью всего нескольких щелчков мыши. Компоненты располагаются на палитре компонентов, разделенной на несколько самостоятельных панелей. Компоненты обладают наборами свойств, характеризующими их отличительные особенности. Некоторые свойства имеются практически у всех компонентов. Некоторые свойства уникальны для конкретных компонентов. Свойства компонентов в процессе проектирования формы настраиваются с помощью инспектора объектов. Это специальная программа, показывающая список всех свойств данного компонента, отсортированных по категориям или в алфавитном порядке.

Значение любого свойства можно изменить, введя в соответствующее поле инспектора объектов новую строку или выбрав нужное значение в раскрывающемся списке доступных значений. Некоторые свойства содержат вложенные под свойства, такие свойства удобнее редактировать с помощью специальных редакторов.

Помимо свойств компоненты содержат методы -- программный код, обрабатывающий значения свойств, а также события - сообщения, которые компонент принимает от приложения, если во время работы программы выполняется определённое действие. Программист может самостоятельно формировать реакции программы на любые события каждого компонента.

Правильно подбирая компоненты и настраивая их совместную работу путём использования свойств, предназначенных для связи компонентов друг с другом, нередко удаётся создать приложение, не написав вручную ни строчки исходного текста. В системе Delphi 7 существуют сотни готовых компонентов, и при решении многих задач бывает полезно предварительно поискать нужный компонент, вместо того что бы выполнять работу по программированию, возможно, уже сделанную другими людьми. Компонентный подход к созданию программ позволяет повторно использовать готовые разработки и во многих случаях значительно повышает эффективность труда.

Потребность в ручном программировании возникает, только когда обойтись готовыми компонентами не удаётся поддерживает больше форматов и позволяет сменить свой внешний вид. Можно создавать звуковые файлы в популярном формате MP3. Универсальный проигрыватель поддерживает также воспроизведение цифровых видеодисков (DVD-дисков).

Существенно улучшена и зашита системы. Теперь при случайном удалении важных системных файлов, они будут автоматически восстановлены. Имеется возможность восстановления системы к более раннему состоянию, после установки новых программ и оборудования. Улучшенная поддержка технологии Plug & Play позволяет подключить к компьютеру многие современные бытовые приборы.

Дальнейшее развитие получили и средства для работы с Интернетом. Существенно переработана справочная система, улучшена система безопасности. Многочисленные изменения коснулись средств администрирования и управления работой множества пользователей в локальной вычислительной сети.

1.3 Описание операционной системы

В основе системы Windows ХР Professional лежит проверенный код Windows NT® и Windows 2000, характеризуемый 32-разрядной вычислительной архитектурой и полностью защищенной моделью памяти.

Средство проверки драйверов устройств в операционной системе Windows ХР Professional, созданное на основе аналогичного средства системы Windows 2000, обеспечивает еще более тщательное испытание драйверов.

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

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

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

Операционная система Windows ХР Professional адаптируется к особенностям работы конкретного пользователя. В обновленном меню «Пуск» первыми появляются наиболее часто запускаемые приложения. При открытии нескольких файлов в одном приложении (например, нескольких сообщений электронной почты в клиенте обмена сообщениями и совместной работы Outlook'®) открывающиеся окна объединяются под одной кнопкой панели задач. Чтобы не загромождать область уведомлений, неиспользуемые объекты скрываются.

Данная версия операционной системы Windows сочетает в себе преимущества Windows 2000 Professional (например, средства безопасности, управляемость и надежность) с лучшими качествами Windows 98 и Windows ME (поддержка Plug and Play, простой пользовательский интерфейс и передовые службы поддержки). Это делает Windows® ХР Professional наиболее подходящей операционной системой для настольных компьютеров, применяемых в корпоративной среде. Независимо от того, где устанавливается Windows ХР Professional-- на одном компьютере или в масштабе локальной сети,-- эта система повышает вычислительные возможности предприятия, одновременно сокращая совокупную стоимость программного обеспечения всех настольных компьютеров.

1.4 Краткое описание языка

Программа была написана на объектно-ориентированном языке программирования.

Свойства объектно-ориентированного программирования:

· инкапсуляция, механизм, объединяющий данные и обрабатывающий их код как единое целое.

· наследование, способ определения нового типа, наследуя элементы существующего и модифицируя или расширяя их. Это способствует выражению специализации и генерализации.

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

Классы, наследование и полиморфизм - фундаментальные свойства, требуемые от языка, претендующего называться объектно-ориентированным. (Языки, не имеющие наследования и полиморфизма, но имеющие только классы, обычно называются основанными на классах.)

Object pascal - осуществляет:

- проверку существования вызываемых методов, типов их параметров, проверку границ массивов и т.д. В object pascal более или менее широкий контроль во время компиляции.

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

- весь контроль типов, так что нет особой необходимости хранить информацию о классах и типах в работающей программе. Тем не менее, есть случаи (как, например, динамическое преобразование типов), которые требуют некоторую информацию о типе.

- множественное наследование, все классы формируют гигантское иерархическое дерево.

Оbject pascal при наследовании использует не ключевые слова, а специальный синтаксис, добавляя в скобках имя базового класса. Язык поддерживает только один тип наследования, который называется публичным. Также классы происходят от одного общего базового класса.

2. Специальная часть

2.1 Постановка задачи

2.1.1 Формулировка задания

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

1) Предоставить теоретический материал по некоторым разделам;

2) Организовать тестирование по некоторым разделам;

3) Предоставить доступ к редактору тестов:

· Добавление новых тестов;

· Редактирование тестов;

· Удаление тестов;

4) Предоставить доступ к редактору теоретического материала:

· Добавлять теоретический материал;

· Удалять теоретический материал;

· Редактировать теоретический материал;

5) Предоставить доступ к результатам тестирования:

· Просмотр записей;

· Поиск записей;

· Печать;

· Хранение результатов тестирования в базе данных.

2.1.2 Входные данные

rt - таблица базы данных, хранящая результаты тестирования с полями:

«№», «Фамилия, Имя, Отчество», «Группа», «Раздел», «Оценка», «Дата».

2.1.3 Выходные данные

BDP.mdb - база данных результатов тестирования;

Сообщение о результате пройденного теста.

2.2 Схема данных

Рис. 2.1

2.3 Описание программы

2.3.1 Общие сведения

Наименование программы: Программа тестирования знаний по разделам предмета «основы моделирования».

Для функционирования программы необходимо наличие файла базы данных «BDP.mdb», исполняемого файла «Testing_Read.exe», папки с тестами «test_s» и папки с файлами теоретического материала «Theory».

Программа реализована в среде Delphi 7.

Операционная система: Microsoft Windows XP Professional.

2.3.2 Функциональное назначение

Программа предназначена для обучения и проверки знаний тестированием.

2.3.3 Условия выполнения программы

Для функционирования программы необходимо:

1 Операционная система Windows XP и выше;

2 Наличие базы данных «BDP.mdb», исполняемого файла «Testing_Read.exe», папки с тестами «test_s» и папки с файлами теоретического материала «Theory».

2.3.4 Используемые технические средства

Минимальные требования к ЭВМ: Pentium 2000 МГц, 512Мб ОЗУ, 1ГБ жесткого диска, цветной дисплей, манипулятор типа «Мышь», клавиатура, принтер.

Рекомендуемые характеристики ЭВМ: Pentium 4 3000 МГц, 1024Мб ОЗУ, 5ГБ жесткого диска, манипулятор типа «Мышь», цветной дисплей, клавиатура, принтер.

2.3.5 Установка программы

Установки не требуется, достаточно скопировать папку «Edit_Test_Theory» на рабочий стол.

2.3.6 Особенности программы

У программы существует одна отличительная особенность: файл базы данных, папка «test_s» и «Theory» находятся в том же каталоге, где исполняемый файл «Testing_Read.exe», а также должны быть установлены MS Word и MS Excel.

2.4 Структура программы

Рис. 2.2

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

2.5.1 Описание алгоритма главного модуля MainUnit_User

Функциональное назначение

Модуль предназначен для организации работы кнопочного меню и вызова других модулей.

Описание логической структуры

При выборе пункта меню «Тестирование» загружается модуль InputInformationUnit_User.

При выборе пункта меню «Обучение» запускается MS Word.

При выборе пункта меню «Результаты» загружается модуль ResultTestsUnit_User.

При выборе пункта меню «Редактор» загружается модуль MainUnit_R.

При выборе пункта меню «Выход» программа завершает работу.

Также данный модуль позволяет средством MS Word выбрать из выпадающего списка нужный раздел, который активизируется нажатием кнопки «Обучение».

Входные данные

ListInputSectionTeaching - выбранный раздел обучения;

Pass - пароль для вызова модуля MainUnit_R.

Выходные данные

Выходных данных нет.

2.5.2 Описание алгоритма модуля InputInformationUnit_User

Функциональное назначение

Модуль предназначен для ввода информации, необходимой для прохождения тестирования;

Модуль также вызывает другой модуль TestingUnit_User для тестирования.

Описание логической структуры

После запуска модуля InputInformationUnit_User появляются поля для ввода ФИО, группы и выпадающий список для выбора раздела из предмета «основы моделирования».

После ввода данных по нажатию на кнопку «Начать тест» запускается модуль TestingUnit_User.

Входные данные

InputFamily - фамилия, имя, отчество;

InputGroup - группа;

ListInputSectionTesting - выбранный раздел тестирования;

files - имя файла с вопросами для тестирования.

Выходные данные

Выходных данных нет.

2.5.3 Описание алгоритма формы TestingUnit_User

Функциональное назначение

Модуль предназначен для тестирования.

Описание логической структуры

После запуска модуля на форме отображаются вопросы, кнопка для подтверждения ответа, а также балл, который получит тестируемый, если правильно ответит на вопрос.

После ответа на все вопросы результат запишется в базу данных BDP.mdb.

Входные данные

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

Выходные данные

BDP.mdb - база данных с результатами тестирования.

2.5.4 Описание алгоритма модуля ResultTestsUnit_User

Функциональное назначение

Модуль предназначен для просмотра результатов тестирования.

Описание логической структуры

После запуска модуля из базы данных BDP.mdb считываются все записи в таблицу, расположенной на форме модуля.

Для отчета организована печать содержимого таблицы с записями из базы данных. Печать производится посредством MS Excel, т.е. все данные из таблицы считываются в MS Excel в созданную книгу, обрисовывается таблица и выполняется печать прямо из MS Excel.

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

Входные данные

BDP.mdb - база данных;

Выходные данные

Выходных данных нет.

2.5.5 Описание алгоритма модуля SearchUnit_User

Функциональное назначение

Модуль предназначен для организации выборки результатов тестирования по некоторому критерию.

Описание логической структуры

После запуска модуля отобразятся поля ввода для выборки и кнопка для выполнения выборки.

Результат выборки отобразится на форме модуля ResultTestsUnit_User.

Входные данные

InputSectionForSearch - раздел;

InputGroupForSearch - группа;

InputDateForSearch - дата.

Выходные данные

Результат полученной выборки.

2.5.6 Описание алгоритма модуля MainUnit_R

Функциональное назначение

Модуль предназначен для организации работы кнопочного меню и вызова других модулей.

Описание логической структуры

При вызове модуля отображается меню с пунктами: «Редактор теории», «Редактор тестов», «Выход».

При выборе пункта меню «Редактор теории» загружается модуль TheoryUnit_R.

При выборе пункта меню «Редактор тестов» загружается модуль TestsUnit_R.

При выборе пункта меню «Выход» загружается модуль MainUnit_User.

Входные данные

Входных данных нет

Выходные данные

Выходных данных нет.

2.5.7 Описание алгоритма модуля TheoryUnit_R

Функциональное назначение

Модуль предназначен для редактирования теоретического материала.

Описание логической структуры

Для того чтобы добавить новый раздел, следует нажать кнопку «Добавить теоретический материал», после чего откроется MS Word и появится поле ввода для того, чтобы можно было ввести имя нового раздела. После этого новый документ с введённым именем сохранится в папке с теоретическим материалом «Theory».

Для редактирования теории нужно выбрать из выпадающего списка раздел и нажать кнопку «Редактировать теоретический материал», после чего откроется документ в MS Word. Документ находится в папке с теоретическим материалом «Theory».

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

Также данный модуль вызывает модуль DopFunctionUnit_R, который организует сохранение редактируемого документа.

Входные данные

*.doc - файл с теоретическим материалом.

ListInputSectionEditing - выбранный раздел редактирования;

Выходные данные

*.doc - файл с теоретическим материалом.

2.5.9 Описание алгоритма модуля TestsUnit_R

Функциональное назначение

Модуль предназначен для редактирования тестов, удаления и добавления новых.

Описание логической структуры

После запуска модуля отображаются элементы для редактирования тестов, выпадающий список с уже созданными тестами, кнопки для удаления и добавления тестов.

Все файлы с вопросами разделов находятся в папке «test_s»

Входные данные

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

Выходные данные

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

2.5.8 Описание алгоритма модуля DopFunctionUnit_R

Функциональное назначение

Модуль предназначен для сохранения редактируемого документа.

Описание логической структуры

После запуска модуля отображается кнопка «Сохранить изменения».

Входные данные

InputFull_Name_EditDocuments - полное имя редактируемого документа.

Выходные данные

Выходных данных нет.

2.6 Схема алгоритма

Рис. 2.3 Схема алгоритма модуля TestingUnit_User

2.7 Инструкция пользователя

2.7.1 Назначение программы

Программа предназначена для обучения и проверки знаний тестированием.

2.7.2 Условия выполнения программы

Для функционирования программы необходимо:

1 Операционная система Windows XP (Service Pack 3) и выше;

2 Аппаратное обеспечение: ОЗУ 4096Mb, объём дисковой памяти 1gb, процессор с частотой не меньше 3000 MHz.

2.7.3 Выполнение программы

Для функционирования программы необходимо:

1 Операционная система Windows XP и выше;

2 Наличие базы данных «BDP.mdb», исполняемого файла «Testing_Read.exe», папки с тестами «test_s» и папки с файлами теоретического материала «Theory».

2.7.4 Тестирование

В режиме тестирования можно пройти тестирование по разделам, предоставленным в виде раскрывающегося списка.

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

2.7.5 Обучение

Обучение проходит посредством MS Word, нужно выбрать тему из списка и подтвердить выбор нажатием на кнопку " Обучение".

Затем откроется приложение MS Word, в котором можно прочесть теоретический материал для прохождения тестирования.

2.7.6 Результат тестирования

Раздел результатов позволяет посмотреть результаты всех, проходивших тестирование.

Также можно воспользоваться поиском " Группа ", " Раздел", " Дата".

Для отчета можно воспользоваться печатью, печать производится посредством MS Excel.

2.7.7 Редактор тестов

Для редактирования теста нужно выбрать тему и далее действовать в соответствии с инструкциями программы.

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

2.7.8 Редактор теории

Теория редактируется посредством приложения MS Word.

Нужно выбрать тему и выбрать действие " Удалить", " Добавить", " Редактировать".

Разумеется, для добавления новой темы выбирать существующую не нужно.

программирование алгоритм тестирование

3. Экономическое обоснование эффективности программы

Данная задача относится к классу "Программ обучения"

Накладные расходы (в %) - 25

Отчисления на социальные нужды (в %) - 38

Таблица 3.1 - Временные затраты на создание программного продукта

Этапы выполняемых работ	Время работы программиста (час)	Время работы постановщика задачи (час)
Формирование требований ПП	2	2
Разработка концепции ПП	2	2
Постановка задачи	6	6
Структура данных, программы	4	4
Отладка	80	2
Ввод в действие	1	1
Сопровождение	10	10

Таблица 3.2 - Данные для расчета стоимости разработки программы

	Программист	Постановщик задачи
Среднемесячная зарплата, руб.	1000	5000
Количество раб. дней в месяце	26	26
Продолжительность рабочего дня (час)	4	8
Стоимость часа машинного времени, руб.	7	3

3.1 Основные расчетные формулы

3.1.1 Расчет средней стоимости одного часа работы

ЗЧ = (Среднемесячная зарплата)/(кол-во рабочих дней в месяце * продолжительность рабочего дня).

3.1.2 Расчет расходов на оплату труда по программе

ЗП = ЗЧ * Время подготовки программы (в часах).

3.1.3 Расчет отчислений на социальные нужды

СН = Отчисления на социальные нужды (в %) * ЗП / 100

3.1.4 Расчет накладных расходов

НР = Накладные расходы (в %) * ЗП / 100

3.1.5 Расчет оплаты машинного времени

МВ = Стоимость часа машинного времени * время написания программы (в часах).

3.1.6 Расчет стоимости программного продукта

СП = ЗП + СН + НР + МВ

3.2 Расчет стоимости программного продукта

Таблица 3.3 - расчет стоимости программного продукта

	Программист	Постановщик задачи
Средняя стоимость 1 часа работы (руб.)	9,62	24,04
Расходы на оплату труда по программе (руб.)	134,60	336,50
Отчисления на социальные нужды (руб.)	51,15	127,90
Накладные расходы	33,65	84,13
Оплата машинного времени	637,00	39,00
Стоимость программного продукта	866,00	611,6

Суммарная стоимость программного продукта - 1478,00 руб.

3.3 Определение эффективности программного продукта

3.3.1 Определение годовых эксплуатационных затрат

ЭЗ = З1 + З2 + З3 + З4

где: ЭЗ - Общие эксплуатационные затраты;

- З1 - Годовой фонд заработной платы персонала;

- З2 - Годовые амортизационные отчисления;

- З3 - Годовые затраты на электроэнергию;

- З4 - Прочие затраты (Картриджи, диски, бумага и т.п.);

Таблица 3.4 - Расчет времени на обработку информации ручным и автоматизированным способами

Вид работы	Ручная обработка (день)	Ручная обработка (месяц)	Машинная обработка (день)	Машинная обработка (месяц)
Количество операций	3	78	3	78
Время на обработку одного документа (час)	0,25		0,08
Время на обработку всех документов (час)	0,75	19,5	0,24	6,24
Итого часов		19,5		6,24
Итого часов в год		234		74,88

Таблица 3.5 - Расчет годовых эксплуатационных затрат

Средняя месячная з\п. работника, руб.	8000
Стоимость ЭВМ с ПО (руб.)	3000
Коэффициент амортизации, в %	19
Мощность ЭВМ, кВтч	0,2
Стоимость кВтч	12
Прочие расходы (руб.)	300
Коэффициент к	0,054

3.3.2 Вычисление годовых эксплуатационных затрат

1) Годовой фонд заработной платы персонала, который занимается обслуживанием ЭВМ:

З1 = 12*q*Сз/26/8*(к+1)

где q - время работы с системой в месяц;

- Сз - Средняя месячная заработная плата работника

З1 = 12 * 6,24 * 8000 / 26 / 4 * (0,054 + 1) = 3035,52 руб.

2) Годовые амортизационные отчисления:

Стоимость ЭВМ с установленным программным обеспечением - 3000 руб.

Нормативный коэффициент амортизации - 19%

З2 = 3000 * 19 / 100 = 570,00 руб.

3) Годовые затраты на электроэнергию:

Количество часов работы ЭВМ в год - 3120 час.

Мощность ЭВМ, кВтч - 0,2

Стоимость одного кВтч - 12

З3 = 3120 * 0,2 * 12 = 7488,00 руб.

4) Прочие затраты:

З4 = 300 руб.

5) Годовые эксплуатационные затраты:

ЭЗ = 3035,52 + 570,00 + 7488,00 + 300 = 11393,52 руб.

3.3.3 Расчет ожидаемого годового экономического эффекта

Э = Э1 + Э2,

где Э - общая экономия;

- Э1 - экономия от снижения стоимости обработки информации;

- Э2 - экономия от увеличения производительности труда;

Э1 = (РО - АО) * Ср,

где АО - Время на автоматическую обработку информации за год = 74,88 час,

- РО - Время на ручную обработку информации за год = 234 час,

- Ср - среднечасовая ставка работника = 76,92 руб./час.

Таблица 3.6 - Расчет ожидаемого экономического эффекта

	Ручная обработка	Автоматизированная обработка
Среднее количество запросов в месяц	3	3
Среднечасовая з\п работника (руб.)	76,92	76,92
Среднее время ожидания на запрос (час)	0,25	0,08
Среднее время ожидания в месяц (час)	0,75	0,24
Стоимость времени ожидания в месяц (руб.)	57,69	18,4608
Стоимость времени ожидания в год (руб.)	692,28	221,5296
Экономия рабочего времени в год (руб.)		0,51
Экономия затрат в год (руб.)		470,7504

Экономия от увеличения производительности труда составляет 470,7504 руб.

Общая экономия с учетом эксплуатационных расходов:

Э = 12239,5104 + 470,7504 = 1316,7408 руб.

3.3.4 Срок окупаемости капиталовложений

Т = Л / Э

где Л - Дополнительные капиталовложения (стоимость программного продукта);

- Э - Общая экономия от использования программного продукта.

T = 1478,00 / 1316,7408 = 1,1225 (в годах)

Приложение А Текст программы

ТЕКСТ Модуля TestingUnit_User

unit TestingUnit_User;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, ExtCtrls, ComCtrls, Buttons, XPMan, jpeg;

type

TTesting_User = class(TForm)

Press_Exc_For_AnalizAnsSet: TButton;

Title_FalseVarAns: TLabel;

Area_Main: TScrollBox;

Title_Variant_1: TLabel;

Title_Variant_2: TLabel;

Title_Variant_3: TLabel;

Title_Variant_4: TLabel;

Title_Variant_5: TLabel;

Check_Variant_1: TCheckBox;

Check_Variant_2: TCheckBox;

Check_Variant_3: TCheckBox;

Check_Variant_4: TCheckBox;

Check_Variant_5: TCheckBox;

Switch_Variant_1: TRadioButton;

Switch_Variant_2: TRadioButton;

Switch_Variant_3: TRadioButton;

Switch_Variant_4: TRadioButton;

Switch_Variant_5: TRadioButton;

Press_TipVoprosa: TSpeedButton;

Input_TipQst: TEdit;

Press_AnalizAnsOne: TBitBtn;

Press_AnalizAnsSet: TBitBtn;

Title_Qustions: TLabel;

Press_NextQst: TBitBtn;

Time_For_NextQst: TTimer;

Input_AllVarAns: TEdit;

Title_Formula_1: TLabel;

Title_Formula_2: TLabel;

Title_Bracket_1: TLabel;

Title_Bracket_2: TLabel;

Title_Ball: TLabel;

frame_1: TBevel;

Title_TrueVarAns: TLabel;

procedure Press_Exc_For_AnalizAnsSetClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Press_TipVoprosaClick(Sender: TObject);

procedure Press_AnalizAnsSetClick(Sender: TObject);

procedure Press_AnalizAnsOneClick(Sender: TObject);

procedure Press_NextQstClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Time_For_NextQstTimer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Testing_User: TTesting_User;

arrch : array [0..10] of TCheckBox;

arrrb : array [0..10] of TRadioButton;

len,len2,h,hh,etostr,GODANS,NONANS,sec:integer;

bbb:Boolean;

prc:integer;

percent:string;

implementation

uses HelpTablesUnit_User, InputInformationUnit_User, MainUnit_User;

{$R *.dfm}

{Анализируется ответ с несколькими вариантами ответа}

procedure TTesting_User.Press_Exc_For_AnalizAnsSetClick(Sender: TObject);

var i,j,k,sum,sum2: integer;

r,t,y,x:Integer;

crt:integer;

s,s2,percnan: string;

begin

Title_FalseVarAns.Caption := '';

Title_TrueVarAns.Caption := '';

x:=0;

sum := 0;

sum2:=0;

s := Input_AllVarAns.Text;

for i:=1 to 5 do if s[i]<>'0' then x:=x+1;

for j:=1 to 5 do if s[j]='0' then Title_FalseVarAns.Caption:=Title_FalseVarAns.Caption + IntToStr(j);

for j:=1 to 5 do if s[j]<>'0' then Title_TrueVarAns.Caption:=Title_TrueVarAns.Caption + s[j];

len := Length(Title_TrueVarAns.caption);

len2 := Length(Title_FalseVarAns.caption);

for i:=1 to len do

case Title_TrueVarAns.Caption[i] of

'1': if Check_Variant_1.Checked = True then Inc(sum) ;

'2': if Check_Variant_2.Checked = True then Inc(sum) ;

'3': if Check_Variant_3.Checked = True then Inc(sum) ;

'4': if Check_Variant_4.Checked = True then Inc(sum) ;

'5': if Check_Variant_5.Checked = True then Inc(sum) ;

end;

for i:=1 to len2 do

case Title_FalseVarAns.Caption[i] of

'1': if Check_Variant_1.Checked = True then sum:=sum+4;

'2': if Check_Variant_2.Checked = True then sum:=sum+4;

'3': if Check_Variant_3.Checked = True then sum:=sum+4;

'4': if Check_Variant_4.Checked = True then sum:=sum+4;

'5': if Check_Variant_5.Checked = True then sum:=sum+4;

end;

if sum = len then

begin

GODANS:=GODANS+1;

prc:= prc + StrToInt(HelpTables_User.Table_Questions.Cells[3,etostr]);

end;

if (sum < len)or(sum > len) then

begin

NONANS:=NONANS+1;

end;

percent := IntToStr(prc) + ' баллов';

end;

{при запуске формы считывается первый вопрос}

procedure TTesting_User.FormCreate(Sender: TObject);

var crt:integer;

begin

sec:=0;

prc:=0;

GODANS:=0;

NONANS:=0;

h:=0;

hh:=0;

arrch[0]:=Check_Variant_1;

arrch[1]:=Check_Variant_2;

arrch[2]:=Check_Variant_3;

arrch[3]:=Check_Variant_4;

arrch[4]:=Check_Variant_5;

arrrb[0]:=Switch_Variant_1;

arrrb[1]:=Switch_Variant_2;

arrrb[2]:=Switch_Variant_3;

arrrb[3]:=Switch_Variant_4;

arrrb[4]:=Switch_Variant_5;

etostr:=0;

Title_Qustions.Caption:=HelpTables_User.Table_Questions.Cells[0,etostr];

Input_AllVarAns.text:=HelpTables_User.Table_Questions.Cells[1,etostr];

Input_TipQst.text:=HelpTables_User.Table_Questions.Cells[2,etostr];

Title_Ball.Caption:= 'Вопрос на '+ HelpTables_User.Table_Questions.Cells[3,etostr] +' баллов';

Press_TipVoprosa.Click;

begin

Title_Variant_1.Caption:=HelpTables_User.Table_Questions.Cells[4,etostr];

Title_Variant_2.Caption:=HelpTables_User.Table_Questions.Cells[5,etostr];

Title_Variant_3.Caption:=HelpTables_User.Table_Questions.Cells[6,etostr];

Title_Variant_4.Caption:=HelpTables_User.Table_Questions.Cells[7,etostr];

Title_Variant_5.Caption:=HelpTables_User.Table_Questions.Cells[8,etostr];

end;

if Title_Variant_3.Caption='' then

begin

Check_Variant_3.Visible:=false;

Switch_Variant_3.Visible:=false;

end;

if Title_Variant_4.Caption='' then

begin

Check_Variant_4.Visible:=false;

Switch_Variant_4.Visible:=false;

end;

if Title_Variant_5.Caption='' then

begin

Check_Variant_5.Visible:=false;

Switch_Variant_5.Visible:=false;

end;

//prc:=Round(100 * (GODANS / (10)));

end;

{определяются элементы для ответа на вопрос}

procedure TTesting_User.Press_TipVoprosaClick(Sender: TObject);

var crt:Integer;

begin

for crt:=0 to 4 do arrch[crt].Visible:=false;

for crt:=0 to 4 do arrrb[crt].Visible:=false;

Press_AnalizAnsSet.Visible:=False;

Press_AnalizAnsOne.Visible:=False;

if Input_TipQst.text='Один ответ' then

begin

Press_AnalizAnsOne.Visible:=True;

for crt:=0 to 4 do arrrb[crt].Visible:=true;

end;

if Input_TipQst.text='Более одного ответа' then

begin

Press_AnalizAnsSet.Visible:=True;

for crt:=0 to 4 do arrch[crt].Visible:=true;

end;

end;

{вызывает процедуру для выполнения анализа ответа}

procedure TTesting_User.Press_AnalizAnsSetClick(Sender: TObject);

var i:integer;

begin

Press_Exc_For_AnalizAnsSetClick(Sender);

Press_AnalizAnsOne.Enabled:=false;

Press_AnalizAnsSet.Enabled:=false;

Press_NextQst.Enabled:=true;

Area_Main.Enabled:=false;

Time_For_NextQst.Enabled:=True;

end;

{выполняется анализ ответа с одним вариантом ответа}

procedure TTesting_User.Press_AnalizAnsOneClick(Sender: TObject);

var i,sum,crt:Integer;

begin

sum:=0;

case Input_AllVarAns.Text[1] of

'1': if Switch_Variant_1.Checked = True then Inc(sum) ;

'2': if Switch_Variant_2.Checked = True then Inc(sum) ;

'3': if Switch_Variant_3.Checked = True then Inc(sum) ;

'4': if Switch_Variant_4.Checked = True then Inc(sum) ;

'5': if Switch_Variant_5.Checked = True then Inc(sum) ;

end;

if sum = 1 then

begin

GODANS:=GODANS+1;

prc:= prc + StrToInt(HelpTables_User.Table_Questions.Cells[3,etostr]);

end;

if sum =0 then

begin

NONANS:=NONANS+1;

end;

//prc:=Round(100 * (GODANS / (10)));

percent := IntToStr(prc) + ' баллов';

Press_AnalizAnsOne.Enabled:=false;

Press_AnalizAnsSet.Enabled:=false;

Press_NextQst.Enabled:=true;

Area_Main.Enabled:=false;

Time_For_NextQst.Enabled:=True;

end;

{отображается следующий вопрос}

procedure TTesting_User.Press_NextQstClick(Sender: TObject);

var asd,crt,i:integer;

ocenka,str:string;

begin

If etostr >= HelpTables_User.Table_Questions.RowCount-1{10} then

begin

// Определение оценки

if prc>=StrToInt('100') then ocenka:='5';

if (prc<StrToInt('100')) and (prc>=StrToInt('90')) then ocenka:='5';

if (prc<StrToInt('90')) and (prc>=StrToInt('75')) then ocenka:='4';

if (prc<StrToInt('75')) and (prc>=StrToInt('50')) then ocenka:='3';

if prc<=StrToInt('50') then ocenka:='2';

asd := MessageBox(Handle,PAnsiChar('Вы завершили тест c результатами : '+#13+' - Количество правильных : '+PAnsiChar(inttostr(GODANS))+#13+' - Количество неправильных : '+PAnsiChar(inttostr(NONANS))+#13+' - Баллы : '+PAnsiChar(percent)+#13+' - Ваша оценка : ' +ocenka), 'Тестирование' ,MB_ICONINFORMATION);

HelpTables_User.Table_InterResultTest.Cells[3,HelpTables_User.Table_InterResultTest.RowCount -1 ] := ocenka;

// ЗАПИСЬ РЕЗУЛЬТАТА В БАЗУ ДАННЫХ

HelpTables_User.Query_BD.Insert;

FOR i:=0 to HelpTables_User.Table_InterResultTest.RowCount -1 do

begin

HelpTables_User.Query_BD.FieldByName('fio').AsString:= HelpTables_User.Table_InterResultTest.Cells[0,i];

HelpTables_User.Query_BD.FieldByName('group').AsString:=HelpTables_User.Table_InterResultTest.Cells[1,i];

HelpTables_User.Query_BD.FieldByName('section').AsString:=HelpTables_User.Table_InterResultTest.Cells[2,i];

HelpTables_User.Query_BD.FieldByName('result').AsString:=HelpTables_User.Table_InterResultTest.Cells[3,i];

HelpTables_User.Query_BD.FieldByName('date').AsString:=HelpTables_User.Table_InterResultTest.Cells[4,i];

HelpTables_User.Query_BD.Post;

end;

///////////////////////////////////////////////////////////

MainForm_User.Visible:=True;

// HelpTables_User.CheckBox1.Checked:=False;

bbb:=True;

for crt:=0 to 4 do

begin

arrch[crt].Checked:=False;

arrrb[crt].Checked:=False;

end;

Testing_User.Hide;

MainForm_User.Show;

end

else

begin

etostr:=etostr+1;

Title_Qustions.Caption:=HelpTables_User.Table_Questions.Cells[0,etostr];

Input_AllVarAns.text:=HelpTables_User.Table_Questions.Cells[1,etostr];

Input_TipQst.text:=HelpTables_User.Table_Questions.Cells[2,etostr];

Title_Ball.Caption:= 'Вопрос на '+ HelpTables_User.Table_Questions.Cells[3,etostr] +' баллов';

Press_TipVoprosa.Click;

begin

Title_Variant_1.Caption:=HelpTables_User.Table_Questions.Cells[4,etostr];

Title_Variant_2.Caption:=HelpTables_User.Table_Questions.Cells[5,etostr];

Title_Variant_3.Caption:=HelpTables_User.Table_Questions.Cells[6,etostr];

Title_Variant_4.Caption:=HelpTables_User.Table_Questions.Cells[7,etostr];

Title_Variant_5.Caption:=HelpTables_User.Table_Questions.Cells[8,etostr];

end;

end;

if Testing_User.Caption = 'Входной тест по ОМ' then if Title_Qustions.Caption[1] ='7' then

begin

Title_Formula_1.Show;

Title_Bracket_1.Show;

end

else

begin

Title_Formula_1.Hide;

Title_Bracket_1.Hide;

end;

if Testing_User.Caption = 'Входной тест по ОМ' then if Title_Qustions.Caption[1] ='9' then

begin

Title_Formula_2.Show;

Title_Bracket_2.Show;

end

else

begin

Title_Formula_2.Hide;

Title_Bracket_2.Hide;

end;

if Title_Variant_3.Caption='' then

begin

Check_Variant_3.Visible:=false;

Switch_Variant_3.Visible:=false;

end;

if Title_Variant_4.Caption='' then

begin

Check_Variant_4.Visible:=false;

Switch_Variant_4.Visible:=false;

end;

if Title_Variant_5.Caption='' then

begin

Check_Variant_5.Visible:=false;

Switch_Variant_5.Visible:=false;

end;

Press_AnalizAnsOne.Enabled:=true;

Press_AnalizAnsSet.Enabled:=true;

Press_NextQst.Enabled:=false;

sec:=0;

Time_For_NextQst.Enabled:=false;

for crt:=0 to 4 do

begin

arrch[crt].Checked:=False;

arrrb[crt].Checked:=False;

end;

end;

{после закрытия формы отключается таймер для вывода следующего вопроса}

procedure TTesting_User.FormClose(Sender: TObject; var Action: TCloseAction);

var crt,gmsgbox:integer;

begin

Time_For_NextQst.Enabled:=false;

end;

{отсчет времени для повления следующего вопроса}

procedure TTesting_User.Time_For_NextQstTimer(Sender: TObject);

begin

sec:=sec+1;

if sec = 3 then

begin

Press_NextQstClick(Sender);

Area_Main.Enabled:=True;

end;

end;

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