Курсовая работа: Создание программы на языке Delphi

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.

ПРИЛОЖЕНИЕ В

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