програмування Програма розраховує опір електричного ланцюнга, що містить два резистори, які можуть бути з’днані послідовно або паралельно.
Код написання програми
// Головна форма
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
// Кнопка "Розрахувати"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float r1,r2;
AnsiString r;
if ((Edit1->Text == "") || (Edit2->Text == ""))
// Якщо Опір не введений, то видається помилка
{
Application->Title = ("Помилка!");
ShowMessage ("Введіть опір...");
}
else if ( RadioButton1->Checked )
{
r1 = StrToFloat(Edit1->Text); // Присвоєння даних зі зміною
r2 = StrToFloat(Edit2->Text); // типу String на Float
r = r1+r2;
Label4->Caption = r + " Ом";
}
else
{
r1 = StrToFloat(Edit1->Text); // Присвоєння даних зі зміною
r2 = StrToFloat(Edit2->Text); // типу String на Float
r = r1*r2 / (r1+r2);
Label4->Caption = r + " Ом";
}
}
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Label4->Caption = ""; // Очищення Label1 по натисканню на RadioButton1
}
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Label4->Caption = ""; // Очищення Label1 по натисканню на RadioButton2
}