Контрольная работа: Процес квантування сигналів по рівню

mas1[7]=0;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

int i;

n1=StrToFloat(Edit1->Text);

mas[0]=StrToFloat(Edit2->Text);

mas[1]=StrToFloat(Edit3->Text);

mas[2]=StrToFloat(Edit4->Text);

mas[3]=StrToFloat(Edit5->Text);

mas[4]=StrToFloat(Edit6->Text);

mas[5]=StrToFloat(Edit7->Text);

mas[6]=StrToFloat(Edit8->Text);

mas[7]=StrToFloat(Edit9->Text);

for (i=0;i<=n1-1;i++)

Label11->Caption = Label11->Caption + mas[i] ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Edit1->Text="";

Edit2->Text="";

Edit3->Text="";

Edit4->Text="";

Edit5->Text="";

Edit6->Text="";

Edit7->Text="";