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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

155. randomize;

156. end;

157. // ***************************

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

159. // ***************************

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

161. var ln:integer;

162. begin

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

164. assignfile (f, fName);

165. rewrite(f);

166. BNewTest. Visible:=false;

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

168. BasaV. Mix;

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