R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

1.3-rasm. Tok kuchi dastur formasi

// Hisoblash tugmasi bosilganda

void __fastcall TForm1::Button1Click(TObject *Sender){

float u; // Kuchlanish

float r; // Qarshilik

float i; // Tok

// Kuchlanish va Qarshilik maydonlariga ma'lumotlar

//kiritilganligini tekshirish

if((Edit1->Text).Length()==0||(Edit2->Text).Length()

==0) {

MessageDlg("Qarshilik va kuchlanishlarga qiymatlar

kiriting",mtInformation, TMsgDlgButtons()<< mbOK,0);

if((Edit1->Text).Length()==0)

Edit1->SetFocus(); // Kursor Kuchlanish maydoniga

else

Edit1->SetFocus(); // Kursor Qarshilik maydoniga

return;

}

// kiritish maydonlaridan ma'lumotlarni olish

u=StrToFloat(Edit1->Text);

r=StrToFloat(Edit2->Text);

// tokni hisoblash

try {

i=u/r;

}

catch(EZeroDivide &e){

ShowMessage("Qarshilik qiymati nolga teng bo'lishi

mumkin emas");

Edit2->SetFocus(); // Kursor Qarshilik maydoniga

return;

}

// Label4 maydoniga natijalarni chiqarish

Label4->Caption="Tok: "+FloatToStrF(i,ffGeneral,7,2)

+" A";

}

//Kuchlanish maydoniga tugma bosilganda ruxsat

//etilmagan tugmalar kodi nol bilan almashtiriladi,

//natijada bu tugma belgilari taxrirlash maydonida

//xosil bo'lmaydi

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key){

// Key - bosilgan tugma kodi

// ruxsat etilgan belgi hisoblanishini, tekshirish