Электробезопасность. Расчет защитного заземления. Анфилофьев Б.А - 13 стр.

UptoLike

{
klim_zone=3;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton4Click(TObject *Sender)
{
klim_zone=4;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton5Click(TObject *Sender)
{
electrode_type=1;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton6Click(TObject *Sender)
{
electrode_type=2;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton7Click(TObject *Sender)
{
electrode_type=3;SezonyPovKoef();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton8Click(TObject *Sender)
{
electrode_type=4;SezonyPovKoef();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
r_itr=(r_s*rs)/(r_s-rs);
Form3->Label14->Caption=FloatToStrF(r_itr,ffNumber,3,2);
Form1->Hide(); Form3->Show();
}
//---------------------------------------------------------------------------
// Зауск файла справки
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WinExec("write.exe helpfile.rtf",SW_MAXIMIZE);
}
//---------------------------------------------------------------------------
-----------------------------------------------------------------------------
Модуль unit2.cpp “Расчет
//---------------------------------------------------------------------------
#include <vcl.h>