Выбор оптимальной топологии сети и расчет минимальной суммарной длинны соединительного кабеля с помощью программы, страница 6

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

  L_opt = L_opt + abs(hub[2].x - hub[i].x)+

                  abs(hub[2].y - hub[i].y)+

                  abs(hub[2].z - hub[i].z);

  }

//####################################################

//Вывод результатов

//####################################################

char a[100];

char b[10];

int Price = 0;

Price = L_opt*cena_opt + 4410;

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

 {

  if(i!=2)

   Price = Price + (hub[i].Lsegm *cena_vit);

 }

Memo1->Lines->Add("---------------------------------------------------");

itoa(L_opt,b,10);

strcpy(a,"Используемая длина оптоволоконной линии:  ");

strcat(a,b);

  Memo1->Lines->Add(a);

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

{

  strcpy(a,"Длина витой пары в ");

  itoa((i+1),b,10);

  strcat(a,b);

  strcat(a,"-м здании : ");

  itoa(hub[i].Lsegm,b,10);

  strcat(a,b);

  Memo1->Lines->Add(a);

}

itoa(Price,b,10);

strcpy(a,"Стоимость сетевого оборудования:   ");

strcat(a,b);

  Memo1->Lines->Add(a);

Memo1->Lines->Add("---------------------------------------------------");

}

//Вывод координат рабочих станций -----------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)

{

//============ 1-e здание =================

 Form3->Edit1->Text = mas_comp[0].x;

 Form3->Edit2->Text = mas_comp[0].y;

 Form3->Edit3->Text = mas_comp[0].z;

 Form3->Edit4->Text = mas_comp[1].x;

 Form3->Edit5->Text = mas_comp[1].y;

 Form3->Edit6->Text = mas_comp[1].z;

 Form3->Edit7->Text = mas_comp[2].x;

 Form3->Edit8->Text = mas_comp[2].y;

 Form3->Edit9->Text = mas_comp[2].z;

 Form3->Edit10->Text = mas_comp[3].x;

 Form3->Edit11->Text = mas_comp[3].y;

 Form3->Edit12->Text = mas_comp[3].z;

//============ 2-e здание =================

 Form3->Edit13->Text = mas_comp[4].x;

 Form3->Edit14->Text = mas_comp[4].y;

 Form3->Edit15->Text = mas_comp[4].z;

 Form3->Edit16->Text = mas_comp[5].x;

 Form3->Edit17->Text = mas_comp[5].y;

 Form3->Edit18->Text = mas_comp[5].z;

 Form3->Edit19->Text = mas_comp[6].x;

 Form3->Edit20->Text = mas_comp[6].y;

 Form3->Edit21->Text = mas_comp[6].z;

 Form3->Edit22->Text = mas_comp[7].x;

 Form3->Edit23->Text = mas_comp[7].y;

 Form3->Edit24->Text = mas_comp[7].z;

//============ 3-e здание =================

 Form3->Edit25->Text = mas_comp[8].x;

 Form3->Edit26->Text = mas_comp[8].y;

 Form3->Edit27->Text = mas_comp[8].z;

 Form3->Edit28->Text = mas_comp[9].x;

 Form3->Edit29->Text = mas_comp[9].y;

 Form3->Edit30->Text = mas_comp[9].z;

 Form3->Edit31->Text = mas_comp[10].x;

 Form3->Edit32->Text = mas_comp[10].y;

 Form3->Edit33->Text = mas_comp[10].z;

 Form3->Edit34->Text = mas_comp[11].x;

 Form3->Edit35->Text = mas_comp[11].y;

 Form3->Edit36->Text = mas_comp[11].z;

//============ 4-e здание =================

 Form3->Edit37->Text = mas_comp[12].x;

 Form3->Edit38->Text = mas_comp[12].y;

 Form3->Edit39->Text = mas_comp[12].z;

 Form3->Edit40->Text = mas_comp[13].x;

 Form3->Edit41->Text = mas_comp[13].y;

 Form3->Edit42->Text = mas_comp[13].z;

 Form3->Edit43->Text = mas_comp[14].x;

 Form3->Edit44->Text = mas_comp[14].y;

 Form3->Edit45->Text = mas_comp[14].z;

 Form3->Edit46->Text = mas_comp[15].x;

 Form3->Edit47->Text = mas_comp[15].y;

 Form3->Edit48->Text = mas_comp[15].z;

 Form3->ShowModal();

}

//Установка флага оптимизации (по витой паре)--------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

 M_flag = 1;

}

//Установка флага оптимизации (по оптоволокну)------------------------------------------------

void __fastcall TForm1::N12Click(TObject *Sender)

{

 M_flag = 2;

}

//Вывод информации о программе--------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)

{

AboutBox->ShowModal();

}

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