Реферат: Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Chart2: TChart;
Series2: TBarSeries;
Chart3: TChart;
Series3: TLineSeries;
Series4: TBarSeries;
Series5: TBarSeries;
Label3: TLabel;
Series6: TLineSeries;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
Cf1:TIniFile;
implementation
uses Unit1, Unit5, foxsoft;
{$R *.dfm}
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
ModalResult:=mrOk;
end;
procedure TForm7.FormShow(Sender: TObject);
var
i,j,NumI,kl,kz,nz,gr:integer;
ind,per,block1,block2,block3,coun,coun1,coun2,coun3,n1,n2,n3,k:double;
p1,p2,p3:array [1..50] of double;
GrPar, GrPercent, parm:array[1..200] of double;
MCon, Default,maxb:string;
sbl1,sbl2,sbl3:double;
kn, kp:array[1..3] of double;
srbl1,srbl2,srbl3,sdxq1,sdxq2,sdxq3:double;
dx1,dx2,dx3,sigm1,sigm2,sigm3,m:double;
begin
try
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from "'+Form1.Table1.TableName+'"');
ExecSQL;
end;
Query1.Active:=True;
Chart1.Enabled:=True;
except
Application.MessageBox('Ошибка инициализации БД. Возможно не установлен BDE, или база не открыта.','Ошибка',mb_Ok+MB_ICONHAND);
Chart1.Enabled:=False;
Exit;
end;
if Query1.RecordCount=0 then
begin
Application.MessageBox('В БД нет ни одной записи.','Сообщение',mb_Ok+MB_ICONASTERISK);
Exit;
end;
Cf1:=TIniFile.Create(GetCurrentDir+'\Config.ini');
try
with Cf1 do
begin
MCon:=ReadString('MARK_CONFIG','MARKS_TYPE',Default);
if MCon='ONE_IN_ONE' then
begin
maxb:=ReadString('MARK_CONFIG','MARKS_VALUE',Default);
end;
MCon:=ReadString('BLOCK_CONFIG','NUM_BLOCKS',Default);
end;
NumI:=StrToInt(maxb);
Cf1.Free;
except
Application.MessageBox('Ошибка чтения из INI-файла. Проверьте конфигурацию.','Ошибка',mb_Ok+mb_IconHand);
Exit;
end;
for i:=0 to 200 do
begin
GrPar[i]:=0;
GrPercent[i]:=0;
parm[i]:=0;
end;
per:=0;
ind:=0;
Query1.First;
for j:=1 to Query1.RecordCount do
begin
parm[j]:=Query1.FieldValues['SUMMARK'];
Query1.Next;
end;
ind:=0;
for i:=1 to 6*NumI+1 do
begin
for j:=1 to Query1.RecordCount do
begin
if ind=parm[j] then per:=per+1;
end;
GrPar[i]:=ind;
GrPercent[i]:=per/Query1.RecordCount;
per:=0;
ind:=ind+1;
end;
Series1.Clear;
Chart1.BottomAxis.Title.Caption:='Суммарный балл';
Chart1.BottomAxis.Minimum:=0*NumMarks;
Chart1.BottomAxis.Maximum:=ind-1;
For i:=0 to 6*NumI+1 do
begin
Series1.AddXY(GrPar[i],GrPercent[i]);
end;
if MCon='2' then
begin
with Query1 do
begin
Series2.Clear;
Chart2.BottomAxis.Maximum:=RecordCount;
Chart2.BottomAxis.Minimum:=0;
n1:=0;
k:=1;
coun:=0;
First;
for i:=1 to RecordCount do
begin
block1:=FieldValues['MARK1']+FieldValues['MARK2']+FieldValues['MARK3'];
block2:=FieldValues['MARK4']+FieldValues['MARK5']+FieldValues['MARK6'];
Series2.AddXY(k,block1-block2);
if block1-block2>=0 then coun:=coun+1;
Next;
k:=k+1;
end;
end;
n1:=coun/Query1.RecordCount;
Label1.Caption:='Надежность реализации - '+FloatToStr(n1*100)+'%.';
end;
if MCon='3' then
begin
with Query1 do
begin
Series2.Clear;
Series4.Clear;
Series5.Clear;
Chart2.BottomAxis.Maximum:=RecordCount+10;
Chart2.BottomAxis.Minimum:=0;
n1:=0; n2:=0; n3:=0;
k:=1;
coun:=0; coun2:=0; coun3:=0;
First;
for i:=1 to RecordCount do
begin
block1:=FieldValues['MARK1']+FieldValues['MARK2'];
block2:=FieldValues['MARK3']+FieldValues['MARK4'];
block3:=FieldValues['MARK5']+FieldValues['MARK6'];
Series2.AddXY(k,block1-block2);
Series4.AddXY(k,block2-block3);
Series5.AddXY(k,block1-block3);
if block1-block2>=0 then coun1:=coun1+1;
if block2-block3>=0 then coun2:=coun2+1;
if block1-block3>=0 then coun3:=coun3+1;
Next;
k:=k+1;
end;
end;
n1:=coun1/Query1.RecordCount;
n2:=coun2/Query1.RecordCount;
n3:=coun3/Query1.RecordCount;
Label1.Caption:='Надежность реализации - '+FloatToStr(Okrugl(n1*100,2))+'%, '+FloatToStr(Okrugl(n2*100,2))+'%, '+FloatToStr(Okrugl(n3*100,2))+'%.';
end;
if MCon='1' then
begin
Series2.Clear;
Series4.Clear;
Series5.Clear;
Label1.Caption:='Параметр не имеет смысла с 1 блоком.';
end;
Label3.Caption:='Количество блоков задач - '+Mcon;
Label5.Caption:='Обшее количество участников '+IntToStr(Query1.RecordCount)+'.';
Label4.Caption:='Максимальный балл равен '+IntToStr(NumI)+'.';
if MCon<>'1' then
begin
Query1.First;
for i:=1 to Query1.RecordCount do
begin
p1[i]:=Query1.FieldValues['PARAM1'];
p2[i]:=Query1.FieldValues['PARAM2'];
p3[i]:=Query1.FieldValues['PARAM3'];
Query1.Next;
end;
kl:=0;
j:=1;
kz:=Query1.RecordCount;
nz:=0;
gr:=0;
for i:=1 to kz do
begin
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from "'+Form1.Table1.TableName+'"');
SQL.Add('where (PARAM1='+FloatToStr(p1[j])+') and (PARAM2='+FloatToStr(p2[j])+') and (PARAM3='+FloatToStr(p3[j])+')');
ExecSQL;
Active:=True;
kl:=Query1.RecordCount;
if kl=1 then j:=j+1;
if kl>1 then
begin
j:=j+kl;
nz:=nz+kl;
gr:=gr+1;
end;
end;
end;
Label2.Caption:='Коэффициент мест - '+FloatToStr(Okrugl((kz-nz+gr)/kz,2))+'.';
end
else Label2.Caption:='Для одного блока не рассчитывается.';
//This is a demo-code for KN & KP
try
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from "'+Form1.Table1.TableName+'"');
ExecSQL;
end;
Query1.Active:=True;
Chart1.Enabled:=True;
except
Application.MessageBox('Ошибка инициализации БД. Возможно не установлен BDE, или база не открыта.','Ошибка',mb_Ok+MB_ICONHAND);
Chart1.Enabled:=False;
Exit;
end;
sbl1:=0; srbl1:=0;
sbl2:=0; srbl2:=0;
sbl3:=0; srbl3:=0;
dx1:=0; dx2:=0; dx3:=0;
sdxq1:=0; sdxq2:=0; sdxq3:=0;
sigm1:=0; sigm2:=0; sigm3:=0;
Query1.First;
if MCon='2' then
begin
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['MARK1']+Query1.FieldValues['MARK2']+Query1.FieldValues['MARK3'];
block2:=Query1.FieldValues['MARK4']+Query1.FieldValues['MARK5']+Query1.FieldValues['MARK6'];
sbl1:=sbl1+block1;
sbl2:=sbl2+block2;
Query1.Next;
end;
srbl1:=sbl1/Query1.RecordCount;
srbl2:=sbl2/Query1.RecordCount;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['MARK1']+Query1.FieldValues['MARK2']+Query1.FieldValues['MARK3'];
block2:=Query1.FieldValues['MARK4']+Query1.FieldValues['MARK5']+Query1.FieldValues['MARK6'];
dx1:=dx1+sqr(block1-srbl1);
dx2:=dx2+sqr(block2-srbl2);
Query1.Next;
end;
sdxq1:=dx1/Query1.RecordCount;
sdxq2:=dx2/Query1.RecordCount;
sigm1:=sqrt(sdxq1);
sigm2:=sqrt(sdxq2);
m:=StrToFloat(maxb);
kn[1]:=((m-srbl1)*((m-srbl1)*srbl1-sqr(sigm1))/(m*sqr(sigm1)-(m-srbl1)*srbl1))-1;
kp[1]:=1-((srbl1*((m-srbl1)*srbl1-sqr(sigm1)))/(m*sqr(sigm1)-(m-srbl1)*srbl1));
kn[2]:=((m-srbl2)*((m-srbl2)*srbl2-sqr(sigm2))/(m*sqr(sigm2)-(m-srbl2)*srbl2))-1;
kp[2]:=1-((srbl2*((m-srbl2)*srbl2-sqr(sigm2)))/(m*sqr(sigm2)-(m-srbl2)*srbl2));
Series3.Clear;
for i:=1 to 2 do
Series3.AddXY(kn[i],kp[i]);
end;
if MCon='1' then
begin
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['SUMMARK'];
sbl1:=sbl1+block1;
Query1.Next;
end;
srbl1:=sbl1/Query1.RecordCount;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['SUMMARK'];
dx1:=dx1+sqr(block1-srbl1);
Query1.Next;
end;
sdxq1:=dx1/Query1.RecordCount;
sigm1:=sqrt(sdxq1);
m:=StrToFloat(maxb);
kn[1]:=((m-srbl1)*((m-srbl1)*srbl1-sqr(sigm1))/(m*sqr(sigm1)-(m-srbl1)*srbl1))-1;
kp[1]:=1-((srbl1*((m-srbl1)*srbl1-sqr(sigm1)))/(m*sqr(sigm1)-(m-srbl1)*srbl1));
Series3.AddXY(kn[1],kp[1]);
end;
if MCon='3' then
begin
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['MARK1']+Query1.FieldValues['MARK2'];
block2:=Query1.FieldValues['MARK3']+Query1.FieldValues['MARK4'];
block3:=Query1.FieldValues['MARK5']+Query1.FieldValues['MARK6'];
sbl1:=sbl1+block1;
sbl2:=sbl2+block2;
sbl3:=sbl3+block3;
Query1.Next;
end;
srbl1:=sbl1/Query1.RecordCount;
srbl2:=sbl2/Query1.RecordCount;
srbl3:=sbl3/Query1.RecordCount;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
block1:=Query1.FieldValues['MARK1']+Query1.FieldValues['MARK2'];
block2:=Query1.FieldValues['MARK3']+Query1.FieldValues['MARK4'];
block3:=Query1.FieldValues['MARK5']+Query1.FieldValues['MARK6'];
dx1:=dx1+sqr(block1-srbl1);
dx2:=dx2+sqr(block2-srbl2);
dx3:=dx3+sqr(block3-srbl3);
Query1.Next;
end;
sdxq1:=dx1/Query1.RecordCount;
sdxq2:=dx2/Query1.RecordCount;
sdxq3:=dx3/Query1.RecordCount;
sigm1:=sqrt(sdxq1);
sigm2:=sqrt(sdxq2);
sigm3:=sqrt(sdxq3);
m:=StrToFloat(maxb);
kn[1]:=((m-srbl1)*((m-srbl1)*srbl1-sqr(sigm1))/(m*sqr(sigm1)-(m-srbl1)*srbl1))-1;
kp[1]:=1-((srbl1*((m-srbl1)*srbl1-sqr(sigm1)))/(m*sqr(sigm1)-(m-srbl1)*srbl1));
kn[2]:=((m-srbl2)*((m-srbl2)*srbl2-sqr(sigm2))/(m*sqr(sigm2)-(m-srbl2)*srbl2))-1;
kp[2]:=1-((srbl2*((m-srbl2)*srbl2-sqr(sigm2)))/(m*sqr(sigm2)-(m-srbl2)*srbl2));
kn[3]:=((m-srbl3)*((m-srbl3)*srbl3-sqr(sigm3))/(m*sqr(sigm3)-(m-srbl3)*srbl3))-1;
kp[3]:=1-((srbl3*((m-srbl3)*srbl3-sqr(sigm3)))/(m*sqr(sigm3)-(m-srbl3)*srbl3));
Series3.Clear;
for i:=1 to 3 do
Series3.AddXY(kn[i],kp[i]);
end;
m:=0;
Series6.Clear;
for i:=0 to 20 do
begin
Series6.AddXY(m,-1*m);
m:=m+2;
end;
end;
end.
Модуль 7.
Этот модуль носит вспомогательный характер. Он необходим для правильного округления десятичных чисел с указанной степенью точности.
unit foxsoft;
interface
uses SysUtils;
function Okrugl(cs:double;numb:integer):double;
implementation
function Okrugl(cs:Double;numb:integer):double;
var
db,db1,db2:double;
i:int64;
ii,ink,i1:integer;
st:string;
begin
db:=db-int(cs);
ink:=1;
for ii:=1 to numb do ink:=ink*10;
db1:=db*ink;
db2:=cs*ink*100;
i:=trunc(int(db2)/100);
i1:=Trunc(db2-i*100);
if i1>49 then inc(i);
Result:=i/ink;
end;
end.
Литература.
1. Кирьяков Б. С. Педагогическая модель интеллектуального испытания школьников. – Рязань: Изд-во «Русское слово», 2002.
2. Кирьяков Б. С. Педагогическая модель интеллектуального испытания учащихся/Вестник Рязанского государственного педагогического университета. Рязань: РГПУ, 2001.
3. Шарапков А. Н., Кирьяков Б. С. Исследование гуманности режима соревнования на олимпиадах школьников. // Рязанские физические олимпиады // Рязань: «РИНФО», 2000. Выпуск 8.
4. Кирьяков Б. С. Проблемы проведения олимпиад в условиях дифференциации уровня подготовки школьников // Рязанские физические олимпиады// Выпуск 8, – Рязань: Изд-во «РИНФО», 2000.
5. Кирьяков Б. С. Параметры интеллектуального испытания учащихся на олимпиаде// Рязанские физические олимпиады// Выпуск 9, – Рязань, 2001.
6. Лишер Р. Delphi. Справочник. – Пер. с англ. – СПб.: «Символ-Плюс», 2001.
7. Фаронов В. В. Delphi 5. Руководство программиста. – М.: «Нолидж», 2001.
8. Озеров В. Delphi. Советы программистов. – СПб.: «Символ-Плюс», 2003.
