Экспертная система расчета выбросов загрязняющих веществ при пересыпке пылящих материалов (растворный узел)

         Edit7->SetFocus();

         Edit7->Clear();

         }

try

   {

       Fpl=StrToFloat(Edit8->Text);

      }

        catch(EConvertError&)

   {

   Memo1->Lines->Add("Поверхность пыления, м2");

         Edit8->SetFocus();

         Edit8->Clear();

         }

try

   {

       Frab=StrToFloat(Edit9->Text);

      }

        catch(EConvertError&)

   {

   Memo1->Lines->Add("Площадь на которой систематически проводятся погрузочно-разгрузочные работы, м2");

         Edit9->SetFocus();

         Edit9->Clear();

         }

try

   {

       Tc=StrToFloat(Edit11->Text);

      }

        catch(EConvertError&)

   {

   Memo1->Lines->Add("Число снежных дней в году");

         Edit11->SetFocus();

         Edit11->Clear();

         }

try

   {

       koeff=StrToFloat(Edit10->Text);

      }

        catch(EConvertError&)

   {

   Memo1->Lines->Add("Коэффицент эффективности борьбы с пылением");

         Edit10->SetFocus();

         Edit10->Clear();

         }

  Memo2->Lines->Clear();

  M=k1*k2*k3*k4*k5*k7*GH*B*(1000000/3600);

  P=k1*k2*k3*k4*k5*k7*GY*B;

              Form1->Memo2->Lines->Add("Выброс пыли (SiO2) при перегрузке составит "+FloatToStr(M)+" г/c");

              Form1->Memo2->Lines->Add("Выброс пыли (SiO2) при перегрузке составит "+FloatToStr(P)+" т/г"); 

  k6=Fmax/Fpl; 

  M1=(k4*k5*k6*k7*q*Frab)+(k4*k5*k6*k7*0.11*q)*(Fpl-Frab)*(1-(koeff/100)); 

  P1=0.11*0.0864*k4*k5*k6*k7*q*Fpl*(1-(koeff/100))*(365-Tc);

        Form1->Memo2->Lines->Add("Выброс пыли (SiO2) при хранении "+FloatToStr(M1)+" г/c");

        Form1->Memo2->Lines->Add("Выброс пыли (SiO2) при хранении "+FloatToStr(P1)+" т/г"); 

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form3->Show();

}

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