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

Частное учреждение образования

«Колледж бизнеса и права»

Курсовой проект

по дисциплине «Основы алгоритмизации и программирования»

Тестирующая программа по «Истории Беларуси»

Руководитель проекта А.Н. Копытова

Учащийся А.А. Малиновский

2014



Содержание

Введение

1. Объектно-ориентированный анализ и проектирование системы

1.1 Сущность задачи

1.2 Проектирование модели

2. Вычислительная система

2.1 Требования к аппаратным и операционным ресурсам

2.2 Инструменты разработки

3. Проектирование задачи

3.1 Требования к приложению

3.2 Концептуальный прототип

3.3 Организация данных

3.4 Функции: логическая и физическая организация и элементы управления

3.5 Проектирование справочной системы приложения

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

4.1 Общие сведения:

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

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

4.4 Постоянные данные

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

5. Методика испытаний

5.1 Технические требования

5.2 Порядок проведения испытаний

5.2.1 Функциональное тестирование

5.2.2 Полное тестирование

6. Применение

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

6.2 Условия применения

6.3 Справочная система

Заключение

Список используемых источников

Приложение

Введение

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

Целью курсового проекта «Тестирующая программа по истории Беларуси», является разработка программного средства «Тест по истории Беларуси.exe. При помощи данной программы каждый пользователь получит данные о своем уровне знание в истории. Исходя из этого программное средство будет востребовано в учебном процессе.

Для достижения цели курсового проекта нужно решить следующие задачи:

- выполнить объектно-ориентированный анализ и проектирование системы, результатом которой будет модель системы;

- определить вычислительную систему, необходимую для создания программного средства;

- по модели выполнить проектирование задачи;

- разработать программное средство;

- описать созданное программное средство;

- выбрать методику испытаний;

- описать процесс тестирования;

- привести примеры области применения.

Решение поставленных задач отражено в пояснительной записке.

Пояснительная записка состоит из шести разделов и содержит необходимую и достаточную информацию по использованию данного программного средства.

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

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

В третьем разделе «Проектирование задачи» проводится объектно-ориентированный анализ задачи, строится алгоритм в виде математической модели или в виде блок-схемы. строится концептуальный прототип системы меню, диалоговых окон и элементов управления в рамках среды разработки приложения.

В четвертом разделе «Описание программного средства» содержится информация об обозначении и наименовании приложения, о программном обеспечении, необходимом для функционирования программы, о классах решаемых задач и назначении программы.

В пятом разделе «Методика испытаний» описываются требования к техническим средствам для проведения испытаний, требования к характеристикам программы применительно к условиям эксплуатации, требования к информационной и программной совместимости. Описывается проверка каждого пункта меню, каждой операции, которая выполняет приложение. Моделируются все возможные действия пользователя при работе с программой. Представляются результаты тестирования.

Шестой раздел «Применение» предназначен для описания сведений о назначении программного средства, классе решаемых задач, ограничениях, накладываемых на область применения, требования к необходимым для данного программного средства техническим и программным ресурсам, структуре справочной системы, методике использования справочной системы и области его применения.

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

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

В графической части будут представлены схема работы программы, схема работы разработанного алгоритма «Тест по истории Беларуси.exe», экранные формы.

1. Объектно-ориентированный анализ и проектирование системы

1.1 Сущность задачи

Рассмотрим предметную область задачи. Необходимо автоматизировать теоретический материал по заданной теме. Входной информацией являются:

1. Регистрация тестируемых и тестирующих;

2. Перечень тем (не менее десяти);

3. Перечень вопросов по каждой теме (не менее десяти).

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

На основании анализа предметной области, поставленных задач и сформированной цели определяется модель решения задачи. Разрабатываемое программное средство «Тест по истории беларуси.exe» курсового проектирования «Тестирующая программа по истории Беларуси», будет предназначен для анализа информации, полученной в ходе тестирования и обработки результата, представленного как уровень знания учащегося, по предмету История Беларуси.

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

1.2 Проектирование модели

Согласно общим требованиям стандартный графический интерфейс разрабатываемого приложения должен:

- содержать привычные и понятные пользователю пункты меню, соответствующие функциям обработки;

- сохранять стандартное назначение и местоположение на экране графических объектов, работающих в среде Windows;

- справочную систему.

Большинство программных приложений работают в диалоговом режиме. Диалоговый режим - это режим, в котором пользователю предоставляется возможность выбора дальнейших действий в процессе работы с программой.

Состав для диалоговых систем представляет собой:

- меню, где пользователю предлагается альтернативный выбор функций обработки из фиксированного перечня - «Окно авторизации», «Окно регистрации», «Выход», «Справка»;

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

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

«Начать тестирование»- данная функция позволяет пользователю начать тест.

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

Для диалогового процесса это начало, инициатива, параметры и содержание, реакция программного средства на завершение.

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

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

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

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

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

В Приложении на рисунке Б.2 приведена схема работы разрабатываемого приложения. На рисунке Б.1 приведена схема работы разрабатываемого модуля «Добавление записей».



2. Вычислительная система

программный тестирование математический компьютер

2.1 Требования к аппаратным и операционным ресурсам

Конфигурация компьютера, на котором будут разрабатываться программы:

- процессор Intel atom 2,4 ГГц;

- оперативная память 4 ГБ;

- жёсткий диск 336 Гб.

2.2 Инструменты разработки

Инструментами разработки будут являться:

- операционная система Windows XP Professional (или другая);

- среда программирования Delphi;

- язык программирования Turbo Pascal.

Исходя из результатов объектно-ориентированного анализа и проектирования (ООАП), итогов исследования предметной области, можно сделать заключение, что наиболее подходящей средой разработки программного приложения является среда программирования Delphi v. 7.0

TurboPascal -- это среда разработки для языка программирования Паскаль. Используемый в TurboPascal диалект базировался на более раннем UCSD Pascal, получившем распространение, в первую очередь, на компьютерах серии Apple II. Компилирующая компонента TurboPascal была основана на компиляторе BlueLabelPascal, первоначально созданном в 1981 году Андерсом Хейлсбергом для операционной системы NasSys микрокомпьютера Nascom. Позднее он был переписан как CompassPascal для операционной системы CP/M, затем как TurboPascal для DOS и CP/M. Одна из версий TurboPascal была доступна под AppleMacintosh примерно с 1986 года, но её разработка прекратилась примерно в 1992 году.

С 1995 года в Borland прекратили разработку TurboPascal и предложили в качестве замены среду разработки Delphi. Новая версия языка подверглась изменению (в особенности ООП), и языку вернулось изначальное название, закреплённое разработчиками AppleObjectPascal. Старая объектная модель TurboPascal и соответствующий синтаксис поддерживался как устаревший, использование обеих объектных моделей одновременно в одной и той же программе не поддерживается.

Delphi -- императивный, структурированный, объектно-ориентированный язык программирования, диалект ObjectPascal. Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка ObjectPascal. Начиная с 2007 года уже язык Delphi (производный от ObjectPascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появились classhelpers, перегрузки операторов и другое.

Изначально среда разработки Delphi была предназначена исключительно для разработки приложений MicrosoftWindows, затем был реализован вариант для платформ Linux (как Kylix), однако после выпуска в 2002 году Kylix 3 его разработка была прекращена, и вскоре было объявлено о поддержке Microsoft .NET.

ObjectPascal -- результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо Паскаль, начиная с версии 5.5, добавил в Паскаль объектно-ориентированные свойства, а в ObjectPascal -- динамическую идентификацию типа данных с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемом интроспекцией -- данная технология получила обозначение RTTI. Так как все классы наследуют функции базового класса TObject, то любой указатель на объект можно преобразовать к нему, после чего воспользоваться методом ClassType и функцией TypeInfo, которые и обеспечат интроспекцию.

Windows-- семейство проприетарных операционных систем корпорации Microsoft, ориентированных на применение графического интерфейса при управлении. Изначально были всего лишь графическими надстройками для MS-DOS.

Windows 7 -- пользовательская операционная система семейства Windows NT, следующая по времени выхода за WindowsVista и предшествующая Windows 8. В линейке Windows NT система имеет номер версии 6.1 (Windows 2000 -- 5.0, Windows XP -- 5.1, WindowsServer 2003 -- 5.2, WindowsVista и WindowsServer 2008 -- 6.0). Серверной операционной системой того же семейства выступает WindowsServer 2008 R2, интегрируемой операционной системой этого семейства (облегченной версией, встраиваемой в устройства) -- WindowsEmbeddedStandard 2011 (Quebec), мобильной -- WindowsEmbeddedCompact 2011 (Chelan, Windows CE 7.0).

В Windows 7 реализована более гибкая настройка UserAccountControl (UAC), которая в отличие от WindowsVista имеет ещё два промежуточных состояния -- «Уведомлять, только при попытках программ внести изменения в компьютер» (положение по умолчанию), «Уведомлять, только при попытках программ внести изменения в компьютер (не затемнять рабочий стол)».

Внесены изменения в технологию шифрования BitLocker и добавлена функция шифрования съёмных носителей BitLockertogo, позволяющая шифровать съёмные носители, причём даже при отсутствии модуля TPM.

Добавлена возможность защиты данных на USB-накопителях с помощью EnhancedStorage.

Улучшения коснулись и брандмауэра Windows: вернулась функция уведомления пользователя о блокировке программы, которая пытается получить доступ к сети.

С помощью групповой политики и функции AppLocker можно запретить запуск определенных приложений.

Функция DirectAccess позволяет устанавливать безопасное соединение с сервером в фоновом режиме, в отличие от VPN, которому требуется участие пользователя. Также DirectAccess может применять групповые политики до входа пользователя в систему.

Кодовое название Blackcomb принадлежало Windows NT 6.0, операционной системе, которая, как планировалось, станет следующей после Windows XP. Blackcomb должна была стать преемником этой ОС как для настольных, так и для серверных рабочих станций. В конце 2001 года выпуск Blackcomb запланировали на 2005 год, а в августе 2002 года было объявлено о том, что промежуточной версией станет WindowsLonghorn, которая будет обновлением ядра Windows NT 5.x. В течение разработки WindowsLonghorn в неё были добавлены некоторые функции Blackcomb и присвоен номер 6.0. Blackcomb была окружена неразберихой, связанной с некоторыми сообщениями о том, что планы по маркетингу были сильно пересмотрены и что она должна быть серверной ОС Windows 6.x, но с улучшениями.

В январе 2006 года Microsoft объявила, что новой клиентской ОС будет Vienna, выход которой был запланирован на 2010 год.

В марте 2006 года стало известно, что наследницей WindowsVista будет Fiji, выход которой был запланирован на 2008 год. В 2008 году, в результате жалоб фиджийцев на то, что новая ОС будет носить имя их страны, стали известны новые сведения о Fiji. По словам фиджийцев, Бен Грин сказал, что в Fiji будут добавлены новые телевизионные форматы, поддержка интерактивных служб и улучшения пользовательского интерфейса для WindowsMediaCenter. Вполне вероятно, во включённую в состав Windows 7 программу WindowsMediaCenter уже добавлены изменения, которые должны были быть в Fiji.



3. Проектирование задачи

3.1 Требования к приложению

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

- целостность данных требования полноты и непротиворечивости данных;

- многократное использование данных;

- накладываемые ограничения.

3.2 Концептуальный прототип

Концептуальный прототип состоит из описания внешнего пользовательского интерфейса - системы меню и элементов управления. Кнопочная навигация дублирует часто используемые пункты основного меню.

При создании приложения важную роль играют формы, которые являются основным диалоговым средством работы пользователя. Разрабатываемое приложение будет многооконным. Структура главного меню представлена в таблице 1.

Таблица 1 - Структура главного меню

Уровень	Название	Действие
1	Файл	Вызов меню второго уровня
2	Выход	Завершение работы программы
2	Окно авторизации	Переход на окно авторизации
2	Окно регистрации	Переход на окно регистрации
1	Печать	Вывод окна результатов на печать
1	Справка	Вызов меню второго уровня



3.3 Организация данных

Разработанная программа будет иметь структуру, представленную в таблицах 2- 5

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

Таблица 2 - Элементы управления и визуализации

Размещение	Элемент экрана	Класс	Действие
Главное меню	«edt1Login»	TEdit	Вводятся данные для контроля
	«edt1Password»	TEdit	Вводятся данные для контроля
	«btn1Zareg»	TBitBtn	Выполняется действиe
	«btn1Back»	TBitBtn	Выполняется действиe

Таблица 3 - Элементы управления и визуализации

Размещение	Элемент экрана	Класс	Действие
Главное меню	«edt1Login»	TEdit	Вводятся данные для контроля
	«edt1Password»	TEdit	Вводятся данные для контроля
	«btn1Zareg»	TBitBtn	Выполняется действиe
	«btn1Back»	TBitBtn	Выполняется действиe
	«Img1»	TImage	Отображается графическое изображение
	«btn1Spravka»	TBitBtn	Выполняется действиe

Таблица 4 - Элементы управления и визуализации

Размещение	Элемент экрана	Класс	Действие
Теория	«mmo1»	Tmemo	Вывод на экран результат
	«btn3Exit»	TbitBtn	Выполняется действие
	«btn1Back»	TBitBtn	Выполняется действиe

Таблица 5 - Элементы управления и визуализации

Размещение	Элемент экрана	Класс	Действие
Окно вывода оценок	«mmo1»	Tmemo	Вывод на экран результат
	«btn1Prosmotr»	TbitBtn	Выполняется действие
	«btn2Spravka»	TbitBtn	Выполняется действие
	«btn3Exit»	TbitBtn	Выполняется действие
	«mm1»	TMainMenu	Меню
	«mntmN2Okno»	TMenuItem	Выполняется действиe
	«mntmN3Okno»	TMenuItem	Выполняется действиe
	«mntmN4»	TMenuItem	Выполняется действиe
	«mntmN5»	TMenuItem	Выполняется действиe
	«mntmN6Spravk»	TMenuItem	Выполняется действиe
	«mntmN2Printer»	TMenuItem	Выполняется действиe

3.4 Функции: логическая и физическая организация и элементы управления

Рассмотрим функцию создания текстового файла для записи данных.

procedure TForm4.BitBtn1DelClick(Sender: TObject);

Var

ff:textfile;

begin

mmo1.Clear;//очисткаmmo1

DeleteFile('f.txt');//удаление содержимого из f.txt

AssignFile(ff,'f.txt');//открываем файл f.txt

rewrite(ff);// перезаписываем

closefile(ff) ;//закрываем этот файл

end;

3.5 Проектирование справочной системы приложения

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



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

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

Данная программа предназначена для тестирования учащихся на хорошее знание по истории РБ. Она имеет ограниченный доступ и подразделение на пользователя и администратора. Инсталляция данного программного средства легка и понятна.

Поскольку программный продукт функционирует в среде Windows, на ПК должны быть установлены следующие библиотеки: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, DBTables, Grids, DBGrids, Menus, ExtCtrls, ComCtrls, ImgList,Buttons, sSpeedButton, sColorSelect, acDBGrid, sLabel, sPanel,sMonthCalendar.

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

Главным назначением программы является тестирование и обработка результатов. В программном продукте «Тест по истории Беларуси .exe» реализованы функции, которые были определены на этапе объектно-ориентированного программирования и анализа, то есть выбор, добавление, удаление и обработка данных и так далее. В данном программном средстве предусмотрена защита, путём ввода логина и пароля а также регистрации пользователя. Сетевая поддержка не предусмотрена.

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

Входными данными являются данные, поступающие при заполнении пользователем форм, или вводимым в процессе выполнения. Структура данных приведена ниже в виде таблицы 6.



Таблица 6 - Структура входных данных

Входные данные	Тип данных	Размер, байт	Описание
ФИО	String	256	Общие сведения(ФИО)
Логин	Byte	-	Логин для входа в программу
Пароль	Byte	-	Пароль для входа в программу
Ответы	String	256	Ответы к тесту

4.4 Постоянные данные

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

Таблица 7 - Структура постоянных данных

Постоянные данные	Тип данных	Размер, байт	Описание
Тест	String	256	Вопросы теста

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

Выходными данными являются данные, поступающие при заполнении пользователем форм, или вводимым в процессе выполнения. Структура данных приведена ниже в виде таблицы 8.

Таблица 8 - Структура выходных данных

Постоянные данные	Тип данных	Размер, байт	Описание
Текст	String	256	Оповещение о завершении теста
Результат	Byte	-	Оценка за тестирование



5. Методика испытаний

5.1 Технические требования

Для полноценного функционирования разработанного программного продукта, качественного выполнения всех поставленных задач, требуется ПК следующей конфигурации:

- процессорAMD/Intel 2000 Гц +;

- оперативная память32 Мб +;

- дисковой накопитель50 Кб для хранения архива, 200 Кб для распаковки;

- операционная система OSWindowsXP +.

5.2 Порядок проведения испытаний

5.2.1 Функциональное тестирование

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



Рисунок 1-(Главная форма программы)

Процедура формы рисунка 1

procedure TForm1.BitBtn1Click(Sender: TObject);

var f:textFile;

begin

AssignFile(f,'f.txt');

append(f);

Write(f, surname.Text+ ' '+ name.text+ ' '+MiddleName.text+ ', ');

CloseFile(f);

Form4.show;

end;

5.2.2 Полное тестирование

Полное тестирование выполняется после успешного завершения функционального тестирования, продемонстрировавшего корректное выполнение всех функций, определенных на этапе проектирования.

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

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

Рисунок 2-(Главная форма программы)

В главном (Рисунок 2)окне программы представлены поля для ввода информации о себе. В последствии прохождения теста, вся заполненная информация будет видна администратору в его специальном диалоговом окне. Однако в программе тестирования предусмотрено анонимное прохождение теста. Для этого можно просто не заполнять поля информации и просто нажать кнопку далее.



Рисунок 3 (вход администратора)

Если же администратору или преподавателю требуется проверить результаты теста, то для этого нужно ввести пароль администратора (Рисунок 3).

Рисунок 4 (База данных)



На данном окне представлена вся информация о когда то проходивших тестирования учениках(Рисунок 4). Это окно могут увидеть только администраторы. Для пользователей эта информация недоступна

Рисунок 5 (Тестирование)

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



Рисунок 6 - (теория)

На Рисунке 6 представлено теория о всем школьном курсе Истории Беларуси



6. Применение

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

Программное средство «Тест по истории Беларуси» предназначен для тестирования учащихся по предмету История Беларуси по разным темам с целью выявления ошибок и подсчета оценки. Данное программное средство будет востребована в образовательных учреждениях.

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

6.2 Условия применения

К техническим требования для использования данного программного ресурса относятся наличие всех модулей и установленных библиотек представленных к программе. Следующие библиотеки:Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, DBTables, Grids, DBGrids, Menus, ExtCtrls, ComCtrls, ImgList,Buttons, sSpeedButton, sColorSelect, acDBGrid, sLabel, sPanel, sMonthCalendar.

6.3 Справочная система

Справка состоит из множества подпунктов и разделов где пошагово указано методы использования программы. Справка начинается с окна приветствия (Рисунок 7).



Рисунок 7

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

Рисунок 8



Прохождение теста и начало регистрации по порядку представлены в справке для помощи в использовании программного средства «Тест по Истории Беларуси» (Рисунок 9)

Рисунок 9



Заключение

В заключении к проделанной работе указывается недостатки и преимущество программного средства разработанного на базе Тестирующая программа по истории Беларуси. Данное программное средство является очень полезным в образовательной сфере для всех образовательных институтов и учреждений. Преимущество данного программного средства можно описать универсальностью использования на базе знаний учеников образовательных учреждений. Простотой использования и эффективным способом проверки знаний о предмете «История Беларуси». Недостатком данного программного средства является узкая направленность.



Литература

1 Багласова Т.Г. Методические указания по оформлению курсовых и дипломных работ. -Мн.: ТБП, 2006

2 Культин Н.Б. Программирование в Turbo Pascal и Delphi. 2-ое изд. переработанное и дополненное. - С-Пб: БХВ-Петербург, 2008

3 Леонтьев В.П. Новейшая энциклопедия персонального компьютера. - М.: ОЛМА-ПРЕСС, 2002

4 Фаронов В.В. Delphi. Программирование на языке высокого уровня. - С-Пб: Питер, 2005

5 ГОСТ 2.106-96. ЕСКД. Текстовые документы

6 ГОСТ 19.401-2000. ЕСПД. Текст программы

7 ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем



Приложения

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, ADODB, Menus, ImgList;

type

TForm1 = class(TForm)

Surname: TEdit;

Name: TEdit;

MiddleName: TEdit;

Klass: TEdit;

Date: TEdit;

BitBtn: TBitBtn;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

BitBtn5: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

procedure BitBtnClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.BitBtnClick(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var f:textFile;

begin

AssignFile(f,'f.txt');

append(f);

Write(f, surname.Text+ ' '+ name.text+ ' '+MiddleName.text+ ', ');

CloseFile(f);

Form4.show;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

winexec('hh newproject.chm', sw_restore);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

winexec('hh newproject.chm', sw_restore);

end;

procedure TForm1.N7Click(Sender: TObject);

begin

winexec('hh newproject.chm', sw_restore);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.Print;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=VK_F1 then

N7.Click;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

keypreview:=true;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

BitBtn: TBitBtn;

BitBtn1: TBitBtn;

Label5: TLabel;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure BitBtnClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

i,p: integer;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.BitBtnClick(Sender: TObject);

begin

Form1.show;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Label5.Visible:= True;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, jpeg;

type

TForm3 = class(TForm)

ButtonNazat: TButton;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Image1: TImage;

Memo1: TMemo;

Button1: TButton;

procedure ButtonNazatClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.ButtonNazatClick(Sender: TObject);

begin

Form1.show;

Form3.Close;

end;

procedure TForm3.Button1Click(Sender: TObject);

var f:TextFile;

s:string;

begin

AssignFile(f,'f.txt');

reset(f);

Read(f,s);

Memo1.Text:=s;

CloseFile(f);

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm4 = class(TForm)

BitBtn: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image1: TImage;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtnClick(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm4.BitBtnClick(Sender: TObject);

begin

form7.show;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

Form1.Show;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, IniFiles, Buttons, jpeg;

type

TForm6 = class(TForm)

RadioButtonFirst: TRadioButton;

RadioButtonSecond: TRadioButton;

RadioButtonThird: TRadioButton;

RadioButtonFourth: TRadioButton;

RadioButtonFifth: TRadioButton;

RadioButtonSixth: TRadioButton;

RadioButtoSeventh: TRadioButton;

RadioButtonEighth: TRadioButton;

RadioButtonNinth: TRadioButton;

RadioButtonTenth: TRadioButton;

RadioButtonEleventh: TRadioButton;

MemoQuest: TMemo;

RadioButtonQuest1: TRadioButton;

RadioButtonQuest2: TRadioButton;

BitBtn: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

Image1: TImage;

procedure BitBtnClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

Quests:TIniFile;

InterTextQuest, InterQuestTrue, InterQuestFalse, NumberTest:Integer;

AnswerStr, AnswerUserStr:string ;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm6.BitBtnClick(Sender: TObject);

begin

InterQuestTrue:=0;

InterQuestFalse:=0;

InterTextQuest:=1;

if RadioButtonFirst.Checked=true then

begin

NumberTest:=1;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest),;

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer', '));

end

else

begin

NumberTest:=2;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end;

if RadioButtonThird.Checked=true then

begin

NumberTest:=3;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonFourth.Checked=true then

begin

NumberTest:=4;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonFifth.Checked=true then

begin

NumberTest:=5;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonSixth.Checked=true then

begin

NumberTest:=6;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

else

if RadioButtoSeventh.Checked=true then

begin

NumberTest:=7;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonEighth.Checked=true then

begin

NumberTest:=8;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonNinth.Checked=true then

begin

NumberTest:=9;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonTenth.Checked=true then

begin

NumberTest:=10;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

if RadioButtonEleventh.Checked=true then

begin

NumberTest:=11;

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

end

else

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

var f:TextFile;

begin

case RadioButtonQuest1.Checked of

true:begin AnswerUserStr:='A'; end;

false:begin AnswerUserStr:='B'; end;

end;

if AnswerStr = AnswerUserStr then

begin

Inc(InterQuestTrue);

end

else

Inc(InterQuestFalse);

Inc(InterTextQuest);

MemoQuest.Lines.Clear;

Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest'+IntToStr(NumberTest)+'.ini');

MemoQuest.Lines.Add(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Quest',!'));

AnswerStr:=(Quests.ReadString('Quest'+IntToStr(InterTextQuest), 'Answer',!'));

if MemoQuest.Lines[0]='Поздравляю, вы закончили тест!' then

begin

application.MessageBox

assignFile(f,'f.txt');

append(f);

write(f,'Оценка ' +intToStr(InterQuestTrue));

closeFile(f);

end;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

Form4.Show;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, jpeg, Buttons,IniFiles;

type

TForm7 = class(TForm)

Memo: TMemo;

BitBtn: TBitBtn;

Image1: TImage;

Button1: TButton;

procedure BitBtnClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Quests:TIniFile;

InterTextQuest, InterQuestTrue, InterQuestFalse, NumberTest:Integer;

AnswerStr, AnswerUserStr:string ;

s:string;

quest:textfile;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.BitBtnClick(Sender: TObject);

begin

Form4.show;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

memo.lines.LoadFromFile('./1.txt');

end;

end.



Приложение Б



Схема работы ПС

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