Курсовая работа: Разработка программы с помощью языка программирования Delphi

201. Ratio:= Ratio +1;

202. CurN:=CurN+1;

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

204. begin

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

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

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

208. writeln (f, Sfam+Sgr);

209. writeln (f, sRes);

210. CloseFile(f);

211. end;

212. end;

213. if CurN>=ln then

214. begin

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

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

217. BNewtest. Visible:=true;

218. exit;

219. end;

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

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

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

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

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

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

226. RGroup1. ItemIndex:=0;

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

228. end;

229. // ***************************