Создание программы на языке Delphi (стр. 3 из 3)

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:='Справку MSPowerPoint, информацию о программе';

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:='Справку MSPowerPoint, информацию о программе';

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:='Справку MSPowerPoint, информацию о программе';

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:='Справку MSPowerPoint, информацию о программе';

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.

ПРИЛОЖЕНИЕ В

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