Составим алгоритм приложения, который представлен в приложении на рисунке A.1. На алгоритме приведены основные события экранных форм. В этом алгоритме:

Блок №4 реализован процедурой FormAvto, BitBtnStartClick,

блок №5 – процедурой FormTest. FormCreate,

блок №6 – процедурой FormTest. FormActivate,

блок №7 – процедурой FormTest BNewTestClick,

блок №8 реализован процедурой FormTest. BitBtn1Click.

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

3. Описание программных модулей

3.1 Описание переменных и объектов

В программе используется переменная FormAvto, которая представляет собой экранную форму. Объекты экранной формы были приведены в таблице 2.1. У формы имеется лишь один обработчик нажатия на кнопку BitBtnStart. Текст обработчика приведен в строках 26–32 листинга из приложения Б. В теле обработчика происходит считывание введенных имени и фамилии учащегося и его группы в переменные, после чего исходная форма скрывается и активизируется форма тестирования.

Переменная FormTest, представляет собой экранную форму, объекты которой приведены в таблице 2.2.

В разделе var опишем переменные, приведенные в таблице 3.1

Таблица 3.1 – Переменные программы

Наименование	Тип	Назначение
SFam, SGr	String	хранение фамилии и группы учащегося
fName	String	имя текстового файла для записи протокола
f	TextFile	переменная для работы с текстовым файлом
BasaV	CVoprosi	класс, хранящий базу вопросов и ответы
CurN	byte	номер текущего вопроса из базы
Ratio	byte	количество правильных ответов

Для хранения базы вопросов разработаем пользовательский класс CVoprosi. В классе содержится одно поле и два метода. Поле test – это динамический массив, в котором хранятся вопросы и ответы. При это каждый тест храниться в виде записи типа TTest со следующими полями:

• Vopr: string – содержит вопрос теста;

• ans: array [0..3] of string – содержит 4 варианта ответов;

• korans: byte – содержит вариант правильного ответа (его номер в массиве ans).

Для формирования базы ответов создан метод AddTest (_vopr, _ans0, _ans1, _ans2, _ans3:string; _korans:byte), которому в качестве параметров передаются вопрос, четыре варианта ответов и номер правильного ответа, а в теле метода происходит увеличение длины массива с тестами на единицу и текущий тест записывается в конец массива.

Второй метод класса CVoprosi. Mix предназначен для перемешивания базы вопросов. В нём организован цикл, в теле которого генерируются два произвольных числа i1 и i2 в интервале от 0 до количества вопросов в базе каждое. После чего вопросы с номерами i1 и i2 меняются местами.

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

Таблица 3.2. Пользовательские процедуры и обработчики событий

Наименование	Обр-к	Назначение	Строки
BitBtnStartClick	+	переход на форму тестов после нажатия «НАЧАТЬ»	26–32
FormCreate	+	формирование базы вопросов при создании фомры тестирования	108–156
FormActivate	+	инициализация тестирования (перемешивание, сброс количества ответов и номера текущего вопроса, вывод первого вопроса) при активизации формы тестирования	157–182
BitBtn1Click	+	анализ введенного ответа и вывод очередного вопроса или итоговой оценки	183–228
BNewTestClick	+	закрытие формы тестов и переход на форму авторизации при нажатии на «Начать заново»	229–235
AddTest		добавление нового теста в базу	78–90
Mix		перемешивание базы тестов случайным образом	91–107

3.2 Описание процедуры BitBtn1Click

Процедура BitBtn1Click предназначена для анализа ответа и вывода очередного вопроса или итоговой оценки. Алгоритм выполнения процедуры приведен на рисунке А.2 приложения А.

В теле процедуры выполняются следующие действия: Если текущий номер вопроса меньше общего количества вопросов, то формируется строка S c вопросом и выбранным ответом и записывается в файл протоколов f. Сравнивается выбранный номер ответа (RGroup1. ItemIndex) с номером правильного ответа (BasaV.test[curN].Korans) и, если он совпадает, то наращивается количество правильных ответов Ratio. Наращивается номер текущего вопроса curN. И очередной вопрос с вариантами ответов выводится на форму.

Если все вопросы были заданы (curN равно количеству вопросов), то рассчитывается итоговая оценка как (Ratio*12)/(общее количество вопросов) и записывается в файл протокола, а также выводится сообщение в виде диалогового окна с оценкой. Также становится видимой кнопка BNewtest c надписью «Начать заново», позволяющая перейти на форму авторизации. Во избежание подбора ответов выводится только последняя итоговая оценка без указания в каких вопросах были сделаны ошибки.

4. Инструкция оператору

Разработанная программа представляет собой исполняемый файл Tester.exe размером 422912 байт. В программе выполняется тестирование пользователя основам языка Pascal.

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

Рисунок 4.1 – Окно авторизации

В этом окне учащийся должен задать свою фамилию и группу, после чего нажать на кнопку с надписью «НАЧАТЬ». После этого появится вторая форма с тестовыми вопросами, изображенная на рисунке 4.2. Заметим, что порядок вопросов при каждом новом запуске случайный, поэтому содержание поля вопроса и ответом может быть иным.

Рисунок 4.2 – Окно тестирования

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

После этого следует нажать на кнопку .

Появится новый вопрос, ответ на который реализуется аналогичным способом. Если были пройдены все вопросы, выводится сообщение с оценкой, которая пропорциональна количеству правильных ответов. Все ответы правильные – оценка равна 12. Все ответы неправильные – оценка равна 0. Пример окна с сообщением об оценке приведено на рисунке 4.3.

Рисунок 4.3

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

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

Выводы

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде DELPHI 7.0. В ходе выполнения курсовой работы была разработана программа для тестирования студентов по программированию с графическим интерфейсом. База содержит 20 вопросов по основам языка Pascal. Программа может бать использована в образовательных целях.

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

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

Перечень ссылок

1. Валентин Озеров «Советы по Delphi», 1999

2. Зуев Е.А. Программирование на языке Turbo Pascal 6. 0,7.0. – М.: Радио и связь, Веста, 1993.

3. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. – М.: Нолидж, 2000.

4. Фаронов В.В. «DELPHI. Программирование на языке высокого уровня». – Питер, 2005.

5. Дятченко Д.А. Методические указания к выполнению курсовой работы по дисциплине «Программирование и алгоритмическе языки» – Северодонецк, 2005.

Приложение А

Алгоритм программы

Рисунок А.1 – Обработка событий экранных форм программы

Рисунок А.2 – Алгоритм процедуры BitBtn1Click

Приложение Б

Модуль формы авторизации

1. unit Unit2;

2. interface

3. uses

4. Windows, Messages, SysUtils, Variants, Classes, Graphics,

5. Controls, Forms, Dialogs, StdCtrls, Buttons;

6. type

7. TFormAvto = class(TForm)

8. Label1: TLabel;

9. Label2: TLabel;

10. Label3: TLabel;

11. EFam: TEdit;

12. EGroup: TEdit;

13. BitBtnStart: TBitBtn;

14. procedure BitBtnStartClick (Sender: TObject);

15. private

16. {Private declarations}

17. public

18. {Public declarations}

19. end;

20. var

21. FormAvto: TFormAvto;

23. implementation

24. uses Unit1;

25. {$R *.dfm}

26. procedure TFormAvto. BitBtnStartClick (Sender: TObject);

27. begin

28. SFam:=EFam. Text+ ' ';

29. SGr:=EGroup. Text;

30. hide;

31. FormTest. Show;

32. end;

33. end.

34. Модуль формы тестирования

35. unit Unit1;

36. interface

37. uses

38. Windows, Messages, SysUtils, Variants, Classes, Graphics,

39. Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;

40. type

41. TFormTest = class(TForm)

42. BitBtn1: TBitBtn;

43. Label1: TLabel;

44. LbNom: TLabel;

45. StaticText1: TStaticText;

46. RGroup1: TRadioGroup;

47. BNewTest: TButton;

48. procedure FormCreate (Sender: TObject);

49. procedure BitBtn1Click (Sender: TObject);

50. procedure BNewTestClick (Sender: TObject);

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

52. procedure FormActivate (Sender: TObject);

53. private

54. {Private declarations}

55. public

56. {Public declarations}

57. end;

58. TTest = record

59. vopr:string; // вопрос

60. ans:array [0..3] of string; // ответы

61. korans:byte; // номер правильного ответа

62. end;

63. CVoprosi = class

64. test: array of TTest;

65. procedure AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string;_korans:byte);

66. procedure Mix;

67. end;

68. var

69. SFam, Sgr:string; // фамилия и группа учащегося

70. fName:string;

71. f: TEXTFILE;

72. FormTest: TFormTest;

73. BasaV:CVoprosi;

74. CurN:byte; // номер текущего вопроса

75. Ratio:byte; // количество правильных ответов

76. implementation

77. uses Unit2;

78. {$R *.dfm}

79.  // метод для добавления нового теста в базу

80. Procedure CVoprosi. AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string; _korans:byte);

81. var ln:integer;

82. begin

83. ln:=Length(test);

84. SetLength (test, ln+1);

85. test[ln].vopr:= _vopr;

86. test[ln].ans[0]:= _ans0;

87. test[ln].ans[1]:= _ans1;

88. test[ln].ans[2]:= _ans2;

89. test[ln].ans[3]:= _ans3;

90. test[ln].korans:= _korans;

91. end;

92.  // перемешивание базы вопросов

93. Procedure CVoprosi. Mix;

94. var

95. i, i1, i2, ln:byte;

96. TestTmp:TTest;

97. begin

98. ln:=Length(test);

99. for i:=1 to 20 do

100. begin

101. i1:=Random(ln); // случайный №1

102. i2:=Random(ln); // случайный №2

103.  // меняем местами вопросы №1 и №2

104. TestTmp:=test[i1];

105. test[i1]:=test[i2];

106. test[i2]:=TestTmp;

107. end;

108. end;

109. procedure TFormTest. FormCreate (Sender: TObject);

110. begin

111.  // формирование базы вопросов

112. BasaV:=CVoprosi. Create;

113. BasaV. AddTest ('Что выведет следующая программа?'+#10+#13+'var i, sum:sіnglе;'+#10+#13+

114. 'bеgin'+#10+'sum:=1;'+#10+

115. ' for і:=2 to 10 dо sum:=sum+i;'+#10+

116. ' WrіtеLn(sum);'+#10+'еnd.',

117. '10', '55', '9', 'произойдет ошибка компиляции', 3);

118. BasaV. AddTest ('Какое значение вернет выражение?'+#10+' chr (ord(«A»)+3)',

119. 'A3', '68', ' «D» ', ' «C» ', 2);

120. BasaV. AddTest ('С чего не может начинаться идентификатор?',

121. 'с малой латинской буквы', 'с большой латинской буквы', 'с подчеркивания', 'с цифры', 3);

122. BasaV. AddTest ('Что из нижеперечисленного может быть использовано как идентификатор?',

123. 'ord', 'for1', 'cardinal', 'C#21', 1);

124. BasaV. AddTest ('Какой из приведенных типов целочисленный?',

125. 'real', 'byte', 'double', 'single', 1);

126. BasaV. AddTest ('Какой из приведенных типов можно использовать для хранения дробных чисел?',

127. 'byte', 'word', 'double', 'integer', 2);

128. BasaV. AddTest ('Какая из приведенных инструкций является циклом с заданным числом повторений?',

129. 'while do ', 'for do ', 'repeat until ', 'if <> then ', 1);

130. BasaV. AddTest ('Какая из приведенных инструкций является циклом с предусловием?',

131. 'for do ', 'while do ', 'repeat until ', 'if <> then ', 1);

132. BasaV. AddTest ('Какая из приведенных инструкций является циклом с постусловием?',

133. 'for do ', 'while do ', 'repeat until ', 'if <> then ', 2);

134. BasaV. AddTest ('Какая из приведенных инструкций является инструкцией ветвления?',

135. 'for do ', 'while do ', 'repeat until ', 'if <> then ', 3);

136. BasaV. AddTest ('Какая из приведенных инструкций целочисленного деления?',

137. 'MOD', 'DIV', '/', 'ODD', 1);

138. BasaV. AddTest ('Какая из приведенных инструкций – остаток от деления?',

139. 'MOD', 'DIV', '/', 'ODD', 0);

140. BasaV. AddTest ('Какая из приведенных инструкций вещественного деления?',

141. 'MOD', 'DIV', '/', 'ODD', 2);

142. BasaV. AddTest ('Какая из приведенных инструкций проверка на четность?',

143. 'MOD', 'DIV', '/', 'ODD', 3);

144. BasaV. AddTest ('Укажите функцию округления по правилам арифметики:',

145. 'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 2);

146. BasaV. AddTest ('Укажите функцию выделения дробной части числа:',

147. 'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 1);

148. BasaV. AddTest ('Укажите функцию округления к нулю с целочисленным результатом:',

149. 'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 0);

150. BasaV. AddTest ('Укажите функцию округления к нулю с вещественным результатом:',

151. 'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 3);

152. BasaV. AddTest ('Укажите функцию открытия существующего файла:',

153. 'ASSIGNFILE()', 'REWRITE()', 'RESET()', 'CLOSEFILE()', 2);

154. BasaV. AddTest ('Укажите функцию создания нового файла и открытия его для записи:',

155. 'ASSIGNFILE()', 'REWRITE()', 'RESET()', 'CLOSEFILE()', 1);

156. randomize;

157. end;

158.  // ***************************

159.  // активизация формы с тестами

160.  // ***************************

161. procedure TFormTest. FormActivate (Sender: TObject);

162. var ln:integer;

163. begin

164. fName:=SFam+' ('+SGr+')'+'.txt';

165. assignfile (f, fName);

166. rewrite(f);

167. BNewTest. Visible:=false;

168.  // перемешивание базы вопросов

169. BasaV. Mix;

170.  // количество правильных ответов

171. Ratio:=0;

172.  // текущий вопрос 0

173. curN:=0;

174.  // отображаем первый вопрос на форме

175. StaticText1. Caption:=BasaV.test[curN].vopr;

176. RGroup1. Items[0]:=BasaV.test[curN].ans[0];

177. RGroup1. Items[1]:=BasaV.test[curN].ans[1];

178. RGroup1. Items[2]:=BasaV.test[curN].ans[2];

179. RGroup1. Items[3]:=BasaV.test[curN].ans[3];

180. RGroup1. ItemIndex:=0;

181. Ln:=Length (BasaV.test);

182. LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);

183. end;

184.  // ***************************

185.  // обработчик нажатия на кнопку «Принять ответ»

186.  // ***************************

187. procedure TFormTest. BitBtn1Click (Sender: TObject);

188. var

189. sRes, S:string;

190. ln:byte;

191. begin

192.  // проверка ответа

193. Ln:=Length (BasaV.test);

194. if (CurN

195. begin

196.  // записываем лог ответов в файл

197. S:= BasaV.test[curN].vopr + ' (ответил: – '+

198. BasaV.test[curN].ans [RGroup1. ItemIndex]+')';

199. writeln (f, S);

200.  // проверяем, правильно ли был сделан ответ

201. if (RGroup1. ItemIndex = BasaV.test[curN].Korans) then

202. Ratio:= Ratio +1;

203. CurN:=CurN+1;

204. if CurN=ln then // была последняя запись

205. begin

206.  // сообщение с результатом

207. sRes:= 'Итоговая оценка: '+FloatToStr (Ratio*12/ln);

208.  // запись результа в файл

209. writeln (f, Sfam+Sgr);

210. writeln (f, sRes);

211. CloseFile(f);

212. end;

213. end;

214. if CurN>=ln then

215. begin

216. sRes:= 'Итоговая оценка: '+FloatToStr (Ratio*12/ln);

217. Application. MessageBox (PAnsiChar(sRes), PAnsiChar (SFam+Sgr));

218. BNewtest. Visible:=true;

219. exit;

220. end;

221.  // отображаем следующий вопрос на форме

222. StaticText1. Caption:=BasaV.test[curN].vopr;

223. RGroup1. Items[0]:=BasaV.test[curN].ans[0];

224. RGroup1. Items[1]:=BasaV.test[curN].ans[1];

225. RGroup1. Items[2]:=BasaV.test[curN].ans[2];

226. RGroup1. Items[3]:=BasaV.test[curN].ans[3];

227. RGroup1. ItemIndex:=0;

228. LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);

229. end;

230.  // ***************************

231.  // закрыте формы с тестами

232.  // ***************************

233. procedure TFormTest.BNewTestClick (Sender: TObject);

234. begin

235. Close;

236. end;

237.  // ***************************

238.  // активизация формы с авторизации

239.  // ***************************

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

241. begin

242. FormAvto. Show;

243. end;

245. end.

Приложение В

Моя программа выполняет тестирование студентов по программированию. При открытии программы появляется окно (рис В.1), тестирования в котором нужно вести Фамилию Имя и Группу. Тестирование состоит из 20 вопросов, в каждом вопросе четыре варианта ответа необходимо выбрать один правильный (рис В.2). В конце тестирования появляется окно в котором выводится бал за количество ответов по 12 бальной системе (рис В.3).

3. Рисунок В.1 – Окно авторизации

6. Рисунок В.2 – Внешний вид формы FormTest

9. Рисунок В.3 – Итог

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