На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3


for(int j=ii;j
if(m1[i][0]==m1[j][1] && m1[j][kolvo_s+3]!=-1 && i!=j)

{ m1[j][kolvo_s]+=m1[i][kolvo_s];

m1[j][kolvo_s+3]=rodnia(j,ii На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3);

}

inFath(ret);

return ret;

}

//***funkthyia vernet 0 esli on syn dannago otha inace -1*****

double rodnia(int j,int ii)

{

int chek=m1[j][1];

for (int i=j;j>=0;j--)

for (int jj=kolvo_x На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3;jj>0;jj--)

if(chek==m1[jj][0])

{chek=m1[jj][1];

if(m1[jj][0]==m1[ii][0])

return -1;}

return 0;

}

//***znacenie topika******************************************

AnsiString topik(int x)

{

if(x==0) return(" ");

if(x==1) return(" Начальные данные "+of На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3);

if(x==2) return(" "+ExtractFileName(of)+" -> "+ExtractFileName(sf));

}

//***funkthyia dli proverki uslovia zadaci********************

void cheku()

{

if(MAX==1) Form1->N19->Checked=true;

else Form1->N20->Checked=true;

if(Form1->ComboBox1->Text=="определенности")

{Form1->N На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 314->Checked=true;

Form1->RadioButton1->Enabled=false;

Form1->RadioButton2->Enabled=false;

Form1->StaticText1->Enabled=false;

Form1->N18->Enabled=false;

}

else{Form1->N14->Checked=false;}

if(Form1->ComboBox1->Text=="риска")

{Form1->N18->Enabled На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3=true;

Form1->N16->Checked=true;

Form1->MaskEdit1->Enabled=false;

Form1->BitBtn1->Enabled=false;

Form1->RadioButton1->Enabled=true;

Form1->RadioButton2->Enabled=true;

Form1->StaticText1->Enabled=true;}

else{Form1->N16->Checked=false;}

if(Form1->ComboBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->Text=="неопределенности")

{Form1->N18->Enabled=true;

Form1->N15->Checked=true;

Form1->N5->Enabled=true;

Form1->CheckBox5->Enabled=true;

Form1->CheckBox1->Checked=false;

Form1->CheckBox2->Checked=false;

Form1->CheckBox3->Checked=false;

Form1->CheckBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 34->Checked=false;

Form1->RadioButton1->Enabled=true;

Form1->RadioButton2->Enabled=true;

Form1->StaticText1->Enabled=true;

}

else

{Form1->N15->Checked=false;

Form1->N5->Enabled=false;

Form1->CheckBox1->Enabled=false;

Form1->CheckBox2->Enabled=false На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3;

Form1->CheckBox3->Enabled=false;

Form1->CheckBox4->Enabled=false;

Form1->CheckBox5->Enabled=false;

Form1->StaticText2->Enabled=false;

Form1->MaskEdit1->Enabled=false;

Form1->BitBtn1->Enabled=false;

}

}

//***funkthyia sokrashenia stroki razreshaiushego elimenta****

void cok(int На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 i)

{

vrem=m1[i][i];

for(int j=0;j
m1[i][j]/=vrem;

}

//***funkthyia peciati i vozvrata prinimaemago uslovia********

int printMinMax(int j, char *str)

{int pozith=0;

if(MAX==1)

{ fprintf На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(sFile,"\n %smax{%.3lf",str, m1[0][j]);

vrem=m1[0][j];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m1[i][j]);

if(vrem
{vrem=m1[i][j];

pozith=i;

}

}

fprintf На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(sFile,"} = %.3lf",vrem);

}

else

{ fprintf(sFile,"\n %smin{%.3lf",str, m1[0][j]);

vrem=m1[0][j];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m1[i][j]);

if(vrem>m1[i][j])

{vrem=m1[i На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3][j];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);

}

return pozith+1;

}

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::ToolButton1Click(TObject *Sender)

{

if(OpenDialog1->Execute())

{ of = (OpenDialog1->FileName);

oFile = fopen На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(of.c_str(),"r");

}

if(of!="")

{Form1->Caption=topik(2);

Form1->ToolButton3->Enabled=true;

Form1->run1->Enabled=true;

}

}

void __fastcall TForm1::ToolButton2Click(TObject *Sender)

{

SaveDialog1->Options << ofFileMustExist;

if(SaveDialog1->Execute())

{ sf На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 = (SaveDialog1->FileName);

if (ExtractFileExt(sf)!=".txt" & SaveDialog1->FilterIndex==1)

sf=sf+".txt";

}

Form1->Caption=topik(2);

}

void __fastcall TForm1::ToolButton3Click(TObject *Sender)

{

oFile = fopen(of.c_str(),"r");

fscanf(oFile,"%d",&kolvo На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3_x);

fscanf(oFile,"%d",&kolvo_s);

for(int i=0;i
for(int j=0;j
fscanf(oFile,"%lf",&m1[i][j]);

fclose(oFile);

if(Form1->ComboBox1->Text=="неопределенности")

{

if(Form1->CheckBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 35->Checked==true)

{

//***vycislili pribyli*************************************

for(int i=0;i
{for(int j=2;j
{vrem=m1[i][j]*m1[i][j+1];

m1[i][kolvo_s]+=vrem;

j+=2;

}

m1[i][kolvo_s На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3]-=m1[i][kolvo_s-1];

}


//***nahodim vershiny s priniatiem reshenii****************

for(int i=0;i
if(m1[i][kolvo_s]==0)

{

vektor[ivek]=i;

ivek++;

}

ivek--;

//***nahojdenie konthevyh rezulitatov na vetkah************

//***kopiruem vershiny На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3*************************************

for(int i=0;i
for(int j=0;j<2;j++)

m2[i][j]=m1[i][j];

//***nahojdenie konthov************************************

for(int i=ivek;i>=0;)

{

vrem=koneth(vektor[i]);

if(vektor[i]==vrem)

{

m1[int На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(vrem)][kolvo_s+1]=m1[int(vektor[i-1])][0];

i--;

}else

{

m1[int(vrem)][kolvo_s+1]=m1[int(vektor[i])][0];

}

}

//***akkumuliathyia vetok**********************************

vrem=kolvo_x;

for(int j=ivek;j>=0;j--)

{

vrem=vvodZnach(int На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(vektor[j]),vrem);

}

sFile = fopen(sf.c_str(),"a");

fprintf(sFile,"\n[%s ]\n",topik(1));

fprintf(sFile,"[ Условие задачки ]");

fprintf(sFile,"\n__________сын|_________отец|");

for(int j=0, i=1;j
",i);

j На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3+=2;



fprintf(sFile,"______фактор%d|\n",kolvo_s/2);

for(int i=0;i
for(int j=0;j
fprintf(sFile,"%13.3lf

fprintf(sFile,"Задачка на принятие решения в условии неопределенности, задачка на На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 ");

if(MAX==1)

fprintf(sFile,"максимум.");

else

fprintf(sFile,"минимум.");

fprintf(sFile,"\n Значением хорошим решением является %.3lf ",m1[0][kolvo_s]);

fprintf(sFile,"\n Путь решения [%.0lf] -> -> ",m1[0][0]);

vrem=m1[0][kolvo На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3_s+2];

for(int i=0;i
if(m1[i][0]==vrem)

if(m1[i][kolvo_s+2]!=0)

vrem=m1[i][kolvo_s+2];

fprintf(sFile,"(%.0lf).",vrem);

}else //else dlia otkliucennogo dereva

{

//***nahodim min max po iksam********************************

for На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(int i=0;i
{m1[i][kolvo_s]=m1[i][0];

m1[i][kolvo_s+1]=m1[i][0];

for(int j=0;j
{

m1[i][kolvo_s]=(m1[i][kolvo_s На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3]
m1[i][kolvo_s+1]=(m1[i][kolvo_s+1]>m1[i][j]?m1[i][kolvo_s+1]:m1[i][j]);

}

}

//***nahodim max po igrikam*********************************

for На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(int j=0;j
{m1[kolvo_x][j]=m1[j][0];

m1[kolvo_x+1][j]=m1[j][0];

for(int i=0;i
{ m1[kolvo_x][j]=(m1[kolvo На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3_x][j]>m1[i][j]?m1[kolvo_x][j]:m1[i][j]);

m1[kolvo_x+1][j]=(m1[kolvo_x+1][j]
}

}

//***uje gotova matritha s min На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 max*************************

//zapolniaem matrithy sojalenii****************************

for(int j=0;j
for(int i=0;i
m2[i][j]=m1[i][j]-m1[kolvo_x][j];

//***vvod minimuma v matruthy sojalenii На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3********************

for(int i=0;i
{m2[i][kolvo_s]=m2[i][0];

for(int j=0;j
m2[i][kolvo_s]=(m2[i][kolvo_s]
}

sFile = fopen(sf.c_str(),"a");

fprintf(sFile,"\n[%s ]\n",topik(1));

fprintf(sFile,"[ Условие задачки ]");

fprintf(sFile,"\n x\\y");

for(int j=0;j
fprintf На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(sFile,"________y%d|",j+1);

for(int i=0;i
",m1[i][j]);



fprintf(sFile,"\nЗадача на принятие решения в условии неопределенности.");

//***kriterii valida******************************************

int pozith=0;

if(Form1->CheckBox1->Checked==true)

{

fprintf(sFile На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3,"\n[ Аспект Вальда ]");

if(MAX==1)

{fprintf(sFile,"\n maxXminY Uij = max{%.3lf",m1[0][kolvo_s]);

vrem=m1[0][kolvo_s];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31[i][kolvo_s]);

if(vrem
{vrem=m1[i][kolvo_s];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);

}else

{fprintf(sFile,"\n minXmaxY Uij = min{%.3lf",m1[0][kolvo_s+1]);

vrem=m1[0][kolvo_s+1];

for (int На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 i=1;i
{fprintf(sFile,",%9.3lf",m1[i][kolvo_s+1]);

if(vrem>m1[i][kolvo_s+1])

{vrem=m1[i][kolvo_s+1];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);}

fprintf(sFile,"\n Согласно На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 аспекту Вальда следует предугадать принятие решения x%d.",pozith+1);

};

//***kriterii sevidja*****************************************

if(Form1->CheckBox2->Checked==true)

{

fprintf(sFile,"\n[ Аспект Сэвиджа ]");

if(MAX==1)

{fprintf(sFile,"\n maxXminY Uij = max{%.3lf",m2[0][kolvo На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3_s]);

vrem=m2[0][kolvo_s];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m2[i][kolvo_s]);

if(vrem
{vrem=m2[i][kolvo_s];

pozith=i;

}

}

fprintf(sFile На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3,"} = %.3lf",vrem);

}else

{fprintf(sFile,"\n maxXminY Uij = min{%.3lf",m2[0][kolvo_s]);

vrem=m2[0][kolvo_s];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m2[i][kolvo_s На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3]);

if(vrem>m2[i][kolvo_s])

{vrem=m2[i][kolvo_s];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);}

fprintf(sFile,"\n Согласно аспекту Сэвиджа следует предугадать принятие решения x%d.",pozith+1);

};

//***kriterii laplasa*****************************************

if(Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->CheckBox3->Checked==true)

{

for(int i=0;i
for(int j=0;j
m1[i][kolvo_s+2]+=m1[i][j]/kolvo_s;

fprintf(sFile,"\n[ Аспект Лапласа ]");

fprintf(sFile,"\n На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 P{Q=Qj}=1/%d ",kolvo_s);

fprintf(sFile,"\n Согласно аспекту Лапласа следует предугадать принятие решения x%d.",printMinMax(kolvo_s+2, ""));

}

//***kriterii Гурвица*****************************************

if(Form1->CheckBox4->Checked==true)

{

double gr На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3=StrToFloat(Form1->MaskEdit1->Text);

fprintf(sFile,"\n[ Аспект Гурвица ]");

for(int i=0;i
m1[i][kolvo_s+3]=m1[i][kolvo_s]*(1.0-gr)+m1[i][kolvo_s+1]*gr;

fprintf(sFile,"\n На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 Показатель оптимизма P=%.2lf",gr);

fprintf(sFile,"\n Согласно аспекту Гурвица следует предугадать принятие решения x%d.",printMinMax(kolvo_s+3, ""));

}

fclose(sFile);

}

}

if(Form1->ComboBox1->Text=="риска")

{ sFile = fopen(sf.c_str(),"a");

fprintf(sFile На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3,"\n[%s ]\n",topik(1));

fprintf(sFile,"[ Условие задачки ]");

fprintf(sFile,"\n ___|");

for(int j=0,i=1 ;j
",i);

j+=2;



for(int i=0;i
",m1[i][j]);



for(int На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 i=0;i
for(int j=0;j
{m1[i][kolvo_s]+=m1[i][j]*m1[i][j+1];

j+=2;}

int pozith=0;

fprintf(sFile,"\nЗадача на принятие решения в условии риска, задачка На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 на ");

if(MAX==1)

{ fprintf(sFile,"максимум.");

fprintf(sFile,"\n maxMi = max{%.3lf",m1[0][kolvo_s]);

vrem=m1[0][kolvo_s];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m1[i На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3][kolvo_s]);

if(vrem
{vrem=m1[i][kolvo_s];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);

fprintf(sFile,"\n Cледует предугадать принятие решения y%d.",pozith+1);

}

else

{fprintf(sFile,"минимум.");

fprintf На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(sFile,"\n minMi = min{%.3lf",m1[0][kolvo_s]);

vrem=m1[0][kolvo_s];

for (int i=1;i
{fprintf(sFile,",%9.3lf",m1[i][kolvo_s]);

if(vrem>m1[i][kolvo_s])

{vrem=m На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31[i][kolvo_s];

pozith=i;

}

}

fprintf(sFile,"} = %.3lf",vrem);

fprintf(sFile,"\n Cледует предугадать принятие решения y%d.",pozith+1);

}

}

if(Form1->ComboBox1->Text=="определенности")

{

sFile = fopen(sf.c_str(),"a");

fprintf(sFile На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3,"\n[%s ]\n",topik(1));

fprintf(sFile,"[ Условие задачки ]\n ");

for(int i=0;i
{for(int j=0;j
{ if(m1[i][j]>0 && j
if(j==kolvo На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3_s-1) fprintf(sFile,"=");

if(m1[i][j]!=0)

{fprintf(sFile,"%.2lf",m1[i][j]);

if(j
fprintf(sFile,"x%d",j+1);}}

fprintf(sFile,"\n ");}

fprintf(sFile,"Мотивированная функция\n Z=");

for На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 (int j=0;j
{if(m1[kolvo_x-1][j]!=0)

{if(m1[kolvo_x-1][j]>0)

fprintf(sFile,"+");

fprintf(sFile,"%.2lfx%d",m1[kolvo_x-1][j],j+1);

m1[kolvo_x-1][j]*=-1;}}

fprintf(sFile,"->max На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3");

fprintf(sFile,"\nЗадача на принятие решения в условии определенности.");

for(int ii=0;ii
{cok(ii);

for(int i=0;i
{vrem=m1[i][ii];

for(int j=0;j
if(ii!=i)

m1[i][j]=m1[ii][ii]*m1[i][j]-m1[ii][j]*vrem;

}

}

fprintf(sFile,"\n X=(%.3lf",m1[0][kolvo_s-1]);

for(int i=1;i
fprintf(sFile,", %.3lf",m1[i][kolvo_s-1]);

for(int i=kolvo_x;i
fprintf(sFile,", %.3lf",m1[i][kolvo_s-1]);

fprintf(sFile,") \n Z=%.4lf",m1[kolvo_x-1][kolvo_s На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3-1]);

}

peciati(kolvo_x,kolvo_s+4,0);

fclose(oFile);

fclose(sFile);

Form1->Caption=topik(2);

Form1->ToolButton4->Enabled=true;

Form1->ToolButton5->Enabled=true;

Form1->N2->Enabled=true;

Form1->N3->Enabled=true;

Form1->StatusBar->SimpleText="Вычисления произведены На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3";

zanuliti();

}

void __fastcall TForm1::ToolButton4Click(TObject *Sender)

{

fclose(oFile);

oFile = fopen(sf.c_str(),"w");

fclose(oFile);

oFile = fopen(of.c_str(),"r");

Form1->StatusBar->SimpleText="Очищен файл результатов На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 '"+sf+"'";

Form1->ToolButton4->Enabled=false;

Form1->ToolButton5->Enabled=false;

Form1->N2->Enabled=false;

Form1->N3->Enabled=false;

}

void __fastcall TForm1::ExitAltF41Click(TObject *Sender)

{

fclose(oFile);

fclose(sFile);

exit(1);

}

void __fastcall TForm1::ToolButton5Click На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(TObject *Sender)

{

fclose(sFile);

spawnlp(P_NOWAIT, "notepad.EXE", "", sf, "", NULL);

MessageBeep(0);

}

void __fastcall TForm1::About2Click(TObject *Sender)

{

MessageBeep(0);

Form2 = new TForm2(Application);

Form2->ShowModal();

delete Form2;

}

void __fastcall TForm1::N6Click На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3(TObject *Sender)

{

if(Form1->N6->Checked==false)

{Form1->N6->Checked=true;

Form1->CheckBox1->Checked=true;

Form1->CheckBox2->Checked=true;

Form1->CheckBox3->Checked=true;

Form1->CheckBox4->Checked=true;

Form1->CheckBox5->Checked=true;

}else На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3{

Form1->N6->Checked=false;

Form1->N8->Checked=false;

Form1->N9->Checked=false;

Form1->N10->Checked=false;

Form1->N11->Checked=false;

Form1->CheckBox5->Checked=false;

}

}

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->N6->Checked=false;

if(Form1->N8->Checked==false)

{

Form1->N8->Checked=true;

Form1->CheckBox1->Checked=true;

}else{

Form1->N8->Checked=false;

Form1->CheckBox1->Checked=false;

}

Form1->CheckBox5->Checked=false На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3;

}

void __fastcall TForm1::N9Click(TObject *Sender)

{

Form1->N6->Checked=false;

if(Form1->N9->Checked==false)

{

Form1->N9->Checked=true;

Form1->CheckBox2->Checked=true;

}else{

Form1->N9->Checked=false;

Form1->CheckBox2->Checked=false;

}

Form1->CheckBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 35->Checked=false;

}

void __fastcall TForm1::N10Click(TObject *Sender)

{

Form1->N6->Checked=false;

if(Form1->N10->Checked==false)

{

Form1->N10->Checked=true;

Form1->CheckBox3->Checked=true;

}else{

Form1->N10->Checked=false;

Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->CheckBox3->Checked=false;

}

Form1->CheckBox5->Checked=false;

}

void __fastcall TForm1::N11Click(TObject *Sender)

{

Form1->N6->Checked=false;

if(Form1->N11->Checked==false)

{

Form1->N11->Checked=true;

Form1->CheckBox4->Checked=true На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3;

}else{

Form1->N11->Checked=false;

Form1->CheckBox4->Checked=false;

}

Form1->CheckBox5->Checked=false;

}

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

MAX=-1;

}

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

MAX=1;

}

void На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

cheku();

}

void __fastcall TForm1::CheckBox1Click(TObject *Sender)

{

Form1->N8->Checked=Form1->CheckBox1->Checked;

if(Form1->CheckBox1->Checked==true)

Form1->N6->Checked=false;

}

void __fastcall TForm1::CheckBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 32Click(TObject *Sender)

{

Form1->N9->Checked=Form1->CheckBox2->Checked;

if(Form1->CheckBox2->Checked==true)

Form1->N6->Checked=false;

}

void __fastcall TForm1::CheckBox3Click(TObject *Sender)

{

Form1->N10->Checked=Form1->CheckBox3->Checked;

if(Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->CheckBox3->Checked==true)

Form1->N6->Checked=false;

}

void __fastcall TForm1::CheckBox4Click(TObject *Sender)

{

Form1->N11->Checked=Form1->CheckBox4->Checked;

if(Form1->CheckBox4->Checked==true)

{ Form1->N6->Checked=false;

Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->BitBtn1->Enabled=true;

}else

{

Form1->BitBtn1->Enabled=false;

Form1->MaskEdit1->Enabled=false;

}

}

void __fastcall TForm1::CheckBox5Click(TObject *Sender)

{

if(Form1->CheckBox5->Checked==false)

{Form1->N6->Checked=false;

Form1->BitBtn1->Enabled=true;

Form1->CheckBox На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->Enabled=true;

Form1->CheckBox2->Enabled=true;

Form1->CheckBox3->Enabled=true;

Form1->CheckBox4->Enabled=true;

Form1->CheckBox1->Checked=true;

Form1->CheckBox2->Checked=true;

Form1->CheckBox3->Checked=true;

Form1->CheckBox4->Checked=true;

Form1->StaticText На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 32->Enabled=true;

}

else{

Form1->N6->Checked=true;

Form1->CheckBox1->Enabled=false;

Form1->CheckBox2->Enabled=false;

Form1->CheckBox3->Enabled=false;

Form1->CheckBox4->Enabled=false;

Form1->CheckBox1->Checked=false;

Form1->CheckBox2->Checked=false На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3;

Form1->CheckBox3->Checked=false;

Form1->CheckBox4->Checked=false;

Form1->StaticText2->Enabled=false;

Form1->N8->Checked=false;

Form1->N9->Checked=false;

Form1->N10->Checked=false;

Form1->N11->Checked=false;

Form1->MaskEdit1->Enabled=false;

Form На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 31->BitBtn1->Enabled=false;

}

}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Form1->MaskEdit1->Enabled=true;

}

void __fastcall TForm1::N14Click(TObject *Sender)

{

Form1->ComboBox1->Text="определенности";

cheku();

}

void __fastcall TForm1::N15Click(TObject На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 *Sender)

{

Form1->ComboBox1->Text="неопределенности";

cheku();

}

void __fastcall TForm1::N16Click(TObject *Sender)

{

Form1->ComboBox1->Text="риска";

cheku();

}

void __fastcall TForm1::N13Click(TObject *Sender)

{

cheku();

}

void __fastcall TForm1::N19Click(TObject На тему: Использование “дерева решений в многоэтапных задачах принятия решений - страница 3 *Sender)

{

Form1->RadioButton1->Checked=true;

}

void __fastcall TForm1::N20Click(TObject *Sender)

{

Form1->RadioButton2->Checked=true;

}



na-trasse-sooruzheniya-linejnogo-vida.html
na-trudoyomkost-i-sebestoimost.html
na-turnire-v-kazani-vistupit-7-letnyaya-mariya-podtyagivayushayasya-bolee-25-raz-intertatru-05072012.html