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

{

p2="t"+IntToStr(j+1)+",";

p+=p2;

}

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

if(z+1==StrToInt(Form1->StringGrid1->Cells[zz][j]))

{

t2="t"+IntToStr(j+1)+",";

t+=t2; }

}

if(p.Pos("t")) p[p.Length()]='}';else p+="}";

Form1->Memo1->Lines->Add(p);

if(t.Pos("t")) t[t.Length()]='}';else t+="}";

Form1->Memo2->Lines->Add(t);

}}

//=========================================================

void __fastcall TForm1::FormCreate(TObject *Sender)

{

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

{

StringGrid1->Cells[0][i]="I(t"+IntToStr(i+1)+")";

StringGrid2->Cells[0][i]="O(t"+IntToStr(i+1)+")";

}

StringGrid3->Cells[0][0]=" м";

StringGrid3->Cells[1][0]="5";

StringGrid3->Cells[2][0]="5";

StringGrid3->Cells[3][0]="5";

StringGrid3->Cells[4][0]="5";

}