Контрольная работа: Предметна область системного аналізу Основні поняття системного аналізу

//---------------------------------------------------------------------------

void run()

{

P[0].z=StrToInt(Form1->StringGrid3->Cells[1][0]); T[0].z=0; ccc[0]=P[0].z;

P[1].z=StrToInt(Form1->StringGrid3->Cells[2][0]); T[1].z=0; ccc[1]=P[1].z;

P[2].z=StrToInt(Form1->StringGrid3->Cells[3][0]); T[2].z=0; ccc[2]=P[2].z;

P[3].z=StrToInt(Form1->StringGrid3->Cells[4][0]); T[3].z=0; ccc[3]=P[3].z;

int z;

for(z=0; z<n; z++)

{

for(int i=0; i<n; i++)

{P[z].t[i]=0; T[i].p[z]=0;

for(int j=0; j<Form1->StringGrid1->ColCount; j++)

{

if((StrToIntDef(Form1->StringGrid2->Cells[j][i],0)))

if(z+1==StrToInt(Form1->StringGrid2->Cells[j][i]))P[z].t[i]++;

if((StrToIntDef(Form1->StringGrid1->Cells[j][i],0)))

if(z+1==StrToInt(Form1->StringGrid1->Cells[j][i]))T[i].p[z]++;

}}}}

//---------------------------------------------------------------------------

void search()

{ AnsiString p,p2,t,t2; int z,j,zz;

for(z=0; z<Form1->StringGrid1->RowCount; z++)

{ p="I(p"+IntToStr(z+1)+")={";

t="O(p"+IntToStr(z+1)+")={";

for(j=0; j<Form1->StringGrid2->RowCount; j++)

for(zz=0; zz<Form1->StringGrid2->ColCount; zz++)

{

if((StrToIntDef(Form1->StringGrid2->Cells[zz][j],0)))