Лабораторная работа № 10

Самостоятельная работа № 1.

Ом

Тема: Математические вычисления.

Цель: Научить использовать компоненты.

Выработать навыки для создания простейших

компьютерных программ.

Вызвать интерес к изучению предмета.

Напишите программу, которая позволяет вычислить сопротивление электрической цепи, которая состоит из двух резисторов. Если цепь соединена последовательно, то сопротивление вычисляется по формуле: R=R1+R2; при параллельном соединении по формуле: R=

Рекомендуемый вид диалогового окна приведен на рис.1.

Рис.1

Рабочая форма

№ | компонент | свойство | значение
1 | Form1 | Caption | Сопротивление электрической цепи
2 | Label1 | AutoSize WordWrap | False True
3 | RadioGroup1 | Caption | Тип соединения
4 | RadioButton1 | Caption Checked TabStop | последовательно True True
5 | RadioButton2 | Caption | параллельно
6 | BitBtn | Caption Glyph | Вычислить Load…C:\Program Files\Common Files\Borland Shared \ \Images\Buttons\CALCULAT.bmp
7 | Label4 | Caption AutoSize | (Пусто) False

Компоненты

Код программы:

class TForm1 : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TEdit *Edit1;

TEdit *Edit2;

TRadioGroup *RadioGroup1;

TRadioButton *RadioButton1;

TRadioButton *RadioButton2;

TBitBtn *BitBtn1;

TLabel *Label4;

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall RadioButton1Click(TObject *Sender);

void __fastcall RadioButton2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

float r1,r2;

float r;

r1 = StrToFloat(Edit1->Text);

r2 = StrToFloat(Edit2->Text);

if ((r1 == 0) && (r2 == 0)) {

ShowMessage("Надо задать величину хотя бы одного сопротивления");

}

if (RadioButton1->Checked)

r= r1+r2;

else r= (r1*r2)/(r1+r2);

Label4->Caption = "Сопротивление цепи: ";

if (r < 1000) {

Label4->Caption = Label4->Caption +

RoundTo(r , -3); + ' Ом';}

else

{

r=r/1000;

Label4->Caption = Label4->Caption +

RoundTo(r , -3); + ' кОм';}

}

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

Label4->Caption = "";

}

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

Label4->Caption = "";