Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

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

Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.



Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

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