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

Подобным образом происходит все тестирование до момента ответа пользователем на последний вопрос.

Затем ведется результирующий подсчет заработанного балла.

В ходе выполнения работы использовались следующие операции для условного перехода: case;

Вопросы задаются непосредственным выводом в компоненту Label1 определенного текста. Варианты ответа выводятся в компоненты RadioButton1, RadioButton2, RadioButton3 и RadioButton4. На основании выбора пользователя одной из компонент RadioButton и происходит оценка правильности ответа пользователя.

RadioButton1.Checked:=False/True;

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

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

4. ОПИСАНИЕ ВХОДНЫХ ДАННЫХ

Исходными данными для выполнения является набор вопросов по теме офисного приложения MS PowerPoint.

5. ОПИСАНИЕ ВЫХОДНЫХ ДАННЫХ

Выходными данными являются:

- сообщение о завершении тестирования;

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

6. ИНСТРУКЦИЯ ОПЕРАТОРУ

Разработанная программа представляет собой исполняемый файл sheik.exe размером 395 Кбайт. В программе реализован алгоритм знаний пользователя по приложению MS PowerPoint.

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

Рисунок 4.1 - Главное окно программы

После этого пользователь должен ввести свои Имя и Фамилию и нажать на кнопку "Начать". На рисунке 4.2 показан пример ввода.

Рисунок 4.2 - Пример ввода имени и фамилии

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

Рисунок 4.3- Пример вопроса в тестировании

Рисунок 4.4- Результат тестирования

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

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

ВЫВОДЫ

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

В ходе выполнения курсового проекта были проведен - анализ технического задания и постановка задачи проектирования.

Были выделены функции, которыми должна обладать разрабатываемая программа.

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

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

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

В ходе разработки программы были закреплены навыки работы:

- командами ввода-вывода как на экран, так и в текстовые файлы,

- использования процедур,

- команды обработки массивов,

- команды для реализации циклов с заданным числом повторений;

- команды проверки условий и реализации ветвлений.

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

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

1. Зуев Е.А. Программирование на языке Delphi 6.0,7.0. - М.: Радио и связь, Веста, 1993.

2. Фаронов В.В. Delphi 7.0. Начальный курс. - М.: Нолидж, 2000.

ПРИЛОЖЕНИЕ А

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

Рисунок А.1 - Алгоритм программы

ПРИЛОЖЕНИЕ Б

Листинг программы

1. unit Unit1;

2.

3. interface

4.

5. uses

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

7. Dialogs, StdCtrls;

8.

9. type

10. TForm1 = class(TForm)

11. Edit1: TEdit;

12. Label1: TLabel;

13. Button1: TButton;

14. RadioButton1: TRadioButton;

15. RadioButton2: TRadioButton;

16. RadioButton3: TRadioButton;

17. RadioButton4: TRadioButton;

18. procedure FormCreate(Sender: TObject);

19. procedure Button1Click(Sender: TObject);

20.

21. { Private declarations }

22. public

23. { Public declarations }

24. end;

25.

26. var

27. Form1: TForm1;

28. QNomber:integer;

29. ball:real;

30.

31. implementation

32.

33. {$R *.dfm}

34.

35. procedure TForm1.FormCreate(Sender: TObject);

36. begin

37. Label1.Caption:='Введите свое Имя и Фамилию';

38. Edit1.Text:='';

39. RadioButton1.Visible:=False;

40. RadioButton2.Visible:=False;

41. RadioButton3.Visible:=False;

42. RadioButton4.Visible:=False;

43. Button1.Caption:='Начать';

44. QNomber:=0;

45. ball:=0;

46. end;

47.

48. procedure TForm1.Button1Click(Sender: TObject);

49. var

50. QCheck:Boolean;

51. rezball:real;

52. rezint:integer;

53. begin

54. QCheck:=False;

55. f (RadioButton1.Checked=True)or(RadioButton2.Checked=True)or(RadioButton3.Checked=True)or(RadioButton4.Checked=True)then QCheck:=True;

56. case QNomber of

57. 0:begin

58. Label1.Caption:='Перечень пунктов главного меню содержит:';

59. Edit1.Visible:=False;

60. RadioButton1.Visible:=True;

61.

62. RadioButton1.Caption:='Испкавление, Редактирование, Компиляция';

63. RadioButton2.Visible:=True;

64. RadioButton2.Caption:='Рендеринг, Превью, Правка';

65. RadioButton3.Visible:=True;

66. RadioButton3.Caption:='Файл, Правка, Вставка';

67. RadioButton4.Visible:=True;

68. RadioButton4.Caption:='Отсчет, Компиляция, Рендеринг';

69. Button1.Caption:='Следующий вопрос';

70. inc(QNomber);

71. end;

72. 1:if QCheck=True then begin

73. if RadioButton3.Checked=True then ball:=ball+1;

74. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

75. Label1.Caption:='Меню "Файл" содержит пункты:';

76. RadioButton1.Caption:='Создать, Открыть, Сохранить';

77. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

78. RadioButton3.Caption:='Начать показ, Смена слайдов';

79. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

80. inc(QNomber);

81. end;

82. 2:if QCheck=True then begin

83. if RadioButton1.Checked=True then ball:=ball+1;

84. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

85. Label1.Caption:='Меню "Показ слайдов" содержит пункты:';

86. RadioButton1.Caption:='Создать, Открыть, Сохранить';

87. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

88. RadioButton3.Caption:='Начать показ, Смена слайдов';

89. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

90. inc(QNomber);

91. end;

92. 3:if QCheck=True then begin

93. if RadioButton3.Checked=True then ball:=ball+1;

94. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

95. Label1.Caption:='Меню "Правка" содержит пункты:';

96. RadioButton1.Caption:='Создать, Открыть, Сохранить';

97. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

98. RadioButton3.Caption:='Начать показ, Смена слайдов';

99. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

100. inc(QNomber);

101. end;

102. 4:if QCheck=True then begin

103. if RadioButton2.Checked=True then ball:=ball+1;

104. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

105. Label1.Caption:='Меню "Формат" содержит пункты:';

106. RadioButton1.Caption:='Создать, Открыть, Сохранить';

107. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

108. RadioButton3.Caption:='Начать показ, Смена слайдов';

109. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

110. inc(QNomber);

111. end;

112. 5:if QCheck=True then begin

113. if RadioButton4.Checked=True then ball:=ball+1;

114. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

115. Label1.Caption:='Панель "Рисование" содержит:';

116. RadioButton1.Caption:='Возможность добавления рисунка';

117. RadioButton2.Caption:='Добавление обьекта WordArt';

118. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

119. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

120. inc(QNomber);

121. end;

122. 6:if QCheck=True then begin

123. if RadioButton3.Checked=True then ball:=ball+1;

124. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

125. Label1.Caption:='Панель "Таблицы и границы" содержит:';

126. RadioButton1.Caption:='Возможность добавления рисунка';

127. RadioButton2.Caption:='Добавление обьекта WordArt';

128. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

129. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

130. inc(QNomber);

131. end;

132. 7:if QCheck=True then begin

133. if RadioButton4.Checked=True then ball:=ball+1;

134. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

135. Label1.Caption:='Панель "WordArt" содержит:';

136. RadioButton1.Caption:='Возможность добавления рисунка';

137. RadioButton2.Caption:='Добавление обьекта WordArt';

138. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

139. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

140. inc(QNomber);

141. end;

142. 8:if QCheck=True then begin

143. if RadioButton2.Checked=True then ball:=ball+1;

144. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

145. Label1.Caption:='Панель "Настройка изоюражения" содержит:';

146. RadioButton1.Caption:='Возможность добавления рисунка';

147. RadioButton2.Caption:='Добавление обьекта WordArt';

148. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

149. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

150. inc(QNomber);

151. end;

152. 9:if QCheck=True then begin

153. if RadioButton1.Checked=True then ball:=ball+1;

154. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

155. Label1.Caption:='Панель "Форматирование" содержит:';

156. RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

157. RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

158. RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

159. RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

160. inc(QNomber);

161. end;

162. 10:if QCheck=True then begin

163. if RadioButton1.Checked=True then ball:=ball+1;

164. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

165. Label1.Caption:='Панель "Строка меню" содержит:';

166. RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

167. RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

168. RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

169. RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

170. inc(QNomber);

171. end;

172. 11:if QCheck=True then begin

173. if RadioButton2.Checked=True then ball:=ball+1;

174. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

175. Label1.Caption:='Панель "Стандартная" содержит:';

176. RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

177. RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

178. RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

179. RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

180. inc(QNomber);

181. end;

182. 12:if QCheck=True then begin

183. if RadioButton3.Checked=True then ball:=ball+1;

184. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

185. Label1.Caption:='Панель "Рецензирование" содержит:';

186. RadioButton1.Caption:='Настройки шрифта, расположение текста и т.д.';

187. RadioButton2.Caption:='Возможность навигации по стандартным пуктам меню такие как "Файл"';

188. RadioButton3.Caption:='Возможность быстрого сознания и сохранения презентации';

189. RadioButton4.Caption:='Возможность добавления примечаний и рецензетов';

190. inc(QNomber);

191. end;

192. 13:if QCheck=True then begin

193. if RadioButton4.Checked=True then ball:=ball+1;

194. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

195. Label1.Caption:='Панель "Справка" содержит:';

196. RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

197. RadioButton2.Caption:='Возможность различного взаиморасположения окон';

198. RadioButton3.Caption:='Проверку орфографии';

199. RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

200. inc(QNomber);

201. end;

202. 14:if QCheck=True then begin

203. if RadioButton1.Checked=True then ball:=ball+1;

204. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

205. Label1.Caption:='Панель "Окно" содержит:';

206. RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

207. RadioButton2.Caption:='Возможность различного взаиморасположения окон';

208. RadioButton3.Caption:='Проверку орфографии';

209. RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

210. inc(QNomber);

211. end;

212. 15:if QCheck=True then begin

213. if RadioButton2.Checked=True then ball:=ball+1;

214. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

215. Label1.Caption:='Панель "Сервис" содержит:';

216. RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

217. RadioButton2.Caption:='Возможность различного взаиморасположения окон';

218. RadioButton3.Caption:='Проверку орфографии';

219. RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

220. inc(QNomber);

221. end;

222. 16:if QCheck=True then begin

223. if RadioButton3.Checked=True then ball:=ball+1;

224. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

225. Label1.Caption:='Панель "Вставка" содержит:';

226. RadioButton1.Caption:='Справку MS PowerPoint, информацию о программе';

227. RadioButton2.Caption:='Возможность различного взаиморасположения окон';

228. RadioButton3.Caption:='Проверку орфографии';

229. RadioButton4.Caption:='Возможность создания нового слайда, дублирования слайда';

230. inc(QNomber);

231. end;

232. 17:if QCheck=True then begin

233. if RadioButton4.Checked=True then ball:=ball+1;

234. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

235. Label1.Caption:='В каком формате сохраняются презентации';

236. RadioButton1.Caption:='*.avi';

237. RadioButton2.Caption:='*.txt';

238. RadioButton3.Caption:='*.ppt';

239. RadioButton4.Caption:='*.doc';

240. inc(QNomber);

241. end;

242. 18:if QCheck=True then begin

243. if RadioButton3.Checked=True then ball:=ball+1;

244. rezball:=ball/18*12;

245. rezball:=rezball;

246. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

247. Label1.Caption:='Вы ответили правильно на '+FloatToStr(ball)+' вопросов. Ваш балл '+FloatToStr(rezball);

248. RadioButton1.Visible:=False;

249. RadioButton2.Visible:=False;

250. RadioButton3.Visible:=False;

251. RadioButton4.Visible:=False;

252. inc(QNomber);

253. end;

254. end;

255.

256. end;

257.

258. end.

ПРИЛОЖЕНИЕ В

Результаты решения программы

Страницы: 1, 2