Автоматизированная система распределения мест и оценок качества олимпиадных заданий
| Категория реферата: Рефераты по педагогике
| Теги реферата: реферат на тему биография, налоги реферат
| Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27
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.Field
Values['MARK3'];
block2:=Query1.FieldValues['MARK4']+Query1.FieldValues['MARK5']+Query1.Field
Values['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.Field
Values['MARK3'];
block2:=Query1.FieldValues['MARK4']+Query1.FieldValues['MARK5']+Query1.Field
Values['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.
Скачали данный реферат: Kondjurin, Валерий, Бутусов, Костюк, Kahmanova, Шелагин.
Последние просмотренные рефераты на тему: контрольные работы, література реферат, украина реферат, капитанская дочка сочинение.
Категории:
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27
Главная