//--------------------------------------------------------------------------- #include #include #pragma hdrstop #include "Cacl.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- int a; int rez; int skaic[5]; void __fastcall TForm1::BitBtn1Click(TObject *Sender) { skaic[1] = 1; MaskEdit1->Text=skaic[1]; } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) { skaic[2] = 2; MaskEdit1->Text=skaic[2]; } void __fastcall TForm1::BitBtn4Click(TObject *Sender) { rez = skaic[1]-skaic[2]-skaic[3]; } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn3Click(TObject *Sender) { MaskEdit1->Text=rez; } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn6Click(TObject *Sender) { skaic[3] = 3; MaskEdit1->Text=skaic[3]; } //--------------------------------------------------------------------------- //---------------------------------------------------------------------------