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

}

if (uvh>un1)

mas1[l1]=1;

if (uvh==un1)

mas1[l1]=0;

if (uvh<un1)

mas1[l1]=0;

l1++;

}

while (l!=n);

float map=0;

float mvp=0;

float skap=0;

float skvp=0;

map=de/2;

Edit5->Text=FloatToStrF(map,ffFixed,2,2);

mvp=100/(pow(2,n+1));

Edit6->Text=FloatToStrF(mvp,ffFixed,2,2);

skap=de/(pow(3,0.5)*2);

Edit8->Text=FloatToStrF(skap,ffFixed,2,2);

skvp=100/(pow(3,0.5)*pow(2,n+1));

Edit7->Text=FloatToStrF(skvp,ffFixed,2,2);

Chart1->Visible=true;

Chart2->Visible=true;

if (n==1)

{

Series1->Add(x1,0,clRed);

Series1->Add(x1,1,clRed);

}