ВУЗ:
Составители:
Рубрика:
zazem_type=8;
Image1->Picture->LoadFromFile("im8.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton17Click(TObject *Sender)
{
SetActive(0,1,0,0,0,0);
Label5->Caption="R=p/(2*D)";
type_script="Кругл. пласт. на поверх.";
zazem_type=9;
Image1->Picture->LoadFromFile("im9.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton18Click(TObject *Sender)
{
SetActive(0,1,0,1,0,0);
Label5->Caption="R=p/(2*D)";
type_script="Кругл. пласт в земле.";
zazem_type=10;
Image1->Picture->LoadFromFile("im10.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton19Click(TObject *Sender)
{
SetActive(0,0,0,0,1,1);
Label5->Caption="R=p/(4*sqrt(a*b))";
type_script="Пластин. в земле";
zazem_type=11;
Image1->Picture->LoadFromFile("im11.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
Calculate();
Form5->Hide();
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
WinExec("write.exe helpfile.rtf",SW_MAXIMIZE);
}
//---------------------------------------------------------------------------
Библиографический список
