Основная часть. 
Разработка тестирующей программы

Спецификация

Название задачи: Тестирование Название программы: Test.

Проект разработан в среде Delphi 7.

Cистемные требования Процессор: Intel ® Core™ i3−3120M CPU @ 2.50 GHz.

Место на HDD: 4 Gb.

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

Описание.

Логика — математическая модель:

.Пользователь при входе в программу должен указать свое имя для сохранения результатов и нажимает «загрузить тест». После того как он нажал эту кнопку он заходит в тест по техники безопасности на ПК. Как только пользователь прошел тест ему выводится сообщения о результатах пройденного теста. Также можно просмотреть данные о всех результатах.

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

• 1. Ввод ФИО.
• 2. Ввод группы.
• 3. Выбор ответов.

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

1. Результаты.

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

Ошибки.

Пример работы программы

Для работы программы запускается файл Test. exe .Появляется форма, где нужно ввести имя пользователя (см. рис. 1.), а затем нажать на кнопку «Продолжить», если выбираем «Отменить», то форма закрывается.

Рисунок 2.1- Форма пользователя Выбрав кнопку «Продолжить» откроется основная форма с вопросом и вариантами ответа (см рис. 2.).

Рисунок 2.2 — Основная форма Кнопка «Далее» перелистывает вопросы. По окончании теста выводится результат теста и сколько баллов вы набрали (см. рис. 3.).

Рисунок 2.3 — Результат Данные для тестирования.

1.Запустите программу нажав клавишу F9.

2. Введите ваше имя в поле.

3.Нажмите на кнопку «Продолжить».

Инструкция по работе с ПК.

• 1. Прочитать вопрос.
• 2. Выбрать ответ.
• 3. Нажать кнопку далее.
• 4. Повторить данную процедуру до окончания теста.

Листинг программного комплекса.

unit TestUnit;

interface.

uses.

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

Dialogs, StdCtrls, XPMan, Buttons, ExtCtrls, UserID;

type.

TForm1 = class (TForm).

RadioGroup1: TRadioGroup;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

Panel1: TPanel;

Label1: TLabel;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

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

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

balls: integer;

q_file, Log_File: TextFile;

five, four, three,.

ans1mark, ans2mark, ans3mark, ans4mark: integer;

question, answere1, answere2, answere3,.

answere4, tmp_q, result: string;

flag_end, flag_write: boolean;

implementation.

{$R *.dfm}.

procedure Read_next_q ();

var.

AYear, AMonth, ADay, Hour, Min, Sec, MSec: Word;

Data: string;

begin.

if EOF (q_file) then.

begin.

flag_end := true;

if balls>=five then.

result:='Отлично ('+IntToStr (balls)+' балла (ов))';

if (balls>=four)and (balls.

result:='Хорошо ('+IntToStr (balls)+' балла (ов))';

if (balls>=three)and (balls.

result:='удовлетворительно ('+IntToStr (balls)+' балла (ов))';

if balls.

result:='НЕУДОВЛЕТВОРИТЕЛЬНО ('+IntToStr (balls)+' балла (ов))'+#13#10+'Тест НЕ сдан!';

showmessage ('Вы сдали тест на '+#13#10+Result);

DecodeDate (Now, AYear, AMonth, ADay);

DecodeTime (Now, Hour, Min, Sec, MSec);

Data:=IntToStr (AYear)+'/'+IntToStr (AMonth)+'/'+IntToStr (ADay)+' '+IntToStr (Hour)+':'+IntToStr (Min)+':'+IntToStr (Sec)+' ';

writeln (Log_File, Data+Result+#13#10+#13#10);

closeFile (Log_File);

Form1.BitBtn1.Enabled:=false;

end.

else.

begin.

Readln (q_file, tmp_q);

question:=tmp_q+#13#10;

Readln (q_file, tmp_q);

question:=question+tmp_q+#13#10;

Readln (q_file, tmp_q);

question:=question+tmp_q+#13#10;

Readln (q_file, answere1);

Readln (q_file, ans1mark);

Readln (q_file, answere2);

Readln (q_file, ans2mark);

Readln (q_file, answere3);

Readln (q_file, ans3mark);

Readln (q_file, answere4);

Readln (q_file, ans4mark);

Form1.Label1.Caption:=question;

Form1.RadioGroup1.Items[0]: =answere1;

Form1.RadioGroup1.Items[1]: =answere2;

Form1.RadioGroup1.Items[2]: =answere3;

Form1.RadioGroup1.Items[3]: =answere4;

end;

end;

procedure check_ans ();

begin.

if (Form1.RadioGroup1.ItemIndex=0)and (flag_end=false) then.

balls:=balls+ans1mark;

if (Form1.RadioGroup1.ItemIndex=1)and (flag_end=false) then.

balls:=balls+ans2mark;

if (Form1.RadioGroup1.ItemIndex=2)and (flag_end=false) then.

balls:=balls+ans3mark;

if (Form1.RadioGroup1.ItemIndex=3)and (flag_end=false) then.

balls:=balls+ans4mark;

Form1.RadioGroup1.ItemIndex:=-1;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin.

Form1.Left:=Screen.Width+100;

Form1.Top:=Screen.Height+100;

flag_end:=false;

AssignFile (q_file, 'q.txt');

Reset (q_file);

Readln (q_file, five);

Readln (q_file, four);

Readln (q_file, three);

Read_next_q;

end;

procedure TForm1. BitBtn1Click (Sender: TObject);

begin.

if Form1. RadioGroup1.ItemIndex-1 then.

begin.

check_ans;

Read_next_q;

end.

else.

showmessage ('Выберите один из вариантов'+#13#10+'ответов и нажмите «Далее» !');

end;

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

begin.

Application.Terminate;

end;

end.

Протокол ошибок