"Сила тока"
// нажатие клавиши в поле Напряжение void __fastcall TForml::NkEditlKeyPress(TObject *Sender, char SKey) { if ( Key == VK_RETORN) NkEdit2-> SetFocus(); } // нажатие клавиши в поле Сопротивление void __fastcall TForml::NkEdit2KeyPress(TObject *Sender, char &Key) { if ( Key == VK_RETORN) Buttonl-> SetFocus(); } // нажатие кнопки Вычислить void __fastcall TForml::ButtonlClick(TObject *Sender) { float u; // напряжение float r; // сопротивление float i; // ток // получить исходные данные из полей ввода u = NkEditl-> Numb; r = NkEdit2-> Nuinb; if ( r == 0) { ShowMessage("Сопротивление не должно быть равно нулю"); return; } // вычислить ток i = u/r; // вывести результат Label4-> Caption = "Ток : " + FloatToStrF(i,ffGeneral,7,3) + "А"; }