RadioGroup10->ItemIndex=-1; RadioGroup11->ItemIndex=-1; RadioGroup12->ItemIndex=-1; RadioGroup13->ItemIndex=-1; RadioGroup14->ItemIndex=-1; RadioGroup15->ItemIndex=-1; RadioGroup16->ItemIndex=-1; RadioGroup17->ItemIndex=-1; RadioGroup18->ItemIndex=-1; RadioGroup19->ItemIndex=-1; RadioGroup20->ItemIndex=-1; RadioGroup21->ItemIndex=-1; RadioGroup22->ItemIndex=-1; RadioGroup23->ItemIndex=-1; RadioGroup24->ItemIndex=-1; RadioGroup25->ItemIndex=-1; RadioGroup26->ItemIndex=-1; RadioGroup27->ItemIndex=-1; RadioGroup28->ItemIndex=-1; RadioGroup29->ItemIndex=-1; RadioGroup30->ItemIndex=-1;
U1=0, T1=0, E1=0, F1=0, M1=0, L1=0, }
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{RadioGroup31->ItemIndex=-1;
RadioGroup32->ItemIndex=-1; RadioGroup33->ItemIndex=-1; RadioGroup34->ItemIndex=-1; RadioGroup35->ItemIndex=-1; RadioGroup36->ItemIndex=-1; RadioGroup37->ItemIndex=-1; RadioGroup38->ItemIndex=-1; RadioGroup39->ItemIndex=-1; RadioGroup40->ItemIndex=-1; RadioGroup41->ItemIndex=-1; RadioGroup42->ItemIndex=-1; RadioGroup43->ItemIndex=-1; RadioGroup44->ItemIndex=-1; RadioGroup45->ItemIndex=-1; RadioGroup46->ItemIndex=-1; RadioGroup47->ItemIndex=-1; RadioGroup48->ItemIndex=-1; RadioGroup49->ItemIndex=-1; RadioGroup50->ItemIndex=-1; RadioGroup51->ItemIndex=-1; RadioGroup52->ItemIndex=-1; RadioGroup53->ItemIndex=-1; RadioGroup54->ItemIndex=-1; RadioGroup55->ItemIndex=-1; RadioGroup56->ItemIndex=-1; RadioGroup57->ItemIndex=-1; RadioGroup58->ItemIndex=-1; RadioGroup59->ItemIndex=-1; RadioGroup60->ItemIndex=-1; RadioGroup61->ItemIndex=-1; RadioGroup62->ItemIndex=-1; RadioGroup63->ItemIndex=-1; RadioGroup64->ItemIndex=-1; RadioGroup65->ItemIndex=-1; RadioGroup66->ItemIndex=-1; RadioGroup67->ItemIndex=-1; RadioGroup68->ItemIndex=-1; RadioGroup69->ItemIndex=-1; RadioGroup70->ItemIndex=-1; RadioGroup71->ItemIndex=-1; RadioGroup72->ItemIndex=-1;
R2=0, I2=0, S2=0, K2=0, P2=0, H2=0;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
{RadioGroup73->ItemIndex=-1;
RadioGroup74->ItemIndex=-1; RadioGroup75->ItemIndex=-1; RadioGroup76->ItemIndex=-1; RadioGroup77->ItemIndex=-1; RadioGroup78->ItemIndex=-1; RadioGroup79->ItemIndex=-1; RadioGroup80->ItemIndex=-1; RadioGroup81->ItemIndex=-1; RadioGroup82->ItemIndex=-1; RadioGroup83->ItemIndex=-1; RadioGroup84->ItemIndex=-1; RadioGroup85->ItemIndex=-1; RadioGroup86->ItemIndex=-1; RadioGroup87->ItemIndex=-1; RadioGroup88->ItemIndex=-1; RadioGroup89->ItemIndex=-1; RadioGroup90->ItemIndex=-1; RadioGroup91->ItemIndex=-1; RadioGroup92->ItemIndex=-1; RadioGroup93->ItemIndex=-1; RadioGroup94->ItemIndex=-1; RadioGroup95->ItemIndex=-1; RadioGroup96->ItemIndex=-1; RadioGroup97->ItemIndex=-1; RadioGroup98->ItemIndex=-1; RadioGroup99->ItemIndex=-1;
RadioGroup100->ItemIndex=-1; RadioGroup101->ItemIndex=-1; RadioGroup102->ItemIndex=-1;
P3=0, T3=0, Z3=0, H3=0, M3=0;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
{RadioGroup103->ItemIndex=-1;
RadioGroup104->ItemIndex=-1; RadioGroup105->ItemIndex=-1; RadioGroup106->ItemIndex=-1; RadioGroup107->ItemIndex=-1; RadioGroup108->ItemIndex=-1; RadioGroup109->ItemIndex=-1; RadioGroup110->ItemIndex=-1; RadioGroup111->ItemIndex=-1; RadioGroup112->ItemIndex=-1; RadioGroup113->ItemIndex=-1; RadioGroup114->ItemIndex=-1; RadioGroup115->ItemIndex=-1; RadioGroup116->ItemIndex=-1; RadioGroup117->ItemIndex=-1; RadioGroup118->ItemIndex=-1; RadioGroup119->ItemIndex=-1; RadioGroup120->ItemIndex=-1; RadioGroup121->ItemIndex=-1; RadioGroup122->ItemIndex=-1; RadioGroup123->ItemIndex=-1; RadioGroup124->ItemIndex=-1; RadioGroup125->ItemIndex=-1; RadioGroup126->ItemIndex=-1; RadioGroup127->ItemIndex=-1; RadioGroup128->ItemIndex=-1; RadioGroup129->ItemIndex=-1; RadioGroup130->ItemIndex=-1; RadioGroup131->ItemIndex=-1; RadioGroup132->ItemIndex=-1; RadioGroup133->ItemIndex=-1; RadioGroup134->ItemIndex=-1; RadioGroup135->ItemIndex=-1; RadioGroup136->ItemIndex=-1; RadioGroup137->ItemIndex=-1; RadioGroup138->ItemIndex=-1; RadioGroup139->ItemIndex=-1; RadioGroup140->ItemIndex=-1; RadioGroup141->ItemIndex=-1; RadioGroup142->ItemIndex=-1; RadioGroup143->ItemIndex=-1; RadioGroup144->ItemIndex=-1; RadioGroup145->ItemIndex=-1; RadioGroup146->ItemIndex=-1; RadioGroup147->ItemIndex=-1; RadioGroup148->ItemIndex=-1; RadioGroup149->ItemIndex=-1; RadioGroup150->ItemIndex=-1; RadioGroup151->ItemIndex=-1; RadioGroup152->ItemIndex=-1; RadioGroup153->ItemIndex=-1; RadioGroup154->ItemIndex=-1; RadioGroup155->ItemIndex=-1; RadioGroup156->ItemIndex=-1; RadioGroup157->ItemIndex=-1; RadioGroup158->ItemIndex=-1;
M4=0, O4=0, S4=0, V4=0, A4=0, R4=0,N4=0;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button10Click(TObject *Sender)
{RadioGroup159->ItemIndex=-1;
RadioGroup160->ItemIndex=-1; RadioGroup161->ItemIndex=-1; RadioGroup162->ItemIndex=-1; RadioGroup163->ItemIndex=-1; RadioGroup164->ItemIndex=-1; RadioGroup165->ItemIndex=-1; RadioGroup166->ItemIndex=-1; RadioGroup167->ItemIndex=-1; RadioGroup168->ItemIndex=-1; RadioGroup169->ItemIndex=-1; RadioGroup170->ItemIndex=-1; RadioGroup171->ItemIndex=-1; RadioGroup172->ItemIndex=-1; RadioGroup173->ItemIndex=-1; RadioGroup174->ItemIndex=-1; RadioGroup175->ItemIndex=-1; RadioGroup176->ItemIndex=-1; RadioGroup177->ItemIndex=-1; RadioGroup178->ItemIndex=-1; RadioGroup179->ItemIndex=-1; RadioGroup180->ItemIndex=-1; RadioGroup181->ItemIndex=-1; RadioGroup182->ItemIndex=-1; RadioGroup183->ItemIndex=-1; RadioGroup184->ItemIndex=-1; RadioGroup185->ItemIndex=-1; RadioGroup186->ItemIndex=-1; RadioGroup187->ItemIndex=-1; RadioGroup188->ItemIndex=-1; RadioGroup189->ItemIndex=-1; RadioGroup190->ItemIndex=-1; RadioGroup191->ItemIndex=-1; RadioGroup192->ItemIndex=-1; RadioGroup193->ItemIndex=-1; RadioGroup194->ItemIndex=-1; RadioGroup195->ItemIndex=-1; RadioGroup196->ItemIndex=-1; RadioGroup197->ItemIndex=-1; RadioGroup198->ItemIndex=-1;
P5=0, A5=0, S5=0, N5=0, K5=0;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{RadioGroup199->ItemIndex=-1;
RadioGroup200->ItemIndex=-1; RadioGroup201->ItemIndex=-1; RadioGroup202->ItemIndex=-1; RadioGroup203->ItemIndex=-1; RadioGroup204->ItemIndex=-1; RadioGroup205->ItemIndex=-1; RadioGroup206->ItemIndex=-1; RadioGroup207->ItemIndex=-1; RadioGroup208->ItemIndex=-1; RadioGroup209->ItemIndex=-1; RadioGroup210->ItemIndex=-1; RadioGroup211->ItemIndex=-1; RadioGroup212->ItemIndex=-1; RadioGroup213->ItemIndex=-1; RadioGroup214->ItemIndex=-1; RadioGroup215->ItemIndex=-1; RadioGroup216->ItemIndex=-1; RadioGroup217->ItemIndex=-1; RadioGroup218->ItemIndex=-1; RadioGroup219->ItemIndex=-1; RadioGroup220->ItemIndex=-1; RadioGroup221->ItemIndex=-1; RadioGroup222->ItemIndex=-1; RadioGroup223->ItemIndex=-1; RadioGroup224->ItemIndex=-1; RadioGroup225->ItemIndex=-1; RadioGroup226->ItemIndex=-1;
L6=0, T6=0, V6=0, H6=0, M6=0, I6=0, K6=0;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button13Click(TObject *Sender)
{if
(RadioGroup1->ItemIndex==-1) || (RadioGroup2->ItemIndex==-1) || (RadioGroup3->ItemIndex==-1) || (RadioGroup4->ItemIndex==-1) || (RadioGroup5->ItemIndex==-1) || (RadioGroup6->ItemIndex==-1) || (RadioGroup7->ItemIndex==-1) || (RadioGroup8->ItemIndex==-1) || (RadioGroup9->ItemIndex==-1) ||
(RadioGroup10->ItemIndex==-1) || (RadioGroup11->ItemIndex==-1) || (RadioGroup12->ItemIndex==-1) || (RadioGroup13->ItemIndex==-1) || (RadioGroup14->ItemIndex==-1) || (RadioGroup15->ItemIndex==-1) || (RadioGroup16->ItemIndex==-1) || (RadioGroup17->ItemIndex==-1) || (RadioGroup18->ItemIndex==-1) || (RadioGroup19->ItemIndex==-1) || (RadioGroup20->ItemIndex==-1) || (RadioGroup21->ItemIndex==-1) || (RadioGroup22->ItemIndex==-1) || (RadioGroup23->ItemIndex==-1) || (RadioGroup24->ItemIndex==-1) || (RadioGroup25->ItemIndex==-1) || (RadioGroup26->ItemIndex==-1) || (RadioGroup27->ItemIndex==-1) || (RadioGroup28->ItemIndex==-1) || (RadioGroup29->ItemIndex==-1) ||
(RadioGroup30->ItemIndex==-1)) { Form4->Show();}
else{
if(RadioGroup1->ItemIndex==0){E1++; }else {T1++;} if(RadioGroup2->ItemIndex==0){L1++; }else {F1++;} if(RadioGroup3->ItemIndex==0){M1++; }else {T1++;} if(RadioGroup4->ItemIndex==0){L1++; }else {U1++;} if(RadioGroup5->ItemIndex==0){F1++; }else {E1++;} if(RadioGroup6->ItemIndex==0){T1++; }else {L1++;} if(RadioGroup7->ItemIndex==0){U1++; }else {M1++;} if(RadioGroup8->ItemIndex==0){E1++; }else {T1++;} if(RadioGroup9->ItemIndex==0){L1++; }else {M1++;} if(RadioGroup10->ItemIndex==0){E1++; }else {U1++;} if(RadioGroup11->ItemIndex==0){M1++; }else {E1++;} if(RadioGroup12->ItemIndex==0){T1++; }else {L1++;} if(RadioGroup13->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup14->ItemIndex==0){T1++; }else {U1++;} if(RadioGroup15->ItemIndex==0){F1++; }else {T1++;} if(RadioGroup16->ItemIndex==0){L1++; }else {M1++;} if(RadioGroup17->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup18->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup19->ItemIndex==0){M1++; }else {L1++;} if(RadioGroup20->ItemIndex==0){U1++; }else {F1++;} if(RadioGroup21->ItemIndex==0){E1++; }else {U1++;} if(RadioGroup22->ItemIndex==0){F1++; }else {M1++;} if(RadioGroup23->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup24->ItemIndex==0){F1++; }else {E1++;} if(RadioGroup25->ItemIndex==0){T1++; }else {F1++;} if(RadioGroup26->ItemIndex==0){T1++; }else {U1++;} if(RadioGroup27->ItemIndex==0){F1++; }else {M1++;} if(RadioGroup28->ItemIndex==0){E1++; }else {L1++;} if(RadioGroup29->ItemIndex==0){M1++; }else {T1++;} if(RadioGroup30->ItemIndex==0){U1++;}else {M1++;}
U1=U1*10;
T1=T1*10;
E1=E1*10;
F1=F1*10;
M1=M1*10;
L1=L1*10;}
Edit1->Text=IntToStr(L1)+"%";
Edit2->Text=IntToStr(U1)+"%";
Edit3->Text=IntToStr(T1)+"%";
Edit4->Text=IntToStr(E1)+"%";
Edit5->Text=IntToStr(F1)+"%";
Edit6->Text=IntToStr(M1)+"%";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button14Click(TObject *Sender)
{if
(RadioGroup31->ItemIndex==-1) || (RadioGroup32->ItemIndex==-1) || (RadioGroup33->ItemIndex==-1) || (RadioGroup34->ItemIndex==-1) || (RadioGroup35->ItemIndex==-1) || (RadioGroup36->ItemIndex==-1) ||
(RadioGroup37->ItemIndex==-1) || (RadioGroup38->ItemIndex==-1) || (RadioGroup39->ItemIndex==-1) || (RadioGroup40->ItemIndex==-1) || (RadioGroup41->ItemIndex==-1) || (RadioGroup42->ItemIndex==-1) || (RadioGroup43->ItemIndex==-1) || (RadioGroup44->ItemIndex==-1) || (RadioGroup45->ItemIndex==-1) || (RadioGroup46->ItemIndex==-1) || (RadioGroup47->ItemIndex==-1) || (RadioGroup48->ItemIndex==-1) || (RadioGroup49->ItemIndex==-1) || (RadioGroup50->ItemIndex==-1) || (RadioGroup51->ItemIndex==-1) || (RadioGroup52->ItemIndex==-1) || (RadioGroup53->ItemIndex==-1) || (RadioGroup54->ItemIndex==-1) || (RadioGroup55->ItemIndex==-1) || (RadioGroup56->ItemIndex==-1) || (RadioGroup57->ItemIndex==-1) || (RadioGroup58->ItemIndex==-1) || (RadioGroup59->ItemIndex==-1) || (RadioGroup60->ItemIndex==-1) || (RadioGroup61->ItemIndex==-1) || (RadioGroup62->ItemIndex==-1) || (RadioGroup63->ItemIndex==-1) || (RadioGroup64->ItemIndex==-1) || (RadioGroup65->ItemIndex==-1) || (RadioGroup66->ItemIndex==-1) || (RadioGroup67->ItemIndex==-1) || (RadioGroup68->ItemIndex==-1) || (RadioGroup69->ItemIndex==-1) || (RadioGroup70->ItemIndex==-1) || (RadioGroup71->ItemIndex==-1) ||
(RadioGroup72->ItemIndex==-1)) { Form4->Show();}
else {
if(RadioGroup31->ItemIndex==0){R2++; }else {I2++;} if(RadioGroup32->ItemIndex==0){R2++; }else {S2++;} if(RadioGroup33->ItemIndex==0){R2++; }else {K2++;} if(RadioGroup34->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup35->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup36->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup37->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup38->ItemIndex==0){I2++; }else {P2++;} if(RadioGroup39->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup40->ItemIndex==0){S2++; }else {K2++;} if(RadioGroup41->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup42->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup43->ItemIndex==0){K2++; }else {P2++;} if(RadioGroup44->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup45->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup46->ItemIndex==0){R2++; }else {I2++;} if(RadioGroup47->ItemIndex==0){R2++; }else {S2++;} if(RadioGroup48->ItemIndex==0){R2++; }else {K2++;} if(RadioGroup49->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup50->ItemIndex==0){R2++;I2++; }else {S2++;} if(RadioGroup51->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup52->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup53->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup54->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup55->ItemIndex==0){S2++; }else {K2++;} if(RadioGroup56->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup57->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup58->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup59->ItemIndex==0){K2++; }else {H2++;} if(RadioGroup60->ItemIndex==0){P2++; }else {H2++;} if(RadioGroup61->ItemIndex==0){R2++; }else {I2++;K2++;} if(RadioGroup62->ItemIndex==0){R2++; } if(RadioGroup63->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup64->ItemIndex==0){R2++; }else {H2++;} if(RadioGroup65->ItemIndex==0){I2++; }else {K2++;} if(RadioGroup66->ItemIndex==0){I2++; }else {S2++;} if(RadioGroup67->ItemIndex==0){I2++; }else {H2++;} if(RadioGroup68->ItemIndex==0){S2++; }else {P2++;} if(RadioGroup69->ItemIndex==0){K2++; }else {P2++;} if(RadioGroup70->ItemIndex==0){S2++; }else {H2++;} if(RadioGroup71->ItemIndex==0){R2++; }else {P2++;} if(RadioGroup72->ItemIndex==0){S2++; }else {K2++;}
R2=100/15*R2;
I2=100/14*I2;
S2=100/15*S2;
K2=100/14*K2;
P2=100/13*P2;
H2=100/15*H2;}
Edit7->Text=IntToStr(R2)+"%";
Edit8->Text=IntToStr(I2)+"%";
Edit9->Text=IntToStr(S2)+"%";
Edit10->Text=IntToStr(K2)+"%";
Edit11->Text=IntToStr(P2)+"%";
Edit12->Text=IntToStr(H2)+"%";}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button15Click(TObject *Sender)
{if
(RadioGroup73->ItemIndex==-1) || (RadioGroup74->ItemIndex==-1) || (RadioGroup75->ItemIndex==-1) || (RadioGroup76->ItemIndex==-1) || (RadioGroup77->ItemIndex==-1) || (RadioGroup78->ItemIndex==-1) || (RadioGroup79->ItemIndex==-1) || (RadioGroup80->ItemIndex==-1) || (RadioGroup81->ItemIndex==-1) || (RadioGroup82->ItemIndex==-1) || (RadioGroup83->ItemIndex==-1) || (RadioGroup84->ItemIndex==-1) || (RadioGroup85->ItemIndex==-1) || (RadioGroup86->ItemIndex==-1) || (RadioGroup87->ItemIndex==-1) || (RadioGroup88->ItemIndex==-1) || (RadioGroup89->ItemIndex==-1) || (RadioGroup90->ItemIndex==-1) ||
(RadioGroup91->ItemIndex==-1) || (RadioGroup92->ItemIndex==-1) || (RadioGroup93->ItemIndex==-1) || (RadioGroup94->ItemIndex==-1) || (RadioGroup95->ItemIndex==-1) || (RadioGroup96->ItemIndex==-1) || (RadioGroup97->ItemIndex==-1) || (RadioGroup98->ItemIndex==-1) || (RadioGroup99->ItemIndex==-1) ||
(RadioGroup100->ItemIndex==-1) || (RadioGroup101->ItemIndex==-1) ||
(RadioGroup102->ItemIndex==-1)) { Form4->Show();}
else {
if(RadioGroup73->ItemIndex==0){M3++; } if(RadioGroup74->ItemIndex==0){T3++; } if(RadioGroup75->ItemIndex==0){H3++; } if(RadioGroup76->ItemIndex==0){P3++; } if(RadioGroup77->ItemIndex==0){Z3++; } if(RadioGroup78->ItemIndex==0){M3++; } if(RadioGroup79->ItemIndex==0){P3++; } if(RadioGroup80->ItemIndex==0){Z3++; } if(RadioGroup81->ItemIndex==0){T3++; } if(RadioGroup82->ItemIndex==0){H3++; } if(RadioGroup83->ItemIndex==0){P3++; } if(RadioGroup84->ItemIndex==0){H3++; } if(RadioGroup85->ItemIndex==0){T3++; } if(RadioGroup86->ItemIndex==0){Z3++; } if(RadioGroup87->ItemIndex==0){M3++; } if(RadioGroup88->ItemIndex==0){T3++; } if(RadioGroup89->ItemIndex==0){H3++; } if(RadioGroup90->ItemIndex==0){P3++; } if(RadioGroup91->ItemIndex==0){Z3++; } if(RadioGroup92->ItemIndex==0){M3++; } if(RadioGroup93->ItemIndex==0){T3++; } if(RadioGroup94->ItemIndex==0){Z3++; } if(RadioGroup95->ItemIndex==0){M3++; } if(RadioGroup96->ItemIndex==0){H3++; } if(RadioGroup97->ItemIndex==0){P3++; } if(RadioGroup98->ItemIndex==0){T3++; } if(RadioGroup99->ItemIndex==0){M3++; } if(RadioGroup100->ItemIndex==0){P3++; } if(RadioGroup101->ItemIndex==0){Z3++; } if(RadioGroup102->ItemIndex==0){H3++; }
P3=100/6*P3;
T3=100/6*T3; Z3=100/6*Z3;
H3=100/6*H3;
M3=100/6*M3;}
Edit13->Text=IntToStr(P3)+"%";
Edit14->Text=IntToStr(T3)+"%"; Edit15->Text=IntToStr(Z3)+"%";
Edit16->Text=IntToStr(H3)+"%";
Edit17->Text=IntToStr(M3)+"%";}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button19Click(TObject *Sender)
{Form5->Show();
Form3->Close();}
//--------------------------------------------------------------------------- void __fastcall TForm3::Button1Click(TObject *Sender)
{PageControl1->ActivePage=TabSheet8;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender) {PageControl1->ActivePage=TabSheet8; }
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{PageControl1->ActivePage=TabSheet8;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button20Click(TObject *Sender)
{PageControl1->ActivePage=TabSheet1;}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button16Click(TObject *Sender)
{
if (RadioGroup103->ItemIndex==-1) || (RadioGroup104->ItemIndex==-1) || (RadioGroup105->ItemIndex==-1) || (RadioGroup106->ItemIndex==-1) || (RadioGroup107->ItemIndex==-1) || (RadioGroup108->ItemIndex==-1) || (RadioGroup109->ItemIndex==-1) || (RadioGroup110->ItemIndex==-1) || (RadioGroup111->ItemIndex==-1) || (RadioGroup112->ItemIndex==-1) || (RadioGroup113->ItemIndex==-1) || (RadioGroup114->ItemIndex==-1) || (RadioGroup115->ItemIndex==-1) || (RadioGroup116->ItemIndex==-1) || (RadioGroup117->ItemIndex==-1) || (RadioGroup118->ItemIndex==-1) || (RadioGroup119->ItemIndex==-1) || (RadioGroup120->ItemIndex==-1) || (RadioGroup121->ItemIndex==-1) || (RadioGroup122->ItemIndex==-1) || (RadioGroup123->ItemIndex==-1) || (RadioGroup124->ItemIndex==-1) || (RadioGroup125->ItemIndex==-1) || (RadioGroup126->ItemIndex==-1) || (RadioGroup127->ItemIndex==-1) || (RadioGroup128->ItemIndex==-1) || (RadioGroup129->ItemIndex==-1) || (RadioGroup130->ItemIndex==-1) || (RadioGroup131->ItemIndex==-1) || (RadioGroup132->ItemIndex==-1) || (RadioGroup133->ItemIndex==-1) || (RadioGroup134->ItemIndex==-1) || (RadioGroup135->ItemIndex==-1) || (RadioGroup136->ItemIndex==-1) || (RadioGroup137->ItemIndex==-1) || (RadioGroup138->ItemIndex==-1) || (RadioGroup139->ItemIndex==-1) || (RadioGroup140->ItemIndex==-1) || (RadioGroup141->ItemIndex==-1) || (RadioGroup142->ItemIndex==-1) || (RadioGroup143->ItemIndex==-1) || (RadioGroup144->ItemIndex==-1) || (RadioGroup145->ItemIndex==-1) || (RadioGroup146->ItemIndex==-1) || (RadioGroup147->ItemIndex==-1) || (RadioGroup148->ItemIndex==-1) || (RadioGroup149->ItemIndex==-1) || (RadioGroup150->ItemIndex==-1) || (RadioGroup151->ItemIndex==-1) || (RadioGroup152->ItemIndex==-1) || (RadioGroup153->ItemIndex==-1) || (RadioGroup154->ItemIndex==-1) || (RadioGroup155->ItemIndex==-1) || (RadioGroup156->ItemIndex==-1) || (RadioGroup157->ItemIndex==-1) || (RadioGroup158->ItemIndex==-1)) {
Form4->Show();
}else {
if(RadioGroup103->ItemIndex==0){M4++; } if(RadioGroup104->ItemIndex==0){O4++; } if(RadioGroup105->ItemIndex==0){S4++; } if(RadioGroup106->ItemIndex==0){V4++; } if(RadioGroup107->ItemIndex==0){A4++; } if(RadioGroup108->ItemIndex==0){R4++; } if(RadioGroup109->ItemIndex==0){N4++; } if(RadioGroup110->ItemIndex==0){M4++; } if(RadioGroup111->ItemIndex==0){O4++; } if(RadioGroup112->ItemIndex==0){S4++; } if(RadioGroup113->ItemIndex==0){V4++; } if(RadioGroup114->ItemIndex==0){A4++; } if(RadioGroup115->ItemIndex==0){R4++; } if(RadioGroup116->ItemIndex==0){N4++; } if(RadioGroup117->ItemIndex==0){M4++; } if(RadioGroup118->ItemIndex==0){O4++; } if(RadioGroup119->ItemIndex==0){S4++; } if(RadioGroup120->ItemIndex==0){V4++; } if(RadioGroup121->ItemIndex==0){A4++; } if(RadioGroup122->ItemIndex==0){R4++; } if(RadioGroup123->ItemIndex==0){N4++; } if(RadioGroup124->ItemIndex==0){M4++; } if(RadioGroup125->ItemIndex==0){O4++; } if(RadioGroup126->ItemIndex==0){S4++; } if(RadioGroup127->ItemIndex==0){V4++; } if(RadioGroup128->ItemIndex==0){A4++; } if(RadioGroup129->ItemIndex==0){R4++; } if(RadioGroup130->ItemIndex==0){N4++; } if(RadioGroup131->ItemIndex==0){M4++; } if(RadioGroup132->ItemIndex==0){O4++; } if(RadioGroup133->ItemIndex==0){S4++; } if(RadioGroup134->ItemIndex==0){V4++; } if(RadioGroup135->ItemIndex==0){A4++; } if(RadioGroup136->ItemIndex==0){R4++; } if(RadioGroup137->ItemIndex==0){N4++; } if(RadioGroup138->ItemIndex==0){M4++; } if(RadioGroup139->ItemIndex==0){O4++; } if(RadioGroup140->ItemIndex==0){S4++; } if(RadioGroup141->ItemIndex==0){V4++; } if(RadioGroup142->ItemIndex==0){A4++; } if(RadioGroup143->ItemIndex==0){R4++; } if(RadioGroup144->ItemIndex==0){N4++; } if(RadioGroup145->ItemIndex==0){M4++; } if(RadioGroup146->ItemIndex==0){O4++; } if(RadioGroup147->ItemIndex==0){S4++; } if(RadioGroup148->ItemIndex==0){V4++; } if(RadioGroup149->ItemIndex==0){A4++; } if(RadioGroup150->ItemIndex==0){R4++; } if(RadioGroup151->ItemIndex==0){N4++; } if(RadioGroup152->ItemIndex==0){M4++; } if(RadioGroup153->ItemIndex==0){O4++; } if(RadioGroup154->ItemIndex==0){S4++; } if(RadioGroup155->ItemIndex==0){V4++; } if(RadioGroup156->ItemIndex==0){A4++; } if(RadioGroup157->ItemIndex==0){R4++; } if(RadioGroup158->ItemIndex==0){N4++; }
M4=100/7*M4;
O4=100/7*O4;
S4=100/7*S4;
V4=100/7*V4;
A4=100/7*A4;
R4=100/7*R4;
N4=100/7*N4;
}
Edit18->Text=IntToStr(M4)+"%";
Edit19->Text=IntToStr(O4)+"%";
Edit20->Text=IntToStr(S4)+"%"; Edit21->Text=IntToStr(V4)+"%";
Edit22->Text=IntToStr(A4)+"%";
Edit23->Text=IntToStr(R4)+"%";
Edit24->Text=IntToStr(N4)+"%";}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button17Click(TObject *Sender)
{
if ((RadioGroup159->ItemIndex==-1) || (RadioGroup160->ItemIndex==-1) || (RadioGroup161->ItemIndex==-1) || (RadioGroup162->ItemIndex==-1) || (RadioGroup163->ItemIndex==-1) || (RadioGroup164->ItemIndex==-1) || (RadioGroup165->ItemIndex==-1) || (RadioGroup166->ItemIndex==-1) || (RadioGroup167->ItemIndex==-1) || (RadioGroup168->ItemIndex==-1) || (RadioGroup169->ItemIndex==-1) || (RadioGroup170->ItemIndex==-1) || (RadioGroup171->ItemIndex==-1) || (RadioGroup172->ItemIndex==-1) || (RadioGroup173->ItemIndex==-1) || (RadioGroup174->ItemIndex==-1) || (RadioGroup175->ItemIndex==-1) || (RadioGroup176->ItemIndex==-1) || (RadioGroup177->ItemIndex==-1) || (RadioGroup178->ItemIndex==-1) || (RadioGroup179->ItemIndex==-1) || (RadioGroup180->ItemIndex==-1) || (RadioGroup181->ItemIndex==-1) || (RadioGroup182->ItemIndex==-1) || (RadioGroup183->ItemIndex==-1) || (RadioGroup184->ItemIndex==-1) || (RadioGroup185->ItemIndex==-1) || (RadioGroup186->ItemIndex==-1) || (RadioGroup187->ItemIndex==-1) || (RadioGroup188->ItemIndex==-1) || (RadioGroup189->ItemIndex==-1) || (RadioGroup190->ItemIndex==-1) || (RadioGroup191->ItemIndex==-1) || (RadioGroup192->ItemIndex==-1) || (RadioGroup193->ItemIndex==-1) || (RadioGroup194->ItemIndex==-1) || (RadioGroup195->ItemIndex==-1) || (RadioGroup196->ItemIndex==-1) || (RadioGroup197->ItemIndex==-1) ||