Реферат: Разработка алгоритма и программного обеспечения для решения прикладной задачи теории графов

#pragma package(smart_init)

#pragma resource "*.dfm"

TFA *FA;

int v, i, j, y;

AnsiString namegraf;

int **g = new int *[v]; //массив указателей на строки

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

__fastcall TFA::TFA(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFA::BnewgrafClick(TObject *Sender)

{

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

{

StringGrid1->Rows[s]->Clear();

}

memo1->Lines->Clear();

Eput->Clear();

v=StrToInt(Ev->Text);

namegraf=Enamegraf->Text;

namegraf=namegraf+".txt";

StringGrid1->RowCount=v+1;

StringGrid1->ColCount=v+1;

for (int i=1; i<v+1; i++)

{

StringGrid1->Cells[0][i]=IntToStr(i-1);

StringGrid1->Cells[i][0]=IntToStr(i-1);