Тест ПДД

Любое другое значение приведен к необходимости повторного выбора.
Далее следует оператор выбора case по переменной mode.
В ветви mode=1 находится цикл while (до конца файла), внутри которого считываются из файла и выводятся на экран вопросы теста и варианты ответов. Также в переменную answer0 из файла считывается номер правильного ответа. Для вывода вариантов ответов также используется цикл while (до пустой строки в файле). Номер ответа, выбранного пользователем считывается в переменную answer, а затем сравнивается с содержимым переменной answer0. Если ответы совпали, то выводится сообщение «OK!», иначе – сообщение, содержащее слово «NO!» и номер правильного ответа.
В конце работы внешнего цикла while файл TestDOS.txt закрывается и снова открывается.
В ветви mode=2 оператор выбора case также находится цикл while (до конца файла), внутри которого осуществляются те же операции, с той лишь разницей, что после каждого ответа пользователя не выводится никаких сообщений, а подсчитывается количество ошибок (в переменной errors), а в конце работы этого цикла не только закрывается файл TestDOS.txt, но и выводится результат теста в виде количества ошибок (errors), относительного количества ошибок (error_p:=errors/n*100) и сообщения «Sorry, you don't sit the test.» или «Congratulation! You sit the test!» в зависимости от того, превысил процент ошибок максимально возможное значение (Max_Errors=10) или нет.
Когда пользователь выберет режим работы mode=0, программа закроет файл TestDOS.txt и завершит работу.

2.5. Функциональное тестирование задачи

Функциональная схема программы «Тест ПДД» представлена в п. 4.2.
Функциональное тестирование в данном случае предполагает «прогон» программы во всех возможных режимах работы и контроль правильности выполнения заложенных в неё функций в каждом из них.
Указанное тестирование программы было проделано для двух режимов работы: «Тренировка» и «Тест». При этом использовался сокращённый набор вопросов в тесте с заранее известными ответами.
В обоих режимах программа запускалась по три раза. При первом запуске давались все правильные ответы, при втором – все неправильные, при третьем – вперемешку.
Содержимое экрана компьютера для режима работы программы «Тренировка» при первом запуске представлено на рис. 2, при втором – на рис. 3, при третьем – на рис. 4.



Рис. 2


Рис. 3


Рис. 4

Содержимое экрана компьютера для режима работы программы «Тест» при первом запуске представлено на рис. 5, при втором – на рис. 6, при третьем – на рис. 7.

Рис. 5


Рис. 6

Рис. 7

Кроме того, была проверена корректность работы программы с внешним файлом TestDOS.txt (строки файла TestWin.txt отображались на экране некорректно), а также – корректность выхода из программы при выборе режима работы «Выход».
Все проверки дали положительный результат.
Тестирование проводилось на компьютере с процессором Pentium 4, работающим под управлением операционной системы Windows XP.

2.6. Заключение

В процессе работы над данным курсовым проектом в среде Turbo Pascal 7.0 была создана, отлажена и протестирована программа, позволяющая в автоматическом режиме без участия человека (тестирующего) проводить тестирование знаний правил дорожного движения. Кроме того, данная программа имеет возможность обучения человека данным правилам. Также была разработана структура тестов в виде структурированного текстового файла, позволяющая удобно добавлять и редактировать их содержание.
Основной сложностью при выполнении данной задачи оказалась необходимость продумывания всех частей и этапов решения прежде, чем приступить к практической реализации. Нужно было чётко проработать структуру программы, структуру тестов и т.п. После прохождения данного этапа, практическая часть (заполнение тестов, написание программы, её отладка и тестирование) затруднений не вызвала.
3. Расчётно-экспериментальный раздел

Ниже представлен текст программы «Тест ПДД», написанной на языке Turbo Pascal 7.0:

PROGRAM TestPDD;
CONST Max_Errors=10; { maximum errors in percent }
VAR f: Text;
s: string;
mode, answer0, answer, i, n, errors: integer;
error_p: real;
BEGIN
Writeln;
Writeln('/////////////////////////////////////');
Writeln('/// WELCOME TO TEST PDD PROGRAM ! ///');
Writeln('/////////////////////////////////////');
Writeln;
Assign(f,'TestDOS.txt');
Reset(f);

Repeat
Writeln('/////////////////////////////////////');
Writeln('Please, select the operation mode:');
Writeln('1 - Training');
Writeln('2 - Test');
Writeln('0 - Exit');
Writeln('/////////////////////////////////////');
Readln(mode);

case mode of
1: { Training }
begin
n:=0;
while not EoF(f) do begin
Writeln('-----------------------------------');
Readln(f,s);
n:=n+1;
Writeln(' ',n,' question:');
Writeln(s);
Readln(f,answer0);
Readln(f,s);
i:=0;
while s<>'' do begin
i:=i+1;
Writeln(i,' - ',s);
Readln(f,s);
end; { while s<>'' }
Writeln('-----------------------------------');
Readln(answer);
if answer=answer0 then Writeln('OK!')
else Writeln('NO! - ',answer0);
Readln;
end; { while not EoF(f) }
Close(f); Reset(f);
end; { case 1 }

2: { Test }
begin
n:=0; errors:=0;
while not EoF(f) do begin
Writeln('-----------------------------------');
Readln(f,s);
n:=n+1;
Writeln(' ',n,' question:');
Writeln(s);
Readln(f,answer0);
Readln(f,s);
i:=0;
while s<>'' do begin
i:=i+1;
Writeln(i,' - ',s);
Readln(f,s);
end; { while s<>'' }
Writeln('-----------------------------------');
Readln(answer);
if answer<>answer0 then errors:=errors+1;
end; { while not EoF(f) }
Close(f); Reset(f);
error_p:=errors/n*100;
Writeln('Number of errors: ',errors,' (',error_p:2:2,'%)');
Writeln;
if error_p>Max_Errors
then Writeln('Sorry, you don''t sit the test.')
else Writeln('Congratulation! You sit the test!');
Readln;
end; { case 2 }
end; { case om }

Until mode=0;

Close(f);
END.
4. Графический раздел

4.1. Схема алгоритма

4.2. Схема функциональная


Литература

Зуев Е.А. Язык программирования Turbo Pascal 6.0, 7.0. – М., Веста, 1993.
Васюкова Н.Д., Тюляева В.Б. Практикум по основам программирования (язык Паскаль). – М., ВШ, 1991.
Громоковский Г.Б., Бачманов С.Г., Репин Я.С. Экзаменационные билеты для приёма теоретических экзаменов на право управления транспортными средствами категорий «А» и «В». – М., Рецепт-Холдинг, 2005.











29