80
26. Олифер В.Г., Олифер Н.А. Основы сетей передачи данных //
[Электронное издание]. (http://www.intuit.ru).
27. Петров В. Н. «Информационные системы», -СПб.:Питер, 2017, с.
56-128
28. Притыкин Д. А. BPwin 4.0: пришел, увидел, реорганизовал. Мнение
пользователя. [Электронный документ]. (http://info-
system.ru/designing/methodology/bpwin/bpwin.html).
29. Робинсон С. «Microsoft SQL Server 2007», Питер, 2017, с.22.
30. Скрипкин К.Г. Экономическая эффективность информационных
систем. - М.: ДМК Пресс, 2016.
31. Тельнов Ю.Ф. Интеллектуальные информационные системы:
учебное пособие / Московский государственный университет экономики,
статистики и информатики. - М.: МЭСИ, 2015.
32. Тамре Л. Введение в тестирование программного обеспечения :
Пер. с англ. - М.: Издательский дом «Вильямс», 2016.
33. Тарасов, С. В. СУБД для программиста. Базы данных изнутри. - М.:
СОЛОН-Пресс, 2017.
34. Федоров А., Елманова Н. «ADO в Delphi». – СПб.: БВХ -Санкт-
Петербург, 2016, с.85-93.
35. Фаронов В. «Программирование баз данных в Delphi».- СПб.:
Питер, 2016, с. 159-163
36. Фаронов В. «Delphi 7. Руководство программиста», Нолидж, 2017,
с.26-28.
37. Шафер, Дональд, Управление программными проектами:
достижение оптимального качества при минимуме затрат.: Пер. с англ. - М.:
Издательский дом «Вильямс», 2017.
81
Приложение
unit Unit2;
interface, Messages, SysUtils, Variants, Classes, Graphics,, Forms, Dialogs,
StdCtrls, Buttons;= class(TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;:
TBitBtn;BitBtnStartClick (Sender: TObject);
{Private declarations}
{Public declarations};: TFormAvto;Unit1;
{$R *.dfm}TFormAvto. BitBtnStartClick (Sender: TObject);:=EFam. Text+ '
';:=EGroup. Text;;. Show;;.
Модуль формы тестирования
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics,, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;= class(TForm): TBitBtn;: TLabel;: TLabel;:
TStaticText;: TRadioGroup;: TButton;FormCreate (Sender: TObject);BitBtn1Click
(Sender: TObject);BNewTestClick (Sender: TObject);FormClose (Sender: TObject;
var Action: TCloseAction);FormActivate (Sender: TObject);
{Private declarations}
{Public declarations};= record:string; // вопрос:array [0..3] of string; // ответы
korans:byte; // номер правильного ответа;
CVoprosi = class: array of TTest;AddTest
(_vopr,_ans0,_ans1,_ans2,_ans3:string;_korans:byte);Mix;;, Sgr:string; // фамилия и
группа учащегося:string;: TEXTFILE;: TFormTest;:CVoprosi;:byte; // номер
текущего вопроса
Ratio:byte; // количество правильных ответовUnit2;
{$R *.dfm}
// метод для добавления нового теста в базу
Procedure CVoprosi. AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string;
_korans:byte);ln:integer;:=Length(test);(test, ln+1);[ln].vopr:= _vopr;[ln].ans[0]:=
82
_ans0;[ln].ans[1]:= _ans1;[ln].ans[2]:= _ans2;[ln].ans[3]:= _ans3;[ln].korans:=
_korans;;
// перемешивание базы вопросовCVoprosi. Mix;, i1, i2,
ln:byte;:TTest;:=Length(test);i:=1 to 20 do:=Random(ln); // случайный №1
i2:=Random(ln); // случайный №2
// меняем местами вопросы №1 и №2
TestTmp:=test[i1];[i1]:=test[i2];[i2]:=TestTmp;;;TFormTest. FormCreate
(Sender: TObject);
begin
// формирование базы вопросов:=CVoprosi. Create;. AddTest ('Что выведет
следующая программа?'+#10+#13+'var i, sum:sіnglе;'+#10+#13+
'bеgin'+#10+'sum:=1;'+#10+
' for і:=2 to 10 dо sum:=sum+i;'+#10+
' WrіtеLn(sum);'+#10+'еnd.',
'10', '55', '9', 'произойдет ошибка компиляции', 3);. AddTest ('Какое
значение вернет выражение?'+#10+' chr (ord(«A»)+3)',
'A3', '68', ' «D» ', ' «C» ', 2);
BasaV. AddTest ('С чего не может начинаться идентификатор?',
'с малой латинской буквы', 'с большой латинской буквы', 'с
подчеркивания', 'с цифры', 3);. AddTest ('Что из нижеперечисленного может
быть использовано как идентификатор?',
'ord', 'for1', 'cardinal', 'C#21', 1);
BasaV. AddTest ('Какой из приведенных типов целочисленный?',
'real', 'byte', 'double', 'single', 1);. AddTest ('Какой из приведенных типов
можно использовать для хранения дробных чисел?',
'byte', 'word', 'double', 'integer', 2);. AddTest ('Какая из приведенных
инструкций является циклом с заданным числом повторений?',
'while <…> do ', 'for <…> do ', 'repeat until <…>', 'if <> then ', 1);
83
BasaV. AddTest ('Какая из приведенных инструкций является циклом с
предусловием?',
'for <…> do ', 'while <…> do ', 'repeat until <…>', 'if <> then ', 1);
BasaV. AddTest ('Какая из приведенных инструкций является циклом с
постусловием?',
'for <…> do ', 'while <…> do ', 'repeat until <…>', 'if <> then ', 2);
BasaV. AddTest ('Какая из приведенных инструкций является
инструкцией ветвления?',
'for <…> do ', 'while <…> do ', 'repeat until <…>', 'if <> then ', 3);
BasaV. AddTest ('Какая из приведенных инструкций целочисленного
деления?',
'MOD', 'DIV', '/', 'ODD', 1);
BasaV. AddTest ('Какая из приведенных инструкций - остаток от
деления?',
'MOD', 'DIV', '/', 'ODD', 0);
BasaV. AddTest ('Какая из приведенных инструкций вещественного
деления?',
'MOD', 'DIV', '/', 'ODD', 2);
BasaV. AddTest ('Какая из приведенных инструкций проверка на
четность?',
'MOD', 'DIV', '/', 'ODD', 3);
BasaV. AddTest ('Укажите функцию округления по правилам
арифметики:',
'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 2);
BasaV. AddTest ('Укажите функцию выделения дробной части числа:',
'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 1);
BasaV. AddTest ('Укажите функцию округления к нулю с целочисленным
результатом:',
'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 0);
84
BasaV. AddTest ('Укажите функцию округления к нулю с вещественным
результатом:',
'TRUNC()', 'FRAC()', 'ROUND()', 'INT()', 3);
BasaV. AddTest ('Укажите функцию открытия существующего файла:',
'ASSIGNFILE()', 'REWRITE()', 'RESET()', 'CLOSEFILE()', 2);
BasaV. AddTest ('Укажите функцию создания нового файла и открытия
его для записи:',
'ASSIGNFILE()', 'REWRITE()', 'RESET()', 'CLOSEFILE()', 1);
randomize;;
// ***************************
// активизация формы с тестами
// ***************************
procedure TFormTest. FormActivate (Sender: TObject);
var ln:integer;
fName:=SFam+' ('+SGr+')'+'.txt';
assignfile (f, fName);(f);. Visible:=false;
// перемешивание базы вопросов. Mix;
// количество правильных ответов:=0;
// текущий вопрос 0:=0;
// отображаем первый вопрос на форме
StaticText1. Caption:=BasaV.test[curN].vopr;.
Items[0]:=BasaV.test[curN].ans[0];. Items[1]:=BasaV.test[curN].ans[1];.
Items[2]:=BasaV.test[curN].ans[2];. Items[3]:=BasaV.test[curN].ans[3];
RGroup1. ItemIndex:=0;:=Length (BasaV.test);
LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);
end;
// ***************************
// обработчик нажатия на кнопку «Принять ответ»
// ***************************
85
procedure TFormTest. BitBtn1Click (Sender: TObject);
var, S:string;:byte;
// проверка ответа:=Length (BasaV.test);(CurN<ln) then
// записываем лог ответов в файл
S:= BasaV.test[curN].vopr + ' (ответил: - '+.test[curN].ans [RGroup1.
ItemIndex]+')';(f, S);
// проверяем, правильно ли был сделан ответ
if (RGroup1. ItemIndex = BasaV.test[curN].Korans) then
Ratio:= Ratio +1;:=CurN+1;CurN=ln then // была последняя запись
// сообщение с результатом:= 'Итоговая оценка: '+FloatToStr (Ratio*12/ln);
// запись результа в файл(f, Sfam+Sgr);(f, sRes);(f);;;CurN>=ln then:=
'Итоговая оценка: '+FloatToStr (Ratio*12/ln);
Application. MessageBox (PAnsiChar(sRes), PAnsiChar (SFam+Sgr));
BNewtest. Visible:=true;;;
// отображаем следующий вопрос на форме
StaticText1. Caption:=BasaV.test[curN].vopr;.
Items[0]:=BasaV.test[curN].ans[0];. Items[1]:=BasaV.test[curN].ans[1];.
Items[2]:=BasaV.test[curN].ans[2];. Items[3]:=BasaV.test[curN].ans[3];
RGroup1. ItemIndex:=0;
LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);
end;
// ***************************
// закрыте формы с тестами
// ***************************
procedure TFormTest.BNewTestClick (Sender: TObject);
begin;;
// ***************************
// активизация формы с авторизации
// ***************************
86
procedure TFormTest. FormClose (Sender: TObject; var Action:
TCloseAction);
begin. Show;;.
End;
End.