Предыдущая страница реферата | 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

Поделитесь этой записью или добавьте в закладки